home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a014 / 1.ddi / CDBINC.EXE / SUBA.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-18  |  3.6 KB  |  58 lines
  1. #include <stdio.h>
  2. #define pr(x) fprintf(fp,x)
  3. main(argc,argv)
  4. int argc;
  5. char *argv[];
  6. {
  7.    FILE *fp;
  8.    fp=fopen("diction.prg","w");
  9.    fprintf(fp,"set talk off\nset safe off\ndo while .t.\n");
  10.  
  11.     pr("set color to /W\nclear\n")    ;
  12.     pr("set color to /N\n@6,22 clear to 16,62\n")    ;
  13.     pr("set color to W+/B\n@5,20 clear to 15,60\n")    ;
  14.     pr("set color to W+/B\n")    ;
  15.    fprintf(fp,"@5,20 say '========================================='\n");
  16.    fprintf(fp,"@7,25 say 'ú▒íú╓≈ ╣╪ ╝ⁿ ╫╓ ╬¿ ╥╗ ╨╘ ╝∞ ▓Θ'\n");
  17.    fprintf(fp,"@9,25 say 'ú▓íú╩²  ╛▌  ┐Γ  ╠╪  ╨╘  ╝∞  ▓Θ'\n");
  18.    fprintf(fp,"@11,25 say 'ú│íú╩² ╛▌ ┐Γ ╫╓ ╢╬ ╠╪ ╨╘ ╝∞ ▓Θ'\n");
  19.    fprintf(fp,"@13,25 say 'ú┤íú╦≈ ╥² ╬─ ╝■    ╠╪ ╨╘ ╝∞ ▓Θ'\n");
  20.    fprintf(fp,"@15,20 say '========================================='\n");
  21.    fprintf(fp,"selc='5'\nfname=space(8)\nflag=0\ncopath=' '\n");
  22.    fprintf(fp,"@20 ,20 say '╟δ ╩Σ ╚δ ─· ╡─ ╤í ╘± (1--4),0╬¬═╦│÷: ' get selc\nread\n");
  23.    fprintf(fp,"do case \n");
  24.    fprintf(fp,"case selc='1'\n   clea\n")    ;
  25.    pr("   do dbfmenu with fname, flag ,copath\n");
  26.    fprintf(fp,"   if fname='0'\n   loop\n   endif\n");
  27.    fprintf(fp,"   sele 10\n   use db exclusive\n")    ;
  28.    fprintf(fp,"   sele 1\n   use &copath\\&fname exclusive\n")    ;
  29.    fprintf(fp,"   sele 10\n   loca for name=trim(fname)\n");
  30.    fprintf(fp,"   condic=''\n   ctc=1\n   midname='mainkey'+str(ctc,1)\nkeyname=mainkey1\ncondic=&midname\ncond='len(trim(&keyname))=0'\n")    ;
  31.    fprintf(fp,"   sele 10\ndo while .t.\n   if ctc=1\n exit\n endif\nmainname=&midname\n   sele 1\n   if type(mainname)='C'\n ");
  32.    fprintf(fp,"   condic=condic+'+'+mainname\ncond=cond+'.and. len(trim('+mainname+'))=0'\n endif\n   if type(&mainname)='D'\n");
  33.    fprintf(fp,"   condic=condic+'+'+'dtoc('+midname+')'\n cond=cond+'.and.len(trim(dtoc('+mainname+')))=0'\nendif\n");
  34.    fprintf(fp,"   if type(mainname)='N'\n   condic=condic+'str('+mainname+'len(&mainname)'\ncond=cond+'.and.len(trim(str('+mainname+')))=0'\n");
  35.    fprintf(fp,"   endif\n   ctc=ctc+1\n   if ctc>5\n   exit\n   endif\n\
  36.    midname='mainkey'+str(ctc,1)\n   sele 10\n   if trim(&midname)=''\n   exit\n\
  37.    endif\n   enddo\n");
  38.    fprintf(fp,"   select 1\nindex on &condic to cnmo uniq\n   set inde to cnmo\n");
  39.    fprintf(fp,"   go top\nif .not.eof()\nif .not.&cond\n   dele\n endif\n endif\nskip\n")    ;
  40.    fprintf(fp,"   do while .not.eof()\n   dele\n   skip\n   enddo\n");
  41.    fprintf(fp,"   use &copath\\&fname exclusive\n   go top\n   do while .not.eof()\n   if dele()\n");
  42.    fprintf(fp,"   recall\n   else\n   dele\n   endif\n   skip\n   enddo\n");
  43.    fprintf(fp,"   pack\n   use\n   sele 10\n   use %s\\ndx exclusive\n   loca for trim(┐Γ├√)=fname.and.\
  44.    trim(╦≈╥²╬─╝■)<>''\n   do while .not.eof()\n   nf=╦≈╥²╬─╝■\n   sele 1\n",argv[1]);
  45.    fprintf(fp,"   use &copath\\&fname inde %s\\&nf exclusive\n   reindex\n   sele 10\n   continue\n   enddo\n",argv[1]);
  46.    fprintf(fp,"   sele 10\n   use\n  sele 1\n   use\ncase selc='2'\n   run %s\\brow db.dbf\n",argv[1],argv[1]);
  47.    fprintf(fp,"case selc='3'\n   clea\n   do dbfmenu with fname ,flag ,copath\n   if fname<>'0'\n");
  48.    fprintf(fp,"   sele 1\n   use &copath\\&fname\n   copy  to buffwin stru exte\n   run \
  49.    %s\\brow buffwin.dbf\n   endif\n",argv[1]);
  50.    fprintf(fp,"case selc='4'\n   clea\n   do dbfmenu with fname ,flag ,copath\n   if fname<>'0'\n");
  51.    fprintf(fp,"   sele 10\n   use %sndx exclusive\n   copy  to buffwin for (┐Γ├√=fname)\n\
  52.    run %s\\brow buffwin.dbf\nendif\n",argv[1],argv[1]);
  53.    fprintf(fp,"case selc='0'\n   return\nendcase\n")    ;
  54.    fprintf(fp,"select 1\nuse\nenddo\n");
  55.    fclose(fp);
  56. }
  57.  
  58.