home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / UIFlow 1.0.1 / UIFlow Source / VSet2.0 / temp / vshow.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-12  |  7.0 KB  |  281 lines  |  [TEXT/????]
  1. /*****************************************************************************
  2. *
  3. * vshow.c
  4. *
  5. *    HDF Vset utility.
  6. *
  7. *    vshow:     dumps out vsets in a hdf file.
  8. *
  9. *    Usage:  vshow [file] {+{n}}
  10. *        the '+' option indicates a full dump on all vdatas.
  11. *        '+n' means full dump only for the nth vdata.
  12. *
  13. *
  14. *****************************************************************************
  15. * 
  16. *              NCSA HDF Vset release 2.1
  17. *                    May 1991
  18. *                 Jason Ng May 1991 NCSA
  19. *
  20. * NCSA HDF Vset release 2.1 source code and documentation are in the public
  21. * domain.  Specifically, we give to the public domain all rights for future
  22. * licensing of the source code, all resale rights, and all publishing rights.
  23. * 
  24. * We ask, but do not require, that the following message be included in all
  25. * derived works:
  26. * 
  27. * Portions developed at the National Center for Supercomputing Applications at
  28. * the University of Illinois at Urbana-Champaign.
  29. * 
  30. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  31. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  32. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  33. * 
  34. ******************************************************************************/
  35.  
  36. #include "vg.h"
  37.  
  38. static int condensed;
  39. static char sbuf[80]; /* message buffer */
  40. #define PMSG     fprintf(stderr,"%s",sbuf)
  41.  
  42. #ifdef MAC
  43. int vsdumpfull(VDATA *);
  44. #endif
  45.  
  46. main(ac,av) int ac; 
  47. char**av;
  48. {
  49.     VGROUP       *vg, *vgt;
  50.     VDATA      *vs;
  51.     DF*                f;
  52.     int vgid = -1;
  53.     int vsid = -1;
  54.     int vsno = 0;
  55.     int    vstag;
  56.  
  57.     int i, t, nvg, n, ne, nv, interlace, vsize;
  58.     int * lonevs; /* array to store refs of all lone vdatas */
  59.     int nlone; /* total number of lone vdatas */
  60.  
  61.     char fields[50], vgname[50],vsname[50];
  62.     char  vgclass[50],vsclass[50];
  63.     int fulldump = 0;
  64.  
  65.     if (ac==3) if(av[2][0]=='-'||av[2][0]=='+') {
  66.         sscanf(&(av[2][1]),"%d",&vsno);
  67.         if(vsno == 0) {
  68.             sprintf(sbuf,"FULL DUMP\n"); 
  69.             PMSG; 
  70.         }
  71.         else { 
  72.             sprintf(sbuf,"FULL DUMP on vs#%d\n",vsno); 
  73.             PMSG; 
  74.         }
  75.         fulldump = 1;
  76.         if(av[2][0]=='+') condensed = 1; 
  77.         else condensed = 0;
  78.     }
  79.     if(ac<2) {
  80.         sprintf(sbuf,"%s: dumps HDF vsets info from hdf file\n",av[0]);
  81.         PMSG;
  82.         sprintf(sbuf,"usage: %s file {+n} \n", av[0]);
  83.         PMSG;
  84.         sprintf(sbuf,"\t +  gives full dump of all vdatas.\n"); 
  85.         PMSG;
  86.         sprintf(sbuf,"\t +n gives full dump of vdata with id n.\n"); 
  87.         PMSG;
  88.         exit(0);
  89.     }
  90.     if((f=DFopen(av[1],DFACC_READ,0))==NULL) exit(0);
  91.     sprintf(sbuf,"\nFILE: %s\n",av[1]);
  92.     PMSG;
  93.  
  94.     nvg=0;
  95.     while( (vgid = Vgetid(f,vgid)) != -1) {
  96.         vg = (VGROUP*) Vattach(f,vgid,"r");
  97.         if(vg==NULL) {
  98.             sprintf(sbuf,"cannot open vg id=%d\n",vgid);
  99.             PMSG;
  100.         }
  101.         Vinquire(vg,&n, vgname);
  102.         Vgetclass(vg, vgclass); 
  103.         if (strlen(vgname)==0)  strcat(vgname,"NoName");
  104.         sprintf(sbuf,"\nvg:%d <%d/%d> (%s.%s) has %d entries:\n",
  105.             nvg, vg->otag, vg->oref, vgname, vgclass,n);
  106.         PMSG;
  107.  
  108.         for (t=0; t< Vntagrefs(vg); t++) {
  109.             Vgettagref(vg, t, &vstag, &vsid);
  110.             
  111.             if (vstag==VSDESCTAG)  {  /* ------ V D A T A ---------- */
  112.                 vs = (VDATA *) VSattach(f,vsid,"r");
  113.                 if(vs==NULL) {
  114.                     sprintf(sbuf,"cannot open vs id=%d\n",vsid);
  115.                     PMSG;
  116.                 }
  117.                 VSinquire(vs, &nv,&interlace, fields, &vsize, vsname);
  118.                 if (strlen(vsname)==0)  strcat(vsname,"NoName");
  119.                 VSgetclass(vs,vsclass); 
  120.                 sprintf(sbuf,"  vs:%d <%d/%d> nv=%d i=%d fld [%s] vsize=%d (%s.%s)\n",
  121.                     t, vs->otag, vs->oref, nv, interlace, 
  122.                     fields, vsize, vsname, vsclass);
  123.                 PMSG;
  124.                 if(fulldump && vsno==0) vsdumpfull(vs);
  125.                 else if(fulldump && vsno==vs->oref) vsdumpfull(vs);
  126.  
  127.                 VSdetach(vs);
  128.             }
  129.             else if (vstag==VGDESCTAG)  {  /* ------ V G R O U P ----- */
  130.                 vgt = (VGROUP*) Vattach(f,vsid,"r");
  131.                 if(vgt==NULL) {
  132.                     sprintf(sbuf,"cannot open vg id=%d\n",vsid);
  133.                     PMSG;
  134.                 }
  135.                 Vinquire(vgt, &ne, vgname);
  136.                 if (strlen(vgname)==0)  strcat(vgname,"NoName");
  137.                 Vgetclass(vgt, vgclass);
  138.                 sprintf(sbuf,"  vg:%d <%d/%d> ne=%d (%s.%s)\n",
  139.                     t, vgt->otag, vgt->oref, ne,  vgname, vgclass );
  140.                 PMSG;
  141.                 Vdetach(vgt);
  142.             }
  143.             else {
  144.                 sprintf(sbuf,"  --:%d <%d/%d>  NON-VSET element\n", t,vstag,vsid);
  145.                 PMSG;
  146.             }
  147.         } /* while */
  148.         Vdetach(vg);
  149.         nvg++;
  150.     } /* while */
  151.  
  152.     if(nvg==0) {
  153.         sprintf(sbuf,"No vgroups in this file\n");
  154.         PMSG;
  155.         }
  156.  
  157.     nlone = VSlone(f,NULL,0);
  158.     if(nlone > 0) {
  159.         sprintf(sbuf,"Lone vdatas:\n"); PMSG;
  160.         if (NULL == (lonevs = (int*) DFIgetspace (sizeof(int)*nlone))) {
  161.             sprintf(sbuf,"%s: File has %d lone vdatas but ",av[0],nlone ); PMSG;
  162.            sprintf(sbuf,"cannot alloc lonevs space. Quit.\n"); PMSG; 
  163.               exit(0);
  164.                 }
  165.         VSlone(f,lonevs, nlone);
  166.         for(i=0; i<nlone;i++) {
  167.             vsid = lonevs[i];
  168.             if( NULL == ( vs = (VDATA *) VSattach(f,lonevs[i],"r"))) {
  169.                 sprintf(sbuf,"cannot open vs id=%d\n",vsid);
  170.                 PMSG;
  171.                 }
  172.             VSinquire (vs, &nv,&interlace, fields, &vsize, vsname);
  173.             if (strlen(vsname)==0)  strcat(vsname,"NoName");
  174.             VSgetclass (vs, vsclass);
  175.             sprintf(sbuf,"L vs:%d <%d/%d> nv=%d i=%d fld [%s] vsize=%d (%s.%s)\n",
  176.                          vsid, vs->otag, vs->oref, nv, interlace, fields,
  177.                              vsize, vsname, vsclass);
  178.             PMSG;
  179.             if (fulldump && vsno==0) vsdumpfull(vs);
  180.             else if (fulldump && vsno==vs->oref) vsdumpfull(vs);
  181.             VSdetach(vs);
  182.             }
  183.         DFIfreespace (lonevs);
  184.         }
  185.  
  186.     DFclose(f);
  187.  
  188. } /* main */
  189.  
  190.  
  191. /* ------------------------------------------------ */
  192. /* printing functions used by vsdumpfull(). */
  193. static int cn = 0;
  194. int fmtchar(x) char*x;       { cn++; putchar(*x); return(1); }
  195. int fmtint(x) int*x;           { cn += printf("%d ",*x); return(1);  }
  196. int fmtfloat(x) float*x;     { cn += printf("%f ",*x); return(1);  }
  197. int fmtlong(x) int*x;       { cn += printf("%ld ",*x); return(1);  }
  198. /* ------------------------------------------------ */
  199.  
  200. int vsdumpfull(vs) VDATA * vs; 
  201. {
  202.     char vsname[100], fields[100];
  203.     int i,t,interlace, nv, vsize;
  204.     char *bb, *b;
  205.     VWRITELIST* w;
  206.     int (*fmtfn[20])();
  207.     int off[20];
  208.  
  209.     int nf;
  210.  
  211.     VSinquire(vs, &nv,&interlace, fields, &vsize, vsname);
  212.     bb = (char*) DFIgetspace (nv*vsize);
  213.     if(bb==NULL) { 
  214.         sprintf(sbuf,"vsdumpfull malloc error\n");
  215.         PMSG; 
  216.         return(0); 
  217.     }
  218.  
  219.     VSsetfields(vs,fields);
  220.     VSread(vs,bb,nv,interlace);
  221.  
  222.     w = &(vs->wlist);
  223.     nf=0;
  224.  
  225.     for (i=0;i<w->n;i++) {
  226.         printf("%d: fld [%s], type=%d, order=%d\n",
  227.             i, w->name[i], w->type[i], w->order[i]);
  228.         switch(w->type[i]) {
  229.         case LOCAL_FLOATTYPE:
  230.             for(t=0;t<w->order[i];t++,nf++) {
  231.                 fmtfn[nf] = fmtfloat;
  232.                 off[nf] = sizeof(float);
  233.             }
  234.             break;
  235.         case LOCAL_INTTYPE:
  236.             for(t=0;t<w->order[i];t++,nf++) {
  237.                 fmtfn[nf] = fmtint;
  238.                 off[nf] = sizeof(int);
  239.             }
  240.             break;
  241.         case LOCAL_CHARTYPE:
  242.             for(t=0;t<w->order[i];t++,nf++) {
  243.                 fmtfn[nf] = fmtchar;
  244.                 off[nf] = sizeof(char);
  245.             }
  246.             break;
  247.         case LOCAL_LONGTYPE:
  248.             for(t=0;t<w->order[i];t++,nf++) {
  249.                 fmtfn[nf] = fmtlong;
  250.                 off[nf] = sizeof(long);
  251.             }
  252.             break;
  253.         }
  254.     }
  255.  
  256.     b= bb;
  257.     cn=0;
  258.     for(i=0;i<nv;i++) {
  259.         for(t=0;t<nf;t++) { 
  260.             (fmtfn[t]) (b); 
  261.             b+=off[t]; 
  262.         }
  263.         if (condensed)
  264.         { 
  265.             if( cn > 70) { putchar('\n'); cn=0; } 
  266.         }
  267.         else 
  268.             putchar('\n');
  269.     }
  270.  
  271.     /* ============================================ */
  272.  
  273.     DFIfreespace (bb);
  274.     putchar('\n'); 
  275.     putchar('\n');
  276.  
  277.     return(1);
  278.  
  279. } /* vsdumpfull */
  280. /* ------------------------------------- */
  281.