home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / net / cpp.elif / text0000.txt < prev   
Encoding:
Text File  |  1986-06-05  |  11.4 KB  |  426 lines
  1. This bounced when I tried to send it to mod.sources, so I am just posting.
  2. It was announced in various groups last week.
  3. =============================================================================
  4. Below is a context diff, suitable for use with patch, to the 4.2 BSD /lib/cpp.
  5. It provides two enhancements:
  6.  
  7.     1) Code provided by Doug Gwyn of the Ballistics Research Lab to
  8.        implement the recent-SV/ANSI C #elif preprocessor directive. This
  9.        code is not dependant on any command line option, since I figure
  10.        it is something that everyone will want, and it is something
  11.        that will be a standard in the C community. (BTW, the crummy
  12.        indentation is my fault, not his -- it follows the current "style".)
  13.  
  14.     2) Code written by me, based loosely on the existing code, to recognize
  15.        C++ comments that start with // and continue to the end of line.
  16.        This feature must be enabled with the -B command line argument.
  17.        ("B" is reminiscent of the old B language which had the //
  18.        comment, which is where C++ took it back from. Not terribly
  19.        mnemonic, I know.)
  20.  
  21. Those of you with C++ should change your CC shell script to invoke /lib/cpp
  22. with the new -B option.
  23.  
  24. Enjoy,
  25.  
  26. Arnold Robbins
  27. CSNET:    arnold@emory    BITNET:    arnold@emoryu1
  28. ARPA:    arnold%emory.csnet@csnet-relay.arpa
  29. UUCP:    { akgua, decvax, gatech, sb1, sb6, sunatl }!emory!arnold
  30.  
  31. "All this digital stuff is just a fad. Analog is the way to go."
  32.     -- William M. Robbins, 1984
  33. -------- cut here, feed to patch in /usr/src/lib/cpp ------
  34. *** ./README    Tue May 27 14:07:10 1986
  35. --- ../ncpp/README    Tue May 27 15:28:08 1986
  36. ***************
  37. *** 1,6
  38.   #
  39.   # @(#)README 1.2 8/30/82
  40.   #
  41.   August 30, 1982
  42.   Fixed by Kurt Shoens, UCB
  43.   If the "#line n name" occurs, then all future references
  44.  
  45. --- 1,12 -----
  46.   #
  47.   # @(#)README 1.2 8/30/82
  48.   #
  49. + May 27, 1985
  50. + Modified by Arnold Robbins, Emory University Computing Center.
  51. + With the -B option, will recognize C++ style start with // and go to
  52. + the end of the line comments. Also added in code from Doug Gwyn of
  53. + the Ballistics Research Laboratory to implement #elif.
  54. + 
  55.   August 30, 1982
  56.   Fixed by Kurt Shoens, UCB
  57.   If the "#line n name" occurs, then all future references
  58. *** ./cpp.c    Tue May 27 14:07:09 1986
  59. --- ../ncpp/cpp.c    Tue May 27 15:16:12 1986
  60. ***************
  61. *** 153,158
  62.   STATIC    int    nd    = 1;
  63.   STATIC    int    pflag;    /* don't put out lines "# 12 foo.c" */
  64.   int    passcom;    /* don't delete comments */
  65.   STATIC    int rflag;    /* allow macro recursion */
  66.   STATIC    int    ifno;
  67.   # define NPREDEF 20
  68.  
  69. --- 153,159 -----
  70.   STATIC    int    nd    = 1;
  71.   STATIC    int    pflag;    /* don't put out lines "# 12 foo.c" */
  72.   int    passcom;    /* don't delete comments */
  73. + int eolcom;        /* allow // ... \n comments */
  74.   STATIC    int rflag;    /* allow macro recursion */
  75.   STATIC    int    ifno;
  76.   # define NPREDEF 20
  77. ***************
  78. *** 185,190
  79.   STATIC    struct symtab *udfloc;
  80.   STATIC    struct symtab *incloc;
  81.   STATIC    struct symtab *ifloc;
  82.   STATIC    struct symtab *elsloc;
  83.   STATIC    struct symtab *eifloc;
  84.   STATIC    struct symtab *ifdloc;
  85.  
  86. --- 186,192 -----
  87.   STATIC    struct symtab *udfloc;
  88.   STATIC    struct symtab *incloc;
  89.   STATIC    struct symtab *ifloc;
  90. + STATIC    struct symtab *eliloc;        /* DAG -- added */
  91.   STATIC    struct symtab *elsloc;
  92.   STATIC    struct symtab *eifloc;
  93.   STATIC    struct symtab *ifdloc;
  94. ***************
  95. *** 196,201
  96.   STATIC    struct symtab *uflloc;
  97.   STATIC    int    trulvl;
  98.   STATIC    int    flslvl;
  99.   
  100.   sayline() {
  101.       if (pflag==0) fprintf(fout,"# %d \"%s\"\n", lineno[ifno], fnames[ifno]);
  102.  
  103. --- 198,205 -----
  104.   STATIC    struct symtab *uflloc;
  105.   STATIC    int    trulvl;
  106.   STATIC    int    flslvl;
  107. + #define MAX_IF_NESTING    64        /* DAG -- added (must be at least 6) */
  108. + STATIC    int    ifdone[MAX_IF_NESTING];    /* DAG -- added */
  109.   
  110.   sayline() {
  111.       if (pflag==0) fprintf(fout,"# %d \"%s\"\n", lineno[ifno], fnames[ifno]);
  112. ***************
  113. *** 379,385
  114.           else {++p; break;}
  115.       } break;
  116.       case '/': for (;;) {
  117. !         if (*p++=='*') {/* comment */
  118.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  119.               for (;;) {
  120.                   while (!iscom(*p++));
  121.  
  122. --- 383,390 -----
  123.           else {++p; break;}
  124.       } break;
  125.       case '/': for (;;) {
  126. !         if (*p=='/' && eolcom) {/* C++ style comment to end of line */
  127. !             p++;
  128.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  129.               for (;;) {
  130.                   while (*p && *p++ != '\n');
  131. ***************
  132. *** 382,387
  133.           if (*p++=='*') {/* comment */
  134.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  135.               for (;;) {
  136.                   while (!iscom(*p++));
  137.                   if (p[-1]=='*') for (;;) {
  138.                       if (*p++=='/') goto endcom;
  139.  
  140. --- 387,411 -----
  141.               p++;
  142.               if (!passcom) {inp=p-2; dump(); ++flslvl;}
  143.               for (;;) {
  144. +                 while (*p && *p++ != '\n');
  145. +                 if (p[-1]=='\n') {
  146. +                     p--;
  147. +                     goto endcpluscom;
  148. +                 } else if (eob(--p)) {
  149. +                     if (!passcom) {inp=p; p=refill(p);}
  150. +                     else if ((p-inp)>=BUFSIZ) {/* split long comment */
  151. +                         inp=p; p=refill(p);
  152. +                     } else p=refill(p);
  153. +                 } else ++p; /* ignore null byte */
  154. +             }
  155. +         endcpluscom:
  156. +             if (!passcom) {outp=inp=p; --flslvl;}
  157. +             goto newline;
  158. +             break;
  159. +         }
  160. +         else if (*p++=='*') {/* comment */
  161. +             if (!passcom) {inp=p-2; dump(); ++flslvl;}
  162. +             for (;;) {
  163.                   while (!iscom(*p++));
  164.                   if (p[-1]=='*') for (;;) {
  165.                       if (*p++=='/') goto endcom;
  166. ***************
  167. *** 430,435
  168.           }
  169.       } break;
  170.       case '\n': {
  171.           ++lineno[ifno]; if (isslo) {state=LF; return(p);}
  172.   prevlf:
  173.           state=BEG;
  174.  
  175. --- 454,460 -----
  176.           }
  177.       } break;
  178.       case '\n': {
  179. + newline:
  180.           ++lineno[ifno]; if (isslo) {state=LF; return(p);}
  181.   prevlf:
  182.           state=BEG;
  183. ***************
  184. *** 710,716
  185.   #define fasscan() ptrtab=fastab+COFF
  186.   #define sloscan() ptrtab=slotab+COFF
  187.   
  188. ! char *
  189.   control(p) register char *p; {/* find and handle preprocessor control lines */
  190.       register struct symtab *np;
  191.   for (;;) {
  192.  
  193. --- 735,741 -----
  194.   #define fasscan() ptrtab=fastab+COFF
  195.   #define sloscan() ptrtab=slotab+COFF
  196.   
  197. ! void        /* DAG -- bug fix (was (char *)) */
  198.   control(p) register char *p; {/* find and handle preprocessor control lines */
  199.       register struct symtab *np;
  200.   for (;;) {
  201. ***************
  202. *** 723,729
  203.           if (flslvl==0) {p=doincl(p); continue;}
  204.       } else if (np==ifnloc) {/* ifndef */
  205.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  206. !         if (flslvl==0 && np->value==0) ++trulvl;
  207.           else ++flslvl;
  208.       } else if (np==ifdloc) {/* ifdef */
  209.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  210.  
  211. --- 748,758 -----
  212.           if (flslvl==0) {p=doincl(p); continue;}
  213.       } else if (np==ifnloc) {/* ifndef */
  214.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  215. !         if (flslvl==0)
  216. !             if (ifdone[trulvl] = np->value == 0)
  217. !                 ++trulvl;
  218. !             else
  219. !                 ++flslvl;
  220.           else ++flslvl;
  221.       } else if (np==ifdloc) {/* ifdef */
  222.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  223. ***************
  224. *** 727,733
  225.           else ++flslvl;
  226.       } else if (np==ifdloc) {/* ifdef */
  227.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  228. !         if (flslvl==0 && np->value!=0) ++trulvl;
  229.           else ++flslvl;
  230.       } else if (np==eifloc) {/* endif */
  231.           if (flslvl) {if (--flslvl==0) sayline();}
  232.  
  233. --- 756,766 -----
  234.           else ++flslvl;
  235.       } else if (np==ifdloc) {/* ifdef */
  236.           ++flslvl; p=skipbl(p); np=slookup(inp,p,0); --flslvl;
  237. !         if (flslvl==0)
  238. !             if (ifdone[trulvl] = np->value!=0)
  239. !                 ++trulvl;
  240. !             else
  241. !                 ++flslvl;
  242.           else ++flslvl;
  243.       } else if (np==eifloc) {/* endif */
  244.           if (flslvl) {if (--flslvl==0) sayline();}
  245. ***************
  246. *** 731,737
  247.           else ++flslvl;
  248.       } else if (np==eifloc) {/* endif */
  249.           if (flslvl) {if (--flslvl==0) sayline();}
  250. !         else if (trulvl) --trulvl;
  251.           else pperror("If-less endif",0);
  252.       } else if (np==elsloc) {/* else */
  253.           if (flslvl) {
  254.  
  255. --- 764,770 -----
  256.           else ++flslvl;
  257.       } else if (np==eifloc) {/* endif */
  258.           if (flslvl) {if (--flslvl==0) sayline();}
  259. !         else if (trulvl) ifdone[--trulvl] = 0;    /* DAG */
  260.           else pperror("If-less endif",0);
  261.       } else if (np==elsloc) {/* else */
  262.           if (flslvl) {
  263. ***************
  264. *** 735,741
  265.           else pperror("If-less endif",0);
  266.       } else if (np==elsloc) {/* else */
  267.           if (flslvl) {
  268. !             if (--flslvl!=0) ++flslvl;
  269.               else {++trulvl; sayline();}
  270.           }
  271.           else if (trulvl) {++flslvl; --trulvl;}
  272.  
  273. --- 768,774 -----
  274.           else pperror("If-less endif",0);
  275.       } else if (np==elsloc) {/* else */
  276.           if (flslvl) {
  277. !             if (--flslvl!=0 || ifdone[trulvl]) ++flslvl;
  278.               else {++trulvl; sayline();}
  279.           }
  280.           else if (trulvl) {++flslvl; --trulvl;}
  281. ***************
  282. *** 747,753
  283.       } else if (np==ifloc) {/* if */
  284.   #if tgp
  285.           pperror(" IF not implemented, true assumed", 0);
  286. !         if (flslvl==0) ++trulvl; else ++flslvl;
  287.   #else
  288.           newp=p;
  289.           if (flslvl==0 && yyparse()) ++trulvl; else ++flslvl;
  290.  
  291. --- 780,786 -----
  292.       } else if (np==ifloc) {/* if */
  293.   #if tgp
  294.           pperror(" IF not implemented, true assumed", 0);
  295. !         if (flslvl==0) ifdone[trulvl++] = 1; else ++flslvl;
  296.   #else
  297.           newp=p;
  298.           if (flslvl==0)
  299. ***************
  300. *** 750,756
  301.           if (flslvl==0) ++trulvl; else ++flslvl;
  302.   #else
  303.           newp=p;
  304. !         if (flslvl==0 && yyparse()) ++trulvl; else ++flslvl;
  305.           p=newp;
  306.   #endif
  307.       } else if (np==lneloc) {/* line */
  308.  
  309. --- 783,796 -----
  310.           if (flslvl==0) ifdone[trulvl++] = 1; else ++flslvl;
  311.   #else
  312.           newp=p;
  313. !         if (flslvl==0)
  314. !         {
  315. !             if (ifdone[trulvl] = yyparse())    /* DAG */
  316. !                 ++trulvl;
  317. !             else
  318. !                 ++flslvl;
  319. !         }
  320. !         else ++flslvl;
  321.           p=newp;
  322.   #endif
  323.       } else if (np==eliloc) {/* elif */    /* DAG -- added */
  324. ***************
  325. *** 753,758
  326.           if (flslvl==0 && yyparse()) ++trulvl; else ++flslvl;
  327.           p=newp;
  328.   #endif
  329.       } else if (np==lneloc) {/* line */
  330.           if (flslvl==0 && pflag==0) {
  331.               char *cp, *cp2, *savestring();
  332.  
  333. --- 793,839 -----
  334.           else ++flslvl;
  335.           p=newp;
  336.   #endif
  337. +     } else if (np==eliloc) {/* elif */    /* DAG -- added */
  338. + #if tgp
  339. +         pperror ( " ELIF not implemented, true assumed", (char *) 0, (char *) 0);
  340. +         if (flslvl)
  341. +         {
  342. +             if (--flslvl == 0 && !ifdeone[trulvl])
  343. +             {
  344. +                 ifdone[trulvl++] = 1;
  345. +                 sayline():
  346. +             }
  347. +             else
  348. +                 ++flslvl;
  349. +         }
  350. +         else if (trulvl)
  351. +         {
  352. +             ++flslvl;
  353. +             --trulvl;
  354. +         }
  355. +         else
  356. +             pperror ( "If-less elif"< (char *) 0, (char *) 0);
  357. + #else
  358. +         newp = p;
  359. +         if (flslvl)
  360. +         {
  361. +             if (--flslvl == 0 && !ifdone[trulvl] && yyparse())
  362. +             {
  363. +                 ifdone[trulvl++] = 1;
  364. +                 sayline();
  365. +             }
  366. +             else
  367. +                 ++flslvl;
  368. +         }
  369. +         else if (trulvl)
  370. +         {
  371. +             ++flslvl;
  372. +             --trulvl;
  373. +         }
  374. +         else
  375. +             pperror ("If-less elif", (char *) 0, (char *) 0);
  376. +         p = newp;
  377. + #endif
  378.       } else if (np==lneloc) {/* line */
  379.           if (flslvl==0 && pflag==0) {
  380.               char *cp, *cp2, *savestring();
  381. ***************
  382. *** 1067,1072
  383.                   case 'E': continue;
  384.                   case 'R': ++rflag; continue;
  385.                   case 'C': passcom++; continue;
  386.                   case 'D':
  387.                       if (predef>prespc+NPREDEF) {
  388.                           pperror("too many -D options, ignoring %s",argv[i]);
  389.  
  390. --- 1148,1154 -----
  391.                   case 'E': continue;
  392.                   case 'R': ++rflag; continue;
  393.                   case 'C': passcom++; continue;
  394. +                 case 'B': eolcom++; continue;
  395.                   case 'D':
  396.                       if (predef>prespc+NPREDEF) {
  397.                           pperror("too many -D options, ignoring %s",argv[i]);
  398. ***************
  399. *** 1141,1146
  400.       ifdloc=ppsym("ifdef");
  401.       ifnloc=ppsym("ifndef");
  402.       ifloc=ppsym("if");
  403.       lneloc=ppsym("line");
  404.       for (i=sizeof(macbit)/sizeof(macbit[0]); --i>=0; ) macbit[i]=0;
  405.   # if unix
  406.  
  407. --- 1223,1229 -----
  408.       ifdloc=ppsym("ifdef");
  409.       ifnloc=ppsym("ifndef");
  410.       ifloc=ppsym("if");
  411. +     eliloc=ppsym("elif");
  412.       lneloc=ppsym("line");
  413.       for (i=sizeof(macbit)/sizeof(macbit[0]); --i>=0; ) macbit[i]=0;
  414.   # if unix
  415.  
  416. -- 
  417. Arnold Robbins
  418. CSNET:    arnold@emory    BITNET:    arnold@emoryu1
  419. ARPA:    arnold%emory.csnet@csnet-relay.arpa
  420. UUCP:    { akgua, decvax, gatech, sb1, sb6, sunatl }!emory!arnold
  421.  
  422. "All this digital stuff is just a fad. Analog is the way to go."
  423.     -- William M. Robbins, 1984
  424.  
  425.  
  426.