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 / vtest2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-12  |  1.4 KB  |  66 lines  |  [TEXT/????]
  1. #include "vg.h"
  2. #define filef "jj"
  3. #define fileg "jjj"
  4. main() {
  5. DF * f, *g;
  6. VGROUP* vg1, * vg2;
  7. VDATA *vs1, * vs2;
  8. char ss[50];
  9. int i;
  10. int bb[5000];
  11. for(i=0;i<5000;i++) bb[i] =i;
  12.  
  13.   if( NULL==(f=DFopen(filef,DFACC_ALL,0))) 
  14.     { printf(" %s open err\n",filef); exit(0); }
  15.  
  16.   if( NULL==(g=DFopen(fileg,DFACC_ALL,0))) 
  17.     { printf(" %s open err\n",fileg); exit(0); }
  18. printf(" both files opned ok \n");
  19.  
  20. /*** PART 1: vgroups only ***/
  21. /**
  22. for(i=0;i<3;i++) {
  23.  vg1 = (VGROUP*) Vattach(f,-1,"w"); 
  24.  sprintf(ss,"vgroup  %d   in %s",i,filef); Vsetname(vg1,ss);
  25.  fprintf(stderr,"******vg [%s] ok\n",ss);
  26.  
  27.  vg2 = (VGROUP*) Vattach(g,-1,"w"); 
  28.  sprintf(ss,"vgroup %d   in %s",i,fileg); Vsetname(vg2,ss);
  29.  fprintf(stderr,"******vg [%s] ok\n",ss);
  30.   Vdetach(vg1);
  31.   Vdetach(vg2);
  32. }
  33. ***/
  34. /*** PART 2: vgroups and vdatas ***/
  35.  
  36.  vg1 = (VGROUP*) Vattach(f,-1,"w"); 
  37.  sprintf(ss,"vgroup ONE  in %s",filef); Vsetname(vg1,ss);
  38.  fprintf(stderr,"******vg [%s] ok\n",ss);
  39.  
  40.  vg2 = (VGROUP*) Vattach(g,-1,"w"); 
  41.  sprintf(ss,"vgroup TWO  in %s",fileg); Vsetname(vg2,ss);
  42.  fprintf(stderr,"******vg [%s] ok\n",ss);
  43.  
  44. for(i=0;i<3;i++) {
  45.   vs1 = (VDATA*) VSattach(f,-1,"w");
  46.   vs2 = (VDATA*) VSattach(g,-1,"w");
  47.   VSsetfields(vs1,"IX");
  48.   VSsetfields(vs2,"IY");
  49.   VSwrite(vs1,&bb[i*100],10,FULL_INTERLACE);
  50.   VSwrite(vs2,&bb[i*50],20,FULL_INTERLACE);
  51.   Vinsert(vg1,vs1);
  52.   Vinsert(vg2,vs2);
  53.   VSdetach(vs1);
  54.   VSdetach(vs2);
  55.   }
  56.  
  57.   Vdetach(vg1);
  58.   Vdetach(vg2);
  59.  
  60.  
  61. DFclose(f);
  62. DFclose(g);
  63.  
  64. }
  65.  
  66.