1565 /* dirs[nd++] = "/compool"; */
1566 }
1567 dirs[nd++] = 0;
1568 defloc=ppsym("define");
1569 udfloc=ppsym("undef");
1570 incloc=ppsym("include");
1571 elsloc=ppsym("else");
1572 eifloc=ppsym("endif");
1573 elifloc=ppsym("elif");
1574 ifdloc=ppsym("ifdef");
1575 ifnloc=ppsym("ifndef");
1576 ifloc=ppsym("if");
1577 lneloc=ppsym("line");
1578 idtloc=ppsym("ident");
1579 pragmaloc=ppsym("pragma");
1580 errorloc=ppsym("error");
1581 for (i=sizeof(macbit)/sizeof(macbit[0]); --i>=0; )
1582 macbit[i]=0;
1583
1584 if (! nopredef) {
1585 # if unix
1586 ysysloc=stsym("unix");
1587 # endif
1588 # if __sparc__
1589 varloc=stsym ("sparc");
1590 # endif
1591 # if __i386__
1592 varloc=stsym ("i386");
1593 # endif
1594 }
1595 ulnloc=stsym ("__LINE__");
1596 uflloc=stsym ("__FILE__");
1597 varloc=stsym ("__BUILTIN_VA_ARG_INCR");
1598
1599 tf=fnames[ifno]; fnames[ifno]="command line"; lineno[ifno]=1;
1600 cp2=prespc;
1601 while (cp2<predef) stsym(*cp2++);
1602 cp2=punspc;
1603 while (cp2<prund) {
1604 if ((p=strdex(*cp2, '=')) != NULL) *p++='\0';
1605 if (strlen(*cp2) > symlen)
1606 (*cp2)[symlen] = '\0';
1607 lookup(*cp2++, DROP);
|
1565 /* dirs[nd++] = "/compool"; */
1566 }
1567 dirs[nd++] = 0;
1568 defloc=ppsym("define");
1569 udfloc=ppsym("undef");
1570 incloc=ppsym("include");
1571 elsloc=ppsym("else");
1572 eifloc=ppsym("endif");
1573 elifloc=ppsym("elif");
1574 ifdloc=ppsym("ifdef");
1575 ifnloc=ppsym("ifndef");
1576 ifloc=ppsym("if");
1577 lneloc=ppsym("line");
1578 idtloc=ppsym("ident");
1579 pragmaloc=ppsym("pragma");
1580 errorloc=ppsym("error");
1581 for (i=sizeof(macbit)/sizeof(macbit[0]); --i>=0; )
1582 macbit[i]=0;
1583
1584 if (! nopredef) {
1585 ysysloc=stsym("unix");
1586 ysysloc=stsym("sun");
1587 # if __sparc__
1588 varloc=stsym ("sparc");
1589 # endif
1590 # if __i386__
1591 varloc=stsym ("i386");
1592 # endif
1593 }
1594 ulnloc=stsym ("__LINE__");
1595 uflloc=stsym ("__FILE__");
1596 varloc=stsym ("__BUILTIN_VA_ARG_INCR");
1597
1598 tf=fnames[ifno]; fnames[ifno]="command line"; lineno[ifno]=1;
1599 cp2=prespc;
1600 while (cp2<predef) stsym(*cp2++);
1601 cp2=punspc;
1602 while (cp2<prund) {
1603 if ((p=strdex(*cp2, '=')) != NULL) *p++='\0';
1604 if (strlen(*cp2) > symlen)
1605 (*cp2)[symlen] = '\0';
1606 lookup(*cp2++, DROP);
|