[BACK]Return to d.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097

Annotation of OpenXM/src/k097/d.c, Revision 1.14

1.14    ! takayama    1: /* $OpenXM: OpenXM/src/k097/d.c,v 1.13 2003/07/22 07:39:57 takayama Exp $ */
1.1       maekawa     2: /* simple.c,  1996, 1/1 --- 1/5 */
                      3: #include <stdio.h>
                      4: #include <ctype.h>
                      5: #include <setjmp.h>
                      6: #include <stdlib.h>
1.9       takayama    7: #include <sys/types.h>
                      8: #include <sys/stat.h>
1.1       maekawa     9: #include "d.h"
                     10: #include "simple.tab.h"
1.10      takayama   11: #include "ox_pathfinder.h"
1.1       maekawa    12:
1.8       takayama   13: #if defined(__CYGWIN__)
                     14: #define JMP_BUF sigjmp_buf
                     15: #define SETJMP(env)  sigsetjmp(env,1)
                     16: #define LONGJMP(env,p)  siglongjmp(env,p)
                     17: #else
                     18: #define JMP_BUF jmp_buf
                     19: #define SETJMP(env)  setjmp(env)
                     20: #define LONGJMP(env,p)  longjmp(env,p)
                     21: #endif
1.1       maekawa    22:
1.8       takayama   23: JMP_BUF KCenvOfParser;
1.1       maekawa    24:
                     25: int DebugMode = 1;
                     26: extern int K00_verbose;
                     27:
1.3       noro       28: static FILE *outfile;
1.1       maekawa    29: int Linenumber = 0;
                     30: objectp Inop = (objectp) NULL;  /* Input stream */
                     31: int Saki = 0;   /* Look a head */
                     32:
                     33: #define SSIZE 10
                     34: objectp InopStack[SSIZE];
                     35: int     LinenumberStack[SSIZE];
                     36: int     SakiStack[SSIZE];
                     37: int     Stackp = 0;
                     38:
                     39: int Mydebug = 1;
                     40: int Replace = 0;
                     41: int Debug2 = 0;
                     42: /* If you need to check only the lexical analizer,
                     43:    change main2() ---> main()
                     44:           main() ----> main2()
                     45: */
                     46:
                     47: int Interactive = 1;
                     48:
1.7       takayama   49: static int isThereStdin();
                     50: #define MARK_CHAR  3
                     51:
1.1       maekawa    52: main2(int argc, char *argv[]) {
                     53:   FILE *f;
                     54:   FILE *outf;
                     55:   char name[1024];
                     56:   int n;
                     57:   int i;
                     58:   if (argc < 2) {
                     59:     repl(stdin,stdout);
                     60:   }else{
                     61:     for (i=1; i<argc; i++) {
                     62:       fprintf(stderr,"Input file=%s\n",argv[i]);
                     63:       f = fopen(argv[i],"r");
                     64:       if (f == (FILE *)NULL) {
                     65:        fprintf(stderr,"Error: No file %s\n",argv[i]);
                     66:        exit(10);
                     67:       }
                     68:       strcpy(name,argv[i]);
                     69:       n = strlen(name);
                     70:       name[n] = '.'; name[n+1] = 't'; name[n+2]='\0';
                     71:       outf = fopen(name,"w");
                     72:       if (f == (FILE *)NULL) {
                     73:        fprintf(stderr,"Error: failed to open the file %s\n",name);
                     74:        exit(10);
                     75:       }
                     76:       fprintf(stderr,"Output file=%s\n",name);
                     77:       repl(f,outf);
                     78:     }
                     79:   }
                     80: }
                     81:
                     82: repl(FILE *inFile,FILE *outFile) {
                     83:   int c;
                     84:   int t;
                     85:   Inop = newObject_d();
                     86:   Inop->tag = Sfile;
                     87:   Inop->lc.file = inFile;
                     88:   Inop->rc.sbuf = newStringBuf((char *)NULL);
                     89:
                     90:   outfile = outFile;
                     91:   while ( (c = KClex()) != EOF) {
                     92:     if (Mydebug) {
                     93:       if ( c > ' ' && c < 0x7f ) {
                     94:        printf("\nKClex returns --- %x [ %c ].",c,c);
                     95:       }else{
                     96:        switch(c) {
                     97:        case ID:    printf("\nKClex returns --- ID.[%s]",
                     98:                           KClval->lc.str); break;
                     99:        case QUOTE: printf("\nKClex returns --- QUOTE. [%s]",
                    100:                           KClval->lc.str); break;
                    101:        case SINGLEQUOTE:    printf("\nKClex returns --- SINGLEQUOTE.[%x]",
                    102:                                    KClval->lc.ival); break;
                    103:        /*case NUMBER:    printf("\nKClex returns --- NUMBER.[%d]",
                    104:                               KClval->lc.ival); break;*/
                    105:        case NUMBER:    printf("\nKClex returns --- NUMBER.[%s]",
                    106:                               KClval->lc.str); break;
                    107:
                    108:        case CLASS:    printf("\nKClex returns --- CLASS."); break;
                    109:        case SUPER:    printf("\nKClex returns --- SUPER."); break;
                    110:        case OPERATOR:    printf("\nKClex returns --- OPERATOR."); break;
                    111:        case FINAL:    printf("\nKClex returns --- FINAL."); break;
                    112:        case EXTENDS:    printf("\nKClex returns --- EXTENDS."); break;
                    113:        case INCETANCEVARIABLE:
                    114:          printf("\nKClex returns --- INCETANCEVARIABLE."); break;
                    115:        case MODULE:    printf("\nKClex returns --- MODULE."); break;
                    116:         case SM1:       printf("\nKClex returns --- SM1."); break;
                    117:        case PRINT: printf("\nKClex returns --- PRINT."); break;
                    118:        case LOCAL: printf("\nKClex returns --- LOCAL."); break;
                    119:        case DEF: printf("\nKClex returns --- DEF."); break;
                    120:        case BREAK: printf("\nKClex returns --- BREAK."); break;
                    121:        case CASE:    printf("\nKClex returns --- CASE."); break;
                    122:        case CHAR:    printf("\nKClex returns --- CHAR."); break;
                    123:        case CONST:    printf("\nKClex returns --- CONST."); break;
                    124:        case CONTINUE:    printf("\nKClex returns --- CONTINUE."); break;
                    125:        case DEFAULT:    printf("\nKClex returns --- DEFAULT."); break;
                    126:        case DO:    printf("\nKClex returns --- DO."); break;
                    127:        case DOUBLE:    printf("\nKClex returns --- DOUBLE."); break;
                    128:        case ELSE:    printf("\nKClex returns --- ELSE."); break;
                    129:        case ENUM:    printf("\nKClex returns --- ENUM."); break;
                    130:        case EXTERN:    printf("\nKClex returns --- EXTERN."); break;
                    131:        case FLOAT:    printf("\nKClex returns --- FLOAT."); break;
                    132:        case FOR:    printf("\nKClex returns --- FOR."); break;
                    133:        case GOTO:    printf("\nKClex returns --- GOTO."); break;
                    134:        case IF:    printf("\nKClex returns --- IF."); break;
                    135:        case INT:    printf("\nKClex returns --- INT."); break;
                    136:        case LONG:    printf("\nKClex returns --- LONG."); break;
                    137:        case REGISTER:    printf("\nKClex returns --- REGISTER."); break;
                    138:        case RETURN:    printf("\nKClex returns --- RETURN."); break;
                    139:        case SHORT:    printf("\nKClex returns --- SHORT."); break;
                    140:        case SIGNED:    printf("\nKClex returns --- SIGNED."); break;
                    141:        case SIZEOF:    printf("\nKClex returns --- SIZEOF."); break;
                    142:        case STATIC:    printf("\nKClex returns --- STATIC."); break;
                    143:        case STRUCT:    printf("\nKClex returns --- SWITCH."); break;
                    144:        case TYPEDEF:    printf("\nKClex returns --- TYPEDEF."); break;
                    145:        case UNION:    printf("\nKClex returns --- UNION."); break;
                    146:        case UNSIGNED:    printf("\nKClex returns --- UNSIGNED."); break;
                    147:        case VOLATILE: printf("\nKClex returns --- VOLATILE."); break;
                    148:        case VOID: printf("\nKClex returns --- VOID."); break;
                    149:        case WHILE: printf("\nKClex returns --- WHILE."); break;
                    150:
                    151:        case EQUAL: printf("\nKClex returns --- ==."); break;
                    152:        case LESSEQUAL: printf("\nKClex returns --- <=."); break;
                    153:        case LEFTSHIFT: printf("\nKClex returns --- <<."); break;
                    154:        case GREATEREQUAL: printf("\nKClex returns --- >=."); break;
                    155:        case RIGHTSHIFT: printf("\nKClex returns --- >>."); break;
                    156:        case AND: printf("\nKClex returns --- &&."); break;
                    157:        case OR: printf("\nKClex returns --- ||."); break;
                    158:        case NOTEQUAL: printf("\nKClex returns --- !=."); break;
                    159:        case PUT: printf("\nKClex returns --- :=."); break;
                    160:        case INCREMENT: printf("\nKClex returns --- ++."); break;
                    161:        case DECREMENT: printf("\nKClex returns --- --."); break;
                    162:        case MEMBER: printf("\nKClex returns --- ->."); break;
                    163:        case RESIDUEPUT: printf("\nKClex returns --- %=."); break;
                    164:        case NEGATEPUT: printf("\nKClex returns --- ^=."); break;
                    165:        case MULTPUT: printf("\nKClex returns --- *=."); break;
                    166:
                    167:        default:
                    168:          printf("\nKClex returns --- %x(%d)[%c].",c,c,c);
                    169:        }
                    170:       }
                    171:       printf(" line=%d.\n",Linenumber);
                    172:     }
                    173:   }
                    174: }
                    175:
                    176: /* --------------------------------------------------------- */
                    177: objectp newObject_d() {
                    178:   objectp obj;
                    179:   obj = (objectp) mymalloc(sizeof(struct Object));
                    180:   if (obj == (objectp) NULL) {
                    181:     fprintf(stderr,"Error: No more memory in newObject_d().\n");
                    182:     exit(10);
                    183:   }
                    184:   obj->tag = Snull;
                    185:   return(obj);
                    186: }
                    187:
                    188: char *newString(int size) {
                    189:   char *str;
                    190:   if (size <= 0) size=1;
                    191:   str = (char *)mymalloc(sizeof(char)*size);
                    192:   if (str == (char *)NULL) {
                    193:     fprintf(stderr,"Error: No more memory in newObject_d().\n");
                    194:     exit(10);
                    195:   }
                    196:   return(str);
                    197: }
                    198:
                    199: void printObject_d(FILE *fp,objectp op)
                    200: {
                    201:   if (op == (objectp) NULL) {
                    202:     fprintf(fp," <null objectp> ");
                    203:     return;
                    204:   }
                    205:   switch(op->tag) {
                    206:   case Sinteger:
                    207:     fprintf(fp,"%d",op->lc.ival);
                    208:     return;
                    209:     break;
                    210:   case Sstring:
                    211:     fprintf(fp,"%s",op->lc.str);
                    212:     return;
                    213:     break;
                    214:   case CLASSNAME_CONTEXT:
                    215:     K00fprintContext(fp,K00objectToContext(op));
                    216:     return;
                    217:     break;
                    218:   default:
                    219:     fprintf(stderr,"printObject_d(): Sorry. Not implemented.");
                    220:     break;
                    221:   }
                    222: }
                    223:
                    224: void printObjectSymbol(objectp op)
                    225: {
                    226:   static char tmp[1024];
                    227:   if (op == (objectp) NULL) {
                    228:     printf(" <null objectp> ");
                    229:     return;
                    230:   }
                    231:   switch(op->tag) {
                    232:   case Sinteger:
                    233:     sprintf(tmp,"%d",op->lc.ival);
                    234:     pkkan(tmp);
                    235:     return; break;
                    236:   case Sstring:
                    237:     pkkan(op->lc.str);
                    238:     return; break;
                    239:   default:
                    240:     fprintf(stderr,"(printObjectSymbol(): Sorry. Not implemented.)");
                    241:     break;
                    242:   }
                    243: }
                    244:
                    245: void printTens(objectp op)
                    246: {
                    247:   static char tmp[1024];
                    248:   int n;
                    249:   int i;
                    250:   if (op == (objectp) NULL) {
                    251:     printf(" <null objectp> ");
                    252:     return;
                    253:   }
                    254:   switch(op->tag) {
                    255:   case Sstring:
                    256:     n = strlen(op->lc.str);
                    257:     if (n > 1022) {
                    258:       fprintf(stderr,"printTens(): Too long string. ");
                    259:       return;
                    260:     }
                    261:     tmp[0] = '1';
                    262:     for (i=1; i<=n; i++) tmp[i] = '0';
                    263:     tmp[n+1] = 0;
                    264:     pkkan(tmp);
                    265:     return; break;
                    266:   default:
                    267:     fprintf(stderr,"(printTens(): Sorry. Not implemented.)");
                    268:     break;
                    269:   }
                    270: }
                    271:
                    272: char *objectSymbolToString(objectp op)
                    273: {
                    274:   static char tmp[1024];
                    275:   char *r = (char *)NULL;
                    276:   if (op == (objectp) NULL) {
                    277:     printf(" <null objectp> ");
                    278:     return (r);
                    279:   }
                    280:   switch(op->tag) {
                    281:   case Sinteger:
                    282:     sprintf(tmp,"%d",op->lc.ival);
                    283:     r = (char *)GC_malloc(sizeof(char)*(strlen(tmp)+2));
                    284:     strcpy(r,tmp);
                    285:     break;
                    286:   case Sstring:
                    287:     r = (char *)GC_malloc(sizeof(char)*(strlen(op->lc.str)+2));
                    288:     strcpy(r,op->lc.str);
                    289:     break;
                    290:   default:
                    291:     fprintf(stderr,"(objectSymbolToString(): Sorry. Not implemented.)");
                    292:     break;
                    293:   }
                    294:   return(r);
                    295: }
                    296:
                    297: objectp ooAdd(objectp a,objectp b)
                    298: {
                    299:   objectp r;
                    300:   if (a == (objectp)NULL || b == (objectp)NULL) return((objectp) NULL);
                    301:   if (a->tag == Sinteger && b->tag == Sinteger) {
                    302:     r = newObject_d();
                    303:     r->tag = Sinteger;
                    304:     r->lc.ival = a->lc.ival + b->lc.ival;
                    305:     return(r);
                    306:   }else{
                    307:     fprintf(stderr,"ooAdd(): Sorry. Not implemented.");
                    308:     return((objectp)NULL);
                    309:   }
                    310: }
                    311:
                    312: objectp ooMult(objectp a,objectp b)
                    313: {
                    314:   objectp r;
                    315:   if (a == (objectp)NULL || b == (objectp)NULL) return((objectp) NULL);
                    316:   if (a->tag == Sinteger && b->tag == Sinteger) {
                    317:     r = newObject_d();
                    318:     r->tag = Sinteger;
                    319:     r->lc.ival = a->lc.ival * b->lc.ival;
                    320:     return(r);
                    321:   }else{
                    322:     fprintf(stderr,"ooMult(): Sorry. Not implemented.");
                    323:     return((objectp)NULL);
                    324:   }
                    325: }
                    326:
                    327: /* ------------------------------------------- */
                    328:
                    329: int KClex() {
                    330:   extern int Saki; /* Saki-yomi */
                    331:   int d;
                    332:   int state = 0;
                    333:   int i;
                    334:   static char nametmp[1024];
                    335:   char *name = nametmp;
                    336:   char *str;
                    337:   KClval = (objectp) NULL;
                    338:   while (1) {
                    339:     switch( state ) {
                    340:     case 0:
                    341:       /* printf(" <%x> ",Saki); */
                    342:       if (Saki == EOF) {
                    343:        return(Saki);
                    344:       }
                    345:       if (Saki <= ' ') {
                    346:        if (Saki == '\n') ++Linenumber;
                    347:        if (Replace) putchar0(Saki);
                    348:        Saki = fsgetc(Inop); break;
                    349:       }
                    350:       if ( Saki == '\"' ) {
                    351:        str = readstring();
                    352:        /* if (Mydebug) printf("[string: %s]",str); */
                    353:
                    354:        KClval = newObject_d();
                    355:        KClval->tag = Sstring;
                    356:        KClval->lc.str = newString(strlen(str)+1);
                    357:        strcpy(KClval->lc.str,str);
                    358:
                    359:        Saki = fsgetc(Inop);
                    360:        return(QUOTE);
                    361:        break;
                    362:       }
                    363:       if (Saki == '\'' ) {
                    364:        d = readchar();
                    365:        Saki = fsgetc(Inop);
                    366:
                    367:        KClval = newObject_d();
                    368:        KClval->tag = Sinteger;
                    369:        KClval->lc.ival = d;
                    370:
                    371:        return(SINGLEQUOTE);
                    372:       }
                    373:       /* single */
                    374:       if ( Saki == '(' || Saki == ')' || Saki == ';' ||
                    375:           Saki == '{' || Saki == '}' || Saki == ',' ||
                    376:           Saki == '[' || Saki == ']' || Saki == '~' ||
                    377:           Saki == '?' || Saki == '.') {
                    378:        d = Saki; Saki = fsgetc(Inop);
                    379:        if (Replace) putchar0(d);
                    380:        return(d);
                    381:       }
                    382:
                    383:       /* single or combination =, == */
                    384:       if ( Saki == '=') {
                    385:        state = 51; Saki = fsgetc(Inop); break;
                    386:       } else if ( Saki == '<' ) {
                    387:        state = 52; Saki = fsgetc(Inop); break;
                    388:       } else if ( Saki == '>' ) {
                    389:        state = 53; Saki = fsgetc(Inop); break;
                    390:       } else if ( Saki == '/' ) {
                    391:        state = 54; Saki = fsgetc(Inop); break;
                    392:       } else if ( Saki == '&' ) {
                    393:        state = 55; Saki = fsgetc(Inop); break;
                    394:       } else if ( Saki == '|' ) {
                    395:        state = 56; Saki = fsgetc(Inop); break;
                    396:       } else if ( Saki == '!' ) {
                    397:        state = 57; Saki = fsgetc(Inop); break;
                    398:       } else if ( Saki == ':' ) {
                    399:        state = 58; Saki = fsgetc(Inop); break;
                    400:       } else if ( Saki == '+' ) {
                    401:        state = 59; Saki = fsgetc(Inop); break;
                    402:       } else if ( Saki == '-' ) {
                    403:        state = 60; Saki = fsgetc(Inop); break;
                    404:       } else if ( Saki == '%' ) {
                    405:        state = 61; Saki = fsgetc(Inop); break;
                    406:       } else if ( Saki == '^' ) {
                    407:        state = 62; Saki = fsgetc(Inop); break;
                    408:       } else if ( Saki == '*' ) {
                    409:        state = 63; Saki = fsgetc(Inop); break;
                    410:       } else ;
                    411:
                    412:
                    413:       /* else : Identifier or function names. */
                    414:       name[0] = Saki; i=1; name[i] = '\0';
                    415:       Saki = fsgetc(Inop);
                    416:       if (isdigit(name[0])) {
                    417:        /*while (isdigit(Saki) || isalpha(Saki) || Saki=='.') */
                    418:        while (isdigit(Saki) || isalpha(Saki)) {
                    419:          name[i++] = Saki; name[i] = '\0';
                    420:          Saki = fsgetc(Inop);
                    421:        }
                    422:       }else{
                    423:        while (isdigit(Saki) || isalpha(Saki) || (Saki=='_') ||
                    424:               ( Saki>= 256)) {
                    425:          name[i++] = Saki; name[i] = '\0';
                    426:          Saki = fsgetc(Inop);
                    427:        }
                    428:       }
                    429:       /*if (Mydebug) printf("identifier string=[%s]",name);*/
                    430:       if (isdigit(name[0])) {
                    431:         /****************************
                    432:          /**case : machine integer.
                    433:        KClval = newObject_d();
                    434:        KClval->tag = Sinteger;
                    435:        sscanf(name,"%d",&(KClval->lc.ival));*************/
                    436:        /* Other cases.  */
                    437:        KClval = newObject_d();
                    438:        KClval->tag = Sstring;
                    439:        KClval->lc.str = newString(strlen(name)+1);
                    440:        strcpy(KClval->lc.str,name);
                    441:        return(NUMBER);
                    442:        break;
                    443:       } /* else : Identifier case.*/
                    444:
                    445:       if (d = isReserved(name)) {
                    446:        if (Replace) printf0(name);
                    447:        return(d);
                    448:       } else {
                    449:        if (Replace) {
                    450:          if (shouldReplace(name))
                    451:            printf1(name); /* do your own replacement in printf1*/
                    452:          else
                    453:            printf0(name);
                    454:        }
                    455:        KClval = newObject_d();
                    456:        KClval->tag = Sstring;
                    457:        KClval->lc.str = newString(strlen(name)+1);
                    458:        strcpy(KClval->lc.str,name);
                    459:        return(ID);
                    460:       }
                    461:       break;
                    462:
                    463:     case 51:
                    464:       if (Replace) putchar0('=');
                    465:       if ( Saki == '=') {
                    466:        if (Replace) putchar0('=');
                    467:        Saki = fsgetc(Inop);state = 0;return(EQUAL); /* == */
                    468:       }else{
                    469:        state = 0;return('=');
                    470:       }
                    471:       break;
                    472:     case 52: /* 52 --- 60 tmporary return values */
                    473:       if (Replace) putchar0('<');
                    474:       if ( Saki == '=') {
                    475:        if (Replace) putchar0('=');
                    476:        Saki = fsgetc(Inop);state = 0;return(LESSEQUAL); /* <= */
                    477:       } else if ( Saki == '<') {
                    478:        if (Replace) putchar0('<');
                    479:        Saki = fsgetc(Inop);state = 0;return(LEFTSHIFT); /* << */
                    480:       }else{
                    481:        state = 0;return('<');
                    482:       }
                    483:       break;
                    484:     case 53:
                    485:       if (Replace) putchar0('>');
                    486:       if ( Saki == '=') {
                    487:        if (Replace) putchar0('=');
                    488:        Saki = fsgetc(Inop);state = 0;return(GREATEREQUAL); /* >= */
                    489:       } else if ( Saki == '>') {
                    490:        if (Replace) putchar0('>');
                    491:        Saki = fsgetc(Inop);state = 0;return(RIGHTSHIFT); /* >> */
                    492:       }else{
                    493:        state = 0;return('>');
                    494:       }
                    495:       break;
                    496:     case 54:
                    497:       if ( Saki == '*') {
                    498:        readcomment();
                    499:        Saki = fsgetc(Inop);state = 0;break; /* clike-comment */
                    500:       }else{
                    501:        if (Replace) putchar0('/');
                    502:        state = 0;return('/');
                    503:       }
                    504:       break;
                    505:     case 55:
                    506:       if (Replace) putchar0('&');
                    507:       if ( Saki == '&') {
                    508:        if (Replace) putchar0('&');
                    509:        Saki = fsgetc(Inop);state = 0;return(AND); /* && */
                    510:       }else{
                    511:        state = 0;return('&');
                    512:       }
                    513:       break;
                    514:     case 56:
                    515:       if (Replace) putchar0('|');
                    516:       if ( Saki == '|') {
                    517:        if (Replace) putchar0('|');
                    518:        Saki = fsgetc(Inop);state = 0;return(OR); /* || */
                    519:       }else{
                    520:        state = 0;return('|');
                    521:       }
                    522:       break;
                    523:     case 57:
                    524:       if (Replace) putchar0('!');
                    525:       if ( Saki == '=') {
                    526:        if (Replace) putchar0('=');
                    527:        Saki = fsgetc(Inop);state = 0;return(NOTEQUAL); /* != */
                    528:       }else{
                    529:        state = 0;return('!');
                    530:       }
                    531:       break;
                    532:     case 58:
                    533:       if (Replace) putchar0(':');
                    534:       if ( Saki == '=') {
                    535:        if (Replace) putchar0('=');
                    536:        Saki = fsgetc(Inop);state = 0;return(PUT); /* := */
                    537:       }else{
                    538:        state = 0;return(':');
                    539:       }
                    540:       break;
                    541:     case 59:
                    542:       if (Replace) putchar0('+');
                    543:       if ( Saki == '+') {
                    544:        if (Replace) putchar0('+');
                    545:        Saki = fsgetc(Inop);state = 0;return(INCREMENT); /* ++ */
                    546:       }else{
                    547:        state = 0;return('+');
                    548:       }
                    549:       break;
                    550:     case 60:
                    551:       if (Replace) putchar0('-');
                    552:       if ( Saki == '-') {
                    553:        if (Replace) putchar0('-');
                    554:        Saki = fsgetc(Inop);state = 0;return(DECREMENT); /* -- */
                    555:       }else if (Saki == '>') {
                    556:        if (Replace) putchar0('>');
                    557:        Saki = fsgetc(Inop);state = 0;return(MEMBER); /* -> */
                    558:       }else{
                    559:        state = 0;return('-');
                    560:       }
                    561:       break;
                    562:     case 61:
                    563:       if (Replace) putchar0('%');
                    564:       if ( Saki == '=') {
                    565:        if (Replace) putchar0('=');
                    566:        Saki = fsgetc(Inop);state = 0;return(RESIDUEPUT); /* %= */
                    567:       }else{
                    568:        state = 0;return('%');
                    569:       }
                    570:       break;
                    571:     case 62:
                    572:       if (Replace) putchar0('^');
                    573:       if ( Saki == '=') {
                    574:        if (Replace) putchar0('=');
                    575:        Saki = fsgetc(Inop);state = 0;return(NEGATEPUT); /* ^= */
                    576:       }else{
                    577:        state = 0;return('^');
                    578:       }
                    579:       break;
                    580:     case 63:
                    581:       if (Replace) putchar0('*');
                    582:       if ( Saki == '=') {
                    583:        if (Replace) putchar0('=');
                    584:        Saki = fsgetc(Inop);state = 0;return(MULTPUT); /* *= */
                    585:       }else{
                    586:        state = 0;return('*');
                    587:       }
                    588:       break;
                    589:
                    590:
                    591:     default:
                    592:       fprintf(stderr,"%d: Error in KClex().\n",Linenumber);
                    593:     }
                    594:   }
                    595:
                    596: }
                    597:
                    598: KCerror(char *s)   /* You need this function. Otherwise, you get core. */
                    599: {
                    600:   K00recoverFromError();
                    601:   fprintf(stderr,"\nSyntax Error in the line %d:%s\n",Linenumber,s);
1.7       takayama  602:   showStringBuff(Inop);
                    603:   /* Clean the junks. Try load("debug/buggy.k"); */
                    604:   if (isThereStdin()) {
                    605:        ungetc(MARK_CHAR,stdin);
                    606:        while (fsgetc(Inop) > MARK_CHAR) ;
                    607:   }
                    608:   return ;
1.8       takayama  609:   LONGJMP(KCenvOfParser,2);
1.1       maekawa   610:   exit(1);
                    611: }
                    612:
                    613: readcomment() {
                    614:   int c;
                    615:   while (1) {
                    616:     c = fsgetc(Inop);
                    617:     if (c == EOF) {
                    618:       fprintf(stderr,"%d: Unexpected end of file in a comment.\n",Linenumber);
                    619:       fsungetc(c,Inop); /* should change */
                    620:       return;
                    621:     }
                    622:     if (c == '*') {
                    623:       c = fsgetc(Inop);
                    624:       if (c == '/') return;
                    625:     }
                    626:   }
                    627: }
                    628:
                    629:
                    630: char *readstring() {
                    631:   static char strtmp[1024]; /* temporary */
                    632:   static int size = 1024;
                    633:   static char *str = strtmp;
                    634:   int i=0;
                    635:   int c;
                    636:   static char *strwork;
                    637:
                    638:
                    639:   if (Replace) putchar0('\"'); /* output " */
                    640:   while (1) {
                    641:     c = fsgetc(Inop);
                    642:     if (Replace) putchar0(c);
                    643:     if (c == '\"') {
                    644:       str[i] = '\0';
                    645:       return(str);
                    646:     }
                    647:     if (c == EOF) {
                    648:       fprintf(stderr,"%d: Unexpected end of file in the string.\n",Linenumber);
                    649:       fsungetc(c,Inop); /* should change */
                    650:       str[i]= '\0';
                    651:       return(str);
                    652:     }
                    653:     if (c == '\\') {
                    654:       c = fsgetc(Inop);
                    655:       if (Replace) {
                    656:        putchar0(c);
                    657:       }
                    658:       if (c == EOF) {
                    659:        fprintf(stderr,"%d: Unexpected end of file in the escape sequence.\n",Linenumber);
                    660:        fsungetc(c,Inop); /* should change */
                    661:        str[i]= '\0';
                    662:        return(str);
                    663:       }
                    664:     }
                    665:
                    666:     str[i++] = c;
                    667:     if (i >= size-10) {
                    668:       size = size*2;
                    669:       strwork = newString(size);
                    670:       strcpy(strwork,str);
                    671:       str = strwork;
                    672:     }
                    673:   }
                    674: }
                    675:
                    676:
                    677: readchar() {
                    678:   int c;
                    679:   if (Replace) putchar0('\'');
                    680:   c = fsgetc(Inop); /* 'c.'   '\.c' */
                    681:   if (Replace) putchar0(c);
                    682:   if ( c == '\\') {
                    683:     c = fsgetc(Inop); /* '\c.' */
                    684:     if (Replace) putchar0(c);
                    685:     if (c == EOF) {
                    686:       fprintf(stderr,"%d: Unexpected end of file in the escape sequence.\n",Linenumber);
                    687:       fsungetc(c,Inop); /* should change */
                    688:       return(-1);
                    689:     }
                    690:     if (fsgetc(Inop) != '\'') {
                    691:       fprintf(stderr,"%d: Error in single quote string (escape seq)\n",Linenumber);
                    692:       return(c);
                    693:     }
                    694:     if (Replace) putchar0('\'');
                    695:     return(c);
                    696:   }
                    697:
                    698:   if (fsgetc(Inop) != '\'') {
                    699:     fprintf(stderr,"%d: Error in single quote string\n",Linenumber);
                    700:   }
                    701:   if (Replace) putchar0('\'');
                    702:   return(c);
                    703: }
                    704:
                    705: putchar0(c)
                    706: int c;
                    707: {
                    708:   if (c > 0) fputc(c,outfile);
                    709: }
                    710:
                    711: printf0(s)
                    712: char *s;
                    713: {
                    714:   int i = 0;
                    715:   while (s[i] != '\0') putchar0(s[i++]);
                    716: }
                    717:
                    718: printf1(s)
                    719: char *s;
                    720: {
                    721:   int i = 0;
                    722:   /* putchar0('K'); */   /* do your own replacement */
                    723:   while (s[i] != '\0') putchar0(s[i++]);
                    724: }
                    725:
                    726: isReserved(s)
                    727: char *s;
                    728: {
                    729:   char *r[] = {"auto","break","case","char","const","continue",
                    730:                 "default","do","double","else","enum","extern",
                    731:                 "float","for","goto","if","int","long","register",
                    732:                 "return","short","signed","sizeof","static","struct",
                    733:                 "switch","typedef","union","unsigned","volatile",
                    734:                 "void","while",
                    735:               "print","module","local","def","sm1","load","Test","special",
                    736:               "class","super","operator","final","extends",
                    737:               "incetanceVariable","this","new","startOfThisClass",
                    738:                "sizeOfThisClass","PSfor","OutputPrompt"};
                    739:
                    740:   int  val[]= {AUTO, BREAK, CASE, CHAR, CONST, CONTINUE, DEFAULT, DO, DOUBLE,
                    741:                 ELSE, ENUM,
                    742:                 EXTERN, FLOAT, FOR, GOTO, IF, INT, LONG, REGISTER,
                    743:                 RETURN, SHORT, SIGNED, SIZEOF, STATIC, STRUCT, SWITCH,
                    744:                 TYPEDEF, UNION,
                    745:                 UNSIGNED, VOLATILE, VOID, WHILE,
                    746:               PRINT,MODULE,LOCAL,DEF,SM1,LOAD,TEST,SPECIAL,
                    747:               CLASS,SUPER,OPERATOR,FINAL,EXTENDS,INCETANCEVARIABLE,
                    748:               THIS, NEW, STARTOFTHISCLASS, SIZEOFTHISCLASS,PSFOR,PROMPT};
                    749:   int  n = 52; /* Length of the list above */
                    750:   /* You have to change simple.y, too. */
                    751:
                    752:   int i;
                    753:   for (i=0; i<n; i++) {
                    754:     if (strcmp(r[i],s) == 0) {
                    755:       if (Debug2) printf("\nReserved word: %s ---\n",s);
                    756:       return(val[i]);
                    757:     }
                    758:   }
                    759:   return(0);
                    760:
                    761: }
                    762:
                    763: shouldReplace(s)
                    764: char *s;
                    765: {
                    766:   char *r[] = {"dummy"};
                    767:   int n = 1;
                    768:   int i;
                    769:   for (i=0; i<n; i++) {
                    770:     if (strcmp(r[i],s) == 0) {
                    771:       /* printf("\n--- %s ---\n",s); */
                    772:       return(1);
                    773:     }
                    774:   }
                    775:   return(1); /* change to 0. */
                    776: }
                    777:
                    778: /* --------------------------- protection of symbols ------------------ */
                    779: #include "Stable/sm1symbol.h"
                    780: int ips(objectp op) {
                    781:   return(isProtectedSymbol(op->lc.str));
                    782: }
                    783: int isProtectedSymbol(char *s)
                    784: {
                    785:
                    786:   static char **sn = SymbolTableOfsm1;
                    787:   int size = SizeOfSymbolTableOfsm1;
                    788:   int start = 0;
                    789:   int end = size-1;
                    790:   int r;
                    791:
                    792:   while (1) {
                    793:     /* binary search */
                    794:     if (start>end) break;
                    795:     r = strcmp(s,sn[start+(end-start)/2]);
                    796:     if (r == 0) {
                    797:       fprintf(stderr,"Warning: Protected symbol %s is used as user variable.\n",s);
                    798:       return(0);
                    799:     }
                    800:     if (r > 0) {
                    801:       start = start + (end-start)/2 + 1;
                    802:     } else if ( r < 0) {
                    803:       end = start + (end-start)/2-1;
                    804:     }
                    805:   }
                    806:   return(0);
                    807: }
                    808:
                    809: /* ------------------ read from file ------------------- */
                    810: struct stringBuf *newStringBuf(char *initstr)
                    811: {
                    812: #define INITSIZE  1024
                    813:   struct stringBuf *stringBuf;
                    814:   int limit;
                    815:   stringBuf = mymalloc(sizeof(struct stringBuf));
                    816:   if (stringBuf == (struct stringBuf *)NULL) {
                    817:     fprintf(stderr,"No memory\n"); exit(10);
                    818:   }
                    819:   if (initstr == (char *)NULL) limit = INITSIZE;
                    820:   else limit = strlen(initstr)+11;
                    821:   stringBuf->str = mymalloc(sizeof(char)*limit);
                    822:   stringBuf->ptr = 0;
                    823:   stringBuf->limit = limit;
                    824:   if (stringBuf->str == (char *)NULL) {
                    825:     fprintf(stderr,"No memory\n"); exit(10);
                    826:   }
                    827:   if (initstr != (char *)NULL) {
                    828:     strcpy(stringBuf->str,initstr);
                    829:   } else (stringBuf->str)[0] = '\0';
                    830:   return(stringBuf);
                    831: }
                    832:
                    833: void doublingStringBuf(struct stringBuf *obuf)
                    834: {
                    835:   char *t;
                    836:   t = mymalloc(sizeof(char)*(obuf->limit)*2);
                    837:   if (t == (char *)NULL) {
                    838:     fprintf(stderr,"No memory\n"); exit(10);
                    839:   }
                    840:   strcpy(t,obuf->str);
                    841:   obuf->str = t;
                    842:   obuf->limit *=  2;
                    843: }
                    844:
                    845: void readlineFromFile(FILE *fp,struct stringBuf *obuf)
                    846: {
                    847:   int c;
                    848:   obuf->ptr = 0; (obuf->str)[obuf->ptr]='\0';
                    849:   while (1) {
                    850:     c = fgetc(fp);
                    851:     /* for debug.
                    852:     if (c<' ') printf(" %x(%x) ",c,(int) fp); else printf(" <%c>(%x) ",c,(int) fp); fflush(NULL);
                    853:     if (c == EOF) {
                    854:       printf("Stackp=%d ",Stackp);
                    855:       printf("File=%x\n",(int) fp); fflush(NULL);
                    856:     }
                    857:     */
                    858:     if (c == EOF) {
                    859:       (obuf->str)[obuf->ptr]='\0';
                    860:       obuf->ptr = 0;
                    861:       return;
                    862:     }
                    863:     (obuf->str)[(obuf->ptr)++] = c;
                    864:     (obuf->str)[obuf->ptr] = '\0';
                    865:     if (c == '\n') {
                    866:       obuf->ptr = 0;
                    867:       return;
                    868:     }
                    869:     if (obuf->ptr > obuf->limit - 5) doublingStringBuf(obuf);
                    870:   }
                    871: }
                    872:
                    873: static int popFile() {
                    874:   if (Inop->tag == Sfile) {
                    875:     if (Inop->lc.file != stdin) {
                    876:       fclose(Inop->lc.file);
                    877:       /* sendKan(10);  output In[n]= */
                    878:     }
                    879:   }
                    880:   /* fprintf(stderr,"popFile(), Stackp=%d\n",Stackp); fflush(NULL);  */
                    881:   if (Stackp <= 1) return(EOF);
                    882:   Stackp--;
                    883:   Linenumber = LinenumberStack[Stackp];
                    884:   Inop = InopStack[Stackp];
                    885:   if (Inop == (objectp) NULL) {
                    886:     fprintf(stderr,"popFile: Inop==NULL\n"); fflush(stdout); /* was fflush(NULL); */
                    887:     return(EOF);
                    888:   }
                    889:   if (Inop->tag == Sfile) {
                    890:     if (Inop->lc.file != stdin) {
                    891:       Interactive = 0;
                    892:     }else{
                    893:       Interactive = 1;
                    894:     }
                    895:   }
                    896:   /* Saki = SakiStack[Stackp]; */
                    897:   Saki = '\n';
                    898:   return(Saki);
1.7       takayama  899: }
                    900:
                    901: static int isThereStdin() {
                    902:   if (Stackp > 1 && (InopStack[1])->tag == Sfile
                    903:          && (InopStack[1])->lc.file == stdin) {
                    904:        return(1);
                    905:   }else{
                    906:        return(0);
                    907:   }
1.1       maekawa   908: }
                    909:
                    910: int fsgetc(objectp op) {
                    911:   struct stringBuf *obuf;
                    912:   char *str;
                    913:   int ptr;
                    914:   if (op->tag == Sfile) {
                    915:     /* return(fgetc(op->lc.file));  non-buffered reading */
                    916:     obuf = op->rc.sbuf;
                    917:     str = obuf->str;
                    918:     ptr = obuf->ptr;
                    919:     if (str[ptr] == '\0') {
                    920:       readlineFromFile(op->lc.file,obuf);
                    921:       str = obuf->str;
                    922:       ptr = obuf->ptr;
                    923:     }
                    924:     if (str[ptr] == '\0') {
                    925:       return(popFile());
                    926:     } else return( str[(obuf->ptr)++] );
                    927:   }else if (op->tag == Slist) {
                    928:     obuf = op->lc.sbuf;
                    929:     str = obuf->str;
                    930:     ptr = obuf->ptr;
                    931:     if (str[ptr] == '\0') {
                    932:       return(popFile());
                    933:     } else return(str[(obuf->ptr)++]);
                    934:   }else {
                    935:     fprintf(stderr,"unknown tag?\n");
                    936:   }
                    937:   return(EOF);
                    938: }
                    939:
                    940: int fsungetc(int c,objectp op) {
                    941:   fprintf(stderr,"Sorry. fsungetc has not yet implemented.\n");
                    942: }
                    943:
                    944: void clearInop() {
                    945:   Saki = '\0';
                    946:   Inop = (objectp) NULL;
                    947:   Stackp = 0;
                    948: }
                    949:
                    950: static void pushOld() {
                    951:   LinenumberStack[Stackp]=Linenumber;
                    952:   InopStack[Stackp] = Inop;
                    953:   SakiStack[Stackp] = Saki;
                    954:   /* fprintf(stderr,"pushOld, Stackp=%d, fp=%x\n",Stackp,(int)(Inop->lc.file)); fflush(NULL);  */
                    955:   Stackp++;
                    956:   if (Stackp >= SSIZE) {
                    957:     fprintf(stderr,"Stackp overflow.\n");
                    958:     exit(10);
                    959:   }
                    960: }
                    961:
                    962: void parseAfile(FILE *fp) {
                    963:   int c;
                    964:
                    965:   pushOld();
                    966:
                    967:   Linenumber = 0;
                    968:   Inop = newObject_d();
                    969:   Inop->tag = Sfile;
                    970:   Inop->lc.file = fp;
                    971:   Inop->rc.sbuf = newStringBuf((char *)NULL);
                    972:   if (fp != stdin) {
                    973:     Interactive = 0;
                    974:   }
                    975:
                    976: }
                    977:
                    978: void parseAstring(char *s)
                    979: {
                    980:   int c;
                    981:   int prevLineNumber;
                    982:   objectp prevInop;
                    983:   int prevSaki;
                    984:
                    985:   pushOld();
                    986:
                    987:   Linenumber = 0;
                    988:   Inop = newObject_d();
                    989:   Inop->tag = Slist;
                    990:   Inop->lc.sbuf = newStringBuf(s);
                    991:
                    992: }
                    993:
1.6       takayama  994: objectp checkIfTheFileExists(objectp op) {
1.1       maekawa   995:   FILE *fp;
                    996:   char fname[1024];
1.6       takayama  997:   char *s;
                    998:   objectp nullObj;
                    999:   nullObj = NULL;
1.1       maekawa  1000:   if (op->tag != Sstring) {
                   1001:     fprintf(stderr,"File name must be given as an argment of load.\n");
1.6       takayama 1002:     return nullObj;
1.1       maekawa  1003:   }
1.6       takayama 1004:   if (strlen(op->lc.str) > 800) {
1.1       maekawa  1005:     fprintf(stderr,"Too long file name.\n");
1.6       takayama 1006:     return nullObj;
1.1       maekawa  1007:   }
1.6       takayama 1008:   strcpy(fname,op->lc.str);
                   1009:   fp = fopen(fname,"r");
1.1       maekawa  1010:   if (fp == (FILE *)NULL) {
                   1011:     strcpy(fname,getLOAD_K_PATH());
                   1012:     strcat(fname,op->lc.str);
                   1013:     fp = fopen(fname,"r");
                   1014:     if (fp == (FILE *)NULL) {
                   1015:       strcpy(fname,LOAD_K_PATH);
                   1016:       strcat(fname,op->lc.str);
                   1017:       fp = fopen(fname,"r");
                   1018:       if (fp == (FILE *)NULL) {
1.6       takayama 1019:                fprintf(stderr,"Cannot open the file <<%s>> for loading in the current directory nor the library directories %s and %s.\n",op->lc.str,getLOAD_K_PATH(),LOAD_K_PATH);
                   1020:                return nullObj;
1.1       maekawa  1021:       }
                   1022:     }
                   1023:   }
1.6       takayama 1024:   close(fp);
                   1025:   op = newObject_d();
                   1026:   op->tag = Sstring;
                   1027:   s = (char *)GC_malloc(sizeof(char)*(strlen(fname)+1));
                   1028:   if (s == NULL) fprintf(stderr,"No more memory.\n");
                   1029:   strcpy(s,fname);
                   1030:   op->lc.str = s;
                   1031:   return(op);
                   1032: }
                   1033:
                   1034: void loadFile(objectp op)
                   1035: {
                   1036:   FILE *fp;
                   1037:   char fname[1024];
                   1038:   if (op->tag != Sstring) {
                   1039:     fprintf(stderr,"File name must be given as an argment of load.\n");
                   1040:     return;
                   1041:   }
                   1042:   op = checkIfTheFileExists(op);
                   1043:   if (op == NULL) return;
                   1044:   if (strlen(op->lc.str) > 1000) {
                   1045:     fprintf(stderr,"Too long file name.\n");
                   1046:     return;
                   1047:   }
                   1048:   fp = fopen(op->lc.str,"r");
1.1       maekawa  1049:   if (K00_verbose) fprintf(stderr,"Reading the file <<%s>>...  ",op->lc.str);
                   1050:   parseAfile(fp);
                   1051:   if (K00_verbose) fprintf(stderr,"\nClosed the file <<%s>>.\n",op->lc.str);
                   1052: }
                   1053:
                   1054: void loadFileWithCpp(objectp op)
                   1055: {
                   1056:   FILE *fp;
                   1057:   char fname[1024];
1.6       takayama 1058:   char tmpName[1024];
                   1059:   int pid;
1.1       maekawa  1060:   objectp ob;
1.11      takayama 1061:   char *outfile;
                   1062:   char *cpp;
                   1063:   char *argv[10];
                   1064:   int n;
                   1065:   char *sfile = NULL;
1.1       maekawa  1066:   if (op->tag != Sstring) {
                   1067:     fprintf(stderr,"File name must be given as an argment of load.\n");
                   1068:     return;
                   1069:   }
1.6       takayama 1070:   op = checkIfTheFileExists(op);
                   1071:   if (op == NULL) return;
1.1       maekawa  1072:   if (strlen(op->lc.str) > 900) {
                   1073:     fprintf(stderr,"Too long file name.\n");
                   1074:     return;
                   1075:   }
1.11      takayama 1076:   /* Use gcc -v to know what symbols are defined.
                   1077:         if  defined(linux) || defined(__linux__)
                   1078:         Removed old codes. */
                   1079:
                   1080:   sfile = op->lc.str;
                   1081:   cpp = getCppPath();
                   1082:   if (cpp == NULL) {
                   1083:        fprintf(stderr,"cpp is not found.\n"); return;
                   1084:   }
                   1085:   /* printf("%s\n",cpp); */
                   1086:   outfile = generateTMPfileName("k0-cpp");
                   1087:   if (outfile == NULL) {
                   1088:        fprintf(stderr,"Failed to generate a temporary file name.\n"); return;
                   1089:   }
                   1090:   /* printf("%s\n",outfile); */
                   1091:   if ((char *)strstr(cpp,"/asir/bin/cpp.exe") == NULL) {
1.14    ! takayama 1092: #if defined(__APPLE_CC__)
        !          1093:     sprintf(tmpName,"cpp -P %s | sed -e 's/^\\#.*//g' >%s",sfile,outfile);
        !          1094: #else
1.11      takayama 1095:        argv[0] = cpp;
                   1096:        argv[1] = "-P";
                   1097:        argv[2] = "-lang-c++";
                   1098:        argv[3] = sfile;
                   1099:        argv[4] = outfile;
                   1100:        argv[5] = NULL;
1.14    ! takayama 1101: #endif
1.11      takayama 1102:   }else{
                   1103:        argv[0] = cpp;
1.13      takayama 1104:        argv[1] = "-P";
                   1105:        argv[2] = cygwinPathToWinPath(sfile);
                   1106:        argv[3] = cygwinPathToWinPath(outfile);
                   1107:        argv[4] = NULL;
1.11      takayama 1108:   }
1.14    ! takayama 1109: #if defined(__APPLE_CC__)
        !          1110:   system(tmpName);
        !          1111: #else
1.11      takayama 1112:   n=oxForkExecBlocked(argv);
1.14    ! takayama 1113: #endif
1.11      takayama 1114:
1.1       maekawa  1115:   ob = newObject_d();
                   1116:   ob->tag = Sstring;
1.11      takayama 1117:   ob->lc.str = outfile;
1.1       maekawa  1118:   loadFile(ob);
1.11      takayama 1119:   unlink(outfile);
1.1       maekawa  1120: }
                   1121:
                   1122: void showStringBuff(objectp op)
                   1123: {
                   1124:   struct stringBuf *sb;
                   1125:   int i;
                   1126:   int start;
                   1127:   int ptr;
                   1128:   if (op->tag == Sfile) {
                   1129:     sb = op->rc.sbuf;
                   1130:   }else if (op->tag == Slist) {
                   1131:     sb = op->lc.sbuf;
                   1132:   }else fprintf(stderr,"Unknown tag.\n");
                   1133:   ptr = sb->ptr;
                   1134:   if (K00_verbose) {
                   1135:     fprintf(stderr,"stringBuff ptr = %d, ",ptr);
                   1136:     fprintf(stderr,"sb[ptr] = %x,%d",(sb->str)[ptr],(sb->str)[ptr]);
                   1137:     fprintf(stderr,"Saki(yomi) = %x \n",Saki,Saki);
                   1138:   }
                   1139:   if (ptr == 0 && Saki == -1) {
                   1140:     fprintf(stderr," ; was expected.\n");
                   1141:   }
                   1142:   start = (ptr-20<0?0:ptr-20);
                   1143:   fprintf(stderr,"The error occured when the system is reading the line: ");
                   1144:   for (i=start; i<ptr+20 && (sb->str)[i] >= ' '; i++) {
                   1145:     fprintf(stderr,"%c",(sb->str)[i]);
                   1146:     if (i==ptr-1) fprintf(stderr,"<<error>>  \n");
                   1147:   }
                   1148:   fprintf(stderr,"\n");
                   1149: }
                   1150:
1.9       takayama 1151:
                   1152:
                   1153: char *getLOAD_K_PATH() {
1.10      takayama 1154:   return getLOAD_K_PATH2();
1.9       takayama 1155: }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>