Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037 static char USMID[] = "@(#) libcif/cifprint.c 30.2 07/26/96 07:19:13";
00038
00039
00040
00041
00042
00043
00044
00045
00046 #define CIF_VERSION 3
00047
00048 #ifdef _ABSOFT
00049 #include "cif.h"
00050 #else
00051 #include <cif.h>
00052 #endif
00053
00054 #include <stdio.h>
00055
00056 #include "cif_int.h"
00057
00058 void Cif_Printinfo
00059 #ifdef __STDC___
00060 (FILE *fd)
00061 #else
00062 (fd)
00063 FILE *fd;
00064 #endif
00065 {
00066
00067 register int fi,me;
00068
00069 for (fi = 0; fi < CIF_FT_SIZE; fi++) {
00070 if (_Cif_filetbl[fi].form == NOT_A_CIF) continue;
00071 (void) fprintf (fd, "CIF file entry %2d: form= %1d ifull= %1d seek= %1d mode= %1d fme= %3d lme= %3d\n rmask= %lo fd= %d ip= %d optype= %c\n",
00072 fi,
00073 _Cif_filetbl[fi].form,
00074 _Cif_filetbl[fi].ifull,
00075 _Cif_filetbl[fi].seek,
00076 _Cif_filetbl[fi].mode,
00077 _Cif_filetbl[fi].lme,
00078 _Cif_filetbl[fi].fme,
00079 _Cif_filetbl[fi].rmask,
00080 _Cif_filetbl[fi].fd,
00081 _Cif_filetbl[fi].ip,
00082 _Cif_filetbl[fi].optype);
00083 }
00084
00085 for (me = 0; me < _Cif_memasize; me++) {
00086 if (_Cif_memarea[me].used == 0 && _Cif_memarea[me].mbp == 0 && _Cif_memarea[me].msize == 0) continue;
00087 (void) fprintf (fd, "CIF memory entry %3d: used=%d nme=%3d mused= %4d msize= %4d mbp= %d\n",
00088 me,
00089 _Cif_memarea[me].used,
00090 _Cif_memarea[me].nme,
00091 _Cif_memarea[me].mused,
00092 _Cif_memarea[me].msize,
00093 _Cif_memarea[me].mbp);
00094 }
00095
00096 }