home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a014 / 1.ddi / CDBINC.EXE / SUB2.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-17  |  3.5 KB  |  135 lines
  1. #include <stdio.h>
  2. #include <dos.h>
  3. #define CONT 20
  4. #define CB 14
  5. #define pr(x) fprintf(fp,x)
  6. typedef struct bb{
  7.          char MEAN[21],DB[9],KEY[4][11],COFLAG,COPATH[11];
  8.          int no;
  9.          struct bb *next;
  10.         }BASE;
  11. typedef struct cc {
  12.          char field[128][11],ftype[128];
  13.          int len1[128],point[128];
  14.                  int NN;
  15.          int no;
  16.          struct cc *next;
  17.            }CONTENT;
  18. typedef struct ll {
  19.             int  MAR[9][128];
  20.             int  no;
  21.             struct ll *next;
  22.             }LINK;
  23. LINK *flink;
  24. BASE *fbase;
  25. CONTENT *fcon;
  26. int NB,repeat,I,J,II,JJ;
  27. char *explain="***╠φ╝╙,▓σ╚δ,╨▐╕─,╔╛│²,▓Θ╤» ╔·│╔***";
  28. char lname[5][31],PATH[30],lnamebak[5][3][11];
  29. int linkflag    ;
  30. main(argc,argv)
  31. int argc;
  32. char *argv[];
  33. { FILE *fp, *fg;
  34.   int road[30][9],i=0,fs[30],aa,j,row,col,k,p,modi_ctc;
  35.   char dname[30][20],buff[60];
  36.   BASE *mybase;
  37.   CONTENT *mycon;
  38.   strcpy(PATH,argv[1]);
  39.    if(argc<2)
  40.      return;
  41.   i=0;
  42.   if ((fp = fopen("creat\\amd2.txt", "r"))!=NULL)
  43.     {
  44.        fscanf(fp,"%d\n",&i)    ;
  45.        for(p=0; p<i; p++)
  46.        fscanf(fp,"%s",dname[p])    ;
  47.     }
  48.   getbase();
  49. /*  getcontent(argv[1]);*/
  50.   modi_ctc=i;
  51.   for(;;)
  52.   {
  53.      clear_win(0,0,24,79,0x70);
  54.      clear_win(8,22,14,62,0);
  55.      clear_win(7,20,13,60,30);
  56.      color_puts("─· ╥╤ ╔· │╔ ┴╦    ╕÷ ▓┘ ╫≈ ─ú ┐Θ",30,8,24);
  57.      cursor(8,39);
  58.      printf("%d",modi_ctc);
  59.      color_puts("╟δ ╩Σ ╚δ ─· ╜½ ╨▐ ╕─ ╔· │╔ ─ú ┐Θ",30,9,24);
  60.      color_puts("╡─ ╨≥ ║┼ (0 ╬¬ ═╦ │÷,   ┤≤ ╙┌  ",30,10,24);
  61.      printf("%d",modi_ctc);
  62.      color_puts("╘≥ ╠φ ╝╙ ╔· │╔,╖± ╘≥,╨▐ ╕─ ╔· │╔",30,11,24);
  63.      cursor(12,40);
  64.      scanf("%d",&i);
  65.      if (i==0) break;
  66.      if (i>modi_ctc) modi_ctc++;
  67.      i=(i>modi_ctc)?(modi_ctc-1):i-1;
  68.   if((aa=getroad(argv[1],road[i],i))!=0)
  69.     {
  70.        if(aa==1)
  71.        { /*j=0;
  72.      mybase=fbase;
  73.      while(mybase->no!=(road[i][0]-1))
  74.        mybase=mybase->next;
  75.      while (mybase->MEAN[j]!='\0')
  76.      dname[i][j]=mybase->MEAN[j++];
  77.      dname[i][j]='\0';*/
  78.      clear_win(15,36,19,72,0)    ;
  79.      clear_win(14,34,18,70,0|53)    ;
  80.      color_puts("╢¿╥σ┴¼╜╙┐Γ╡─╩╢▒≡├√(╫ε╢α20╕÷╫╓╖√): ",0|53,15,36)    ;
  81.      color_puts("                         ",0|53,17,40)    ;
  82.      cursor( 17, 43 )    ;
  83.      scanf("%s",dname[i]);
  84.        }
  85.        else
  86.   deflink(road[i],dname[i],argv[1]);
  87.   clear_win(0,0,24,79,0)    ;
  88.   if((cr_sub2(road[i],dname[i],i,PATH)) == 1)
  89.     {
  90.     gene(road[i],i,PATH)    ;
  91.     i++;
  92.     }
  93.   free(flink);
  94.   free(fcon);
  95.   }
  96.   else break;
  97.   }
  98.   i=modi_ctc;
  99.   fp=fopen("amd2.prg","w");
  100.   pr("set talk off\n");
  101.   pr("do while .t.\n");
  102.   pr("set color to /w\nclear\nset color to w+/B\n");
  103.   pr("@0,0 say '***╠φ╝╙,▓σ╚δ,╨▐╕─,╔╛│²,▓Θ╤»***'\n");
  104.   pr("@2,25 say '─·┐╔╢╘╧┬┴╨┐Γ╜°╨╨▓┘╫≈ '\n");
  105.   pr("@3,25 say '~~~~~~~~~~~~~~~~~~~~'\nset color to W/B\n");
  106.   fprintf(fp,"set color to w+/n\n@6,15 clea to %d,65\n",6+i/2+i%2+1);
  107.   fprintf(fp,"set color to w+/b\n@5,13 clea to %d,63\n",5+i/2+i%2+1);
  108.   row=6;col=15;
  109.   for(k=0;k<i;k++)
  110.    { fprintf(fp,"@%d,%d say '%d. %s'\n",row,col,k+1,dname[k]);
  111.      if(col==45) {col=15;row++;}
  112.      else col+=30;
  113.    }
  114.   for(k=1;k<=6;k++)
  115.   fprintf(fp,"select %d\nuse\n",k);
  116.   pr("choice=space(2)\nset color to w+/b\n");
  117.   pr("@22,10 say '╟δ╩Σ╚δ─·╡─╤í╘±, 0 ▒φ╩╛═╦│÷  :    ' get choice\n read\n");
  118.   pr("set color to W+/N\nif trim(choice)='0'\n");
  119.   pr("return\nendif\n");
  120.   pr("nn='ssub'+trim(choice)+'.prg'\n");
  121.   pr("if FILE(nn)\n");
  122.   pr("do ssub&choice\n");
  123.   pr("endif\n");
  124.   pr("enddo\n");
  125.   fclose(fp);
  126.  
  127.   fp = fopen("creat\\amd2.txt","w")    ;
  128.   fprintf(fp,"%d\n",i)    ;
  129.   for(k=0; k<i; k++)
  130.     fprintf(fp,"%s\n",dname[k])    ;
  131.   fclose(fp)    ;
  132.  }
  133.  
  134.  
  135.