home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 April / PCO_04_97.ISO / filesbbs / os2 / gigp0109.arj / COMPILE / COMPILE.CPP next >
Encoding:
C/C++ Source or Header  |  1994-08-29  |  7.1 KB  |  313 lines
  1. #include <conio.h>
  2. #include <ctype.h>
  3. #include <direct.h>
  4. #include <dos.h>
  5. #include <fcntl.h>
  6. #include <io.h>
  7. #include <share.h>
  8. #include <stdarg.h>
  9. #include <stdio.h>
  10. #include <stdlib.h>
  11. #include <string.h>
  12. #include <sys\stat.h>
  13. #include <ctype.h>
  14.  
  15. #define addbackslash(x)  if (x[0]) if (x[strlen(x)-1]!='\\') strcat(x,"\\")
  16.  
  17.  
  18. #ifdef __OS2__
  19.  #define DW unsigned short
  20. #else
  21.  #define DW unsigned int
  22. #endif
  23.  
  24.   #define INBUFSIZE 32000
  25.   #define OUTBUFSIZE 8192
  26.  
  27.   #define bumpby 35
  28.  
  29. // #define messy    This define shows us what it's compiling
  30.  
  31. char defaultdir[256] = ".\\";
  32. char defaultnodelist[256] = "NODELIST";
  33. char workbuf[256];
  34. int append=0;
  35.  
  36. int inhandle=0;
  37. char *inbuf=NULL;
  38. int insize=0,inptr=0,inread=0;
  39.  
  40. FILE *outfile=NULL;
  41.    char namebuf[256];
  42.  
  43.   static char *wb1=&workbuf[1];
  44.   static char *wb4=&workbuf[4];
  45.   static char *wb5=&workbuf[5];
  46.   static char *wb7=&workbuf[7];
  47.   static char *wb8=&workbuf[8];
  48.  
  49.   static DW uZONE=65535u;
  50.   static DW uHOST=65534u;
  51.  
  52.  
  53.  
  54. void myatoi(char *p)
  55. {
  56.  DW u=0;
  57.  while ((*p)!=',')
  58.   u=(DW) (u*10-'0'+(*p++));
  59.  if ((u&uHOST)==uHOST) // also covers uZONE
  60.   {
  61.   cprintf("Skipping a node using 65534 or 65535 as an address.\r\n");
  62.   u=0;
  63.   }
  64.  fwrite(&u,2,1,outfile);
  65. }
  66.  
  67. /*
  68. char nextchar(void)
  69. {
  70.  if (inptr>=inread)
  71.    {
  72.     inptr=0;
  73.     inbuf[0]=0;
  74.     inread=read(inhandle,inbuf,insize);
  75.     if (!inread) return 0;
  76.    }
  77.  return(inbuf[inptr++]);
  78. }
  79. */
  80. #define prepnextchar(); if (inptr>=inread) {inptr=0;inbuf[0]=0;inread=read(inhandle,inbuf,insize);}
  81. #define nextchar() inbuf[inptr++]
  82.  
  83. void nextline(char *workbuf)
  84. {
  85.  register char ch;
  86. runagain:
  87.  *workbuf=0;
  88.  prepnextchar();
  89.  *workbuf=nextchar();
  90.  if (!*workbuf) return;
  91.  if (*workbuf==13) return;
  92.  if (*workbuf==27) return;
  93.  if (*workbuf==10) return;
  94.  if (*workbuf==';')
  95.    {
  96.     do
  97.      {prepnextchar();ch=nextchar();}
  98.     while ((ch!=0) && (ch!='\n'));
  99.     goto runagain;
  100.    }
  101.  if (*workbuf==26) {*workbuf=0;return;}
  102.  do  //first string + ,
  103.    {workbuf++;
  104.     prepnextchar();
  105.     *workbuf=ch=nextchar();}
  106.  while (*workbuf!=',');
  107.  
  108.  do  // second char + ,
  109.    { workbuf++;
  110.      prepnextchar();
  111.      *workbuf=nextchar();}
  112.  while (*workbuf!=',');
  113.  
  114.  inptr+=bumpby;
  115.  if (inptr>=inread) inptr=inread;
  116.  
  117.  do
  118.    {prepnextchar();
  119.     ch=nextchar();}
  120.     while ((ch!=0) && (ch!='\n'));
  121.  return;
  122. }
  123. int why=0;
  124. void parselines(void)
  125. {
  126. //  register DW value;
  127.  
  128. /*
  129.     Hub,        4
  130.     Pvt,        4
  131.     Zone,       5
  132.     Host,       5
  133.     Region,     7
  134.     */
  135.  
  136. newline:
  137.   nextline(workbuf);
  138.   switch (*workbuf)
  139.    {
  140.     case 0   : return;
  141.  
  142.     case ',' : myatoi(wb1);
  143.                #ifdef messy
  144.                  gotoxy(12,why);cprintf("%4u",atoi(wb1));
  145.                #endif
  146.                goto newline;
  147.  
  148.     case 'H' : if (workbuf[1]=='u') goto Hub; // we only want HOST here
  149.                if (workbuf[2]=='l') goto priv; // DOWN? make it private
  150.                #ifdef messy
  151.                  gotoxy(7,why);cprintf("%4u",atoi(wb5));
  152.                #endif
  153.                fwrite(&uHOST,2,1,outfile);
  154.                myatoi(wb5);goto newline;
  155.  
  156.     Hub      : myatoi(wb4);goto newline;
  157.  
  158. //    case 'p' :
  159.     priv     :
  160.     case 'D' :  // down
  161.     case 'P' : myatoi(wb4); goto newline;
  162.  
  163.     case 'R' : fwrite(&uHOST,2,1,outfile);
  164.                #ifdef messy
  165.                  gotoxy(7,why);cprintf("%4u",atoi(wb7));
  166.                #endif
  167.                myatoi(wb7);goto newline;
  168.  
  169.     case 'Z' : fwrite(&uZONE,2,1,outfile);
  170.                #ifdef messy
  171.                  gotoxy(1,why);cprintf("%4u",atoi(wb5));
  172.                #else
  173.                 cprintf("\r\nZone %u",atoi(wb5));
  174.                #endif
  175.                myatoi(wb5);goto newline;
  176.  
  177.    }
  178.   goto newline;
  179. }
  180. void parsenodelist(void)
  181. {  int ibsize;
  182.   inhandle=sopen(defaultnodelist, O_BINARY|O_RDONLY, SH_DENYNO, S_IREAD);
  183.   if (inhandle<1)
  184.    {
  185.     cprintf("Could not open nodelist file %s.\r\n",defaultnodelist);
  186.     exit(1);
  187.    }
  188.  
  189.  
  190.   if (append)
  191.     outfile= fopen("NODELIST.GIG", "ab");
  192.   else
  193.     outfile= fopen("NODELIST.GIG", "wb");
  194.   if (!outfile)
  195.    {
  196.     cprintf("Could not open output index file %s.\r\n",workbuf);
  197.     exit(1);
  198.    }
  199.  
  200.   if (setvbuf(outfile, NULL, _IOFBF, OUTBUFSIZE) != 0)
  201.      cprintf("Failed to set up output buffer\r\n");
  202.  
  203.   ibsize=INBUFSIZE;
  204.  loop:
  205.   if (ibsize<256)
  206.    {
  207.     cprintf("Failed to set up input buffer.\r\n");
  208.     fclose(outfile);
  209.     exit(1);
  210.    }
  211.   inbuf=(char *) calloc(1,ibsize);
  212.   if (!inbuf) {ibsize-=128;goto loop;}
  213.   insize=ibsize;inptr=0,inread=0;
  214. #ifdef messy
  215.   why = wherey();
  216. #endif
  217.   parselines();
  218.  
  219.   close(inhandle);
  220.   fclose(outfile);
  221. }
  222.  
  223. char *getnodelist(char *dir, char *name)
  224. { 
  225. char *p; 
  226.  
  227. DIR *dirp;
  228. char buf[255];
  229. unsigned long d_date,d_time;
  230. struct dirent *direntp;
  231.  
  232.    int valuemode=0;
  233.    strcpy(namebuf,dir);
  234.    addbackslash(namebuf);
  235.    strcat(namebuf,name);
  236.    if (!strchr(name,'.')) {valuemode=1;strcat(namebuf,".*");}
  237.    buf[0]=0; d_time=d_date=0;
  238.  
  239. dirp = opendir(namebuf); 
  240. if (dirp == NULL) {
  241.    fprintf(stderr,"Could not opendir: %s\r\n",namebuf);
  242. } else {
  243.    for (;;) {
  244.       direntp = readdir(dirp);
  245.       if (direntp==NULL) break;
  246.       p=strchr(direntp->d_name,'.');
  247.       if (p==NULL) continue;
  248.       p++;
  249.       if (!isdigit(*p)) continue;
  250.       if ((direntp->d_date > d_date) && (direntp->d_time > d_time))
  251.            {
  252.            strcpy(buf,direntp->d_name);
  253.            d_date = direntp->d_date;
  254.            d_time = direntp->d_time;
  255.             }
  256.     }
  257.    closedir(dirp);
  258. } /* endif */
  259.  
  260.    if (!buf[0])
  261.      {
  262.       cprintf("No nodelist files found.\r\n");
  263.       exit(1);
  264.      }
  265.    strcpy(namebuf,dir);
  266.    addbackslash(namebuf);
  267.    strcat(namebuf,buf);
  268.    return namebuf;
  269. }
  270.  
  271. void main(int argc, char *argv[])
  272. {
  273. //  clrscr();
  274.   if (argc > 1)
  275.    {
  276.     if (strcmp(argv[1],"/?")==NULL)
  277.       {
  278.   cputs("\r\n\r\n");
  279.   cprintf("Nodelist Index Builder for GIGO vsn "__DATE__"\r\n");
  280.   cprintf("Usage:  COMPILE [path] [nodelistname] [/Append]\r\n"
  281.                  " Note that PATH and NODELISTNAME _must_ be specified\r\n"
  282.                  " seperately for this program to work.  It's quick, dirty,\r\n"
  283.                  " and way fast!  /APPEND may be specified if you need to\r\n"
  284.          " run this for more than one nodelist file.  Sample:\r\n"
  285.                  "   C> COMPILE .\ NODELIST\r\n"
  286.          "   C> COMPILE .\ EGGNET /A\r\n");
  287.      return;
  288.       }
  289.     strcpy(defaultdir,argv[1]);
  290.      }
  291.   addbackslash(defaultdir);
  292.   if (argc > 2)
  293.     strcpy(defaultnodelist,argv[2]);
  294.   if (argc > 3)
  295.     for (int index=3; index < argc; index++)
  296.      {
  297.        if (strnicmp(argv[index],"/A",2)==NULL)
  298.          append=1;
  299.      }
  300.   strcpy(defaultnodelist,getnodelist(defaultdir,defaultnodelist));
  301.   cprintf("Nodelist Index Builder for GIGO vsn "__DATE__"\r\n");
  302.   cprintf("Type %s /? for help info.\r\n",argv[0]);
  303.   cprintf(       "\r\nOptions selected:\r\n"
  304.                  "  Directory:  %s\r\n"
  305.                  "  Nodelist:   %s\r\n"
  306.                  "  Append:     %s\r\n\n",defaultdir,defaultnodelist,append?"Yes":"No (Overwriting)");
  307.  
  308.  if (!append)
  309.   unlink("NODELIST.GIG");
  310.  parsenodelist();
  311.  cprintf("\r\n");
  312. }
  313.