![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to y4.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / bin / yacc|
Return to y4.c CVS log | Up to [MW Coherent from dump] / coherent / d / bin / yacc |
1.1 ! root 1: /* ! 2: * pretty print routines ! 3: */ ! 4: #include "yacc.h" ! 5: ! 6: static char ctab[] = " |"; ! 7: listgram() ! 8: { ! 9: register i, k, j; ! 10: register struct sym *sp; ! 11: struct prod *pp; ! 12: ! 13: if( !verbose ) ! 14: return; ! 15: fprintf(listout,"Input grammar:\n\n"); ! 16: for(i=0; i<nnonterm; i++) { ! 17: sp = ntrmptr[i]; ! 18: fprintf(listout,"%s:\n\n", sp->s_name); ! 19: for(j=0; j<sp->s_nprods; j++ ) { ! 20: pp = sp->s_prods[j]; ! 21: fprintf(listout, "%d:\t%c ", pp->p_prodno, ctab[j!=0]); ! 22: for(k=0; pp->p_right[k]>=0; k++) { ! 23: fprintf(listout, "%s ", ptosym(pp->p_right[k])); ! 24: } ! 25: fprintf(listout, "\n"); ! 26: } ! 27: fprintf(listout,"\t;\n\n"); ! 28: } ! 29: } ! 30: ! 31: prstate(i, f) ! 32: FILE *f; ! 33: { ! 34: register j; ! 35: register struct sitem *itp; ! 36: ! 37: itp = items[i]; ! 38: fprintf(f, "State %d:\n\n", i); ! 39: for(j=0; j<itp->i_nitems; j++) ! 40: pritem(itp->i_items[j],f); ! 41: fprintf(f, "\n"); ! 42: } ! 43: ! 44: pritem(ip,f) ! 45: register int *ip; ! 46: FILE *f; ! 47: { ! 48: register int *pp; ! 49: ! 50: pp = ip; ! 51: do ; while( *--pp >= 0 ); ! 52: fprintf(f,"\t"); ! 53: fprintf(f, "%s <- ", ptosym(-*pp++)); ! 54: while( pp!=ip ) { ! 55: fprintf(f, "%s ", ptosym(*pp++)); ! 56: } ! 57: fprintf(f, "_ "); ! 58: while( *pp!=-1 ) ! 59: fprintf(f, "%s ", ptosym(*pp++)); ! 60: fprintf(f,"\n"); ! 61: } ! 62: ! 63: char * ! 64: ptosym(n) ! 65: register n; ! 66: { ! 67: if( n>=NTBASE ) ! 68: return( ntrmptr[n-NTBASE]->s_name); ! 69: else ! 70: return( trmptr[n]->s_name); ! 71: } ! 72: ! 73: char * ! 74: prsym(c) ! 75: register c; ! 76: { ! 77: static char s[10]; ! 78: ! 79: if( c<040 || c>= 0177 ) { ! 80: switch( c ) { ! 81: case '\n': ! 82: sprintf(s, "'\\n'"); ! 83: break; ! 84: ! 85: case '\r': ! 86: sprintf(s, "'\\r'"); ! 87: break; ! 88: ! 89: case '\t': ! 90: sprintf(s, "'\\t'"); ! 91: break; ! 92: ! 93: case '\b': ! 94: sprintf(s,"'\\b'"); ! 95: break; ! 96: ! 97: case '\f': ! 98: sprintf(s, "'\\f'"); ! 99: break; ! 100: ! 101: case '\0': ! 102: sprintf(s, "'\\0'"); ! 103: break; ! 104: ! 105: default: ! 106: sprintf(s, "'\\%3o'", c); /* MWC DSC */ ! 107: } ! 108: } else ! 109: sprintf(s, "'%c'", c); ! 110: return( s ); ! 111: } ! 112: ! 113: options(argc, argv) ! 114: int argc; ! 115: char *argv[]; ! 116: { ! 117: register i; ! 118: register char *ap; ! 119: ! 120: for(i=1; i<argc; i++) { ! 121: ap = argv[i]; ! 122: if( ap[0]!='-' || strcmp(ap,"-")==0 ) ! 123: gramy = argv[i]; ! 124: else ! 125: if( strcmp(ap,"-v")==0 ) ! 126: verbose++; ! 127: else ! 128: if( strcmp(ap,"-l")==0 ) { ! 129: verbose++; ! 130: youtput = nextarg(argv[++i]); ! 131: } ! 132: else ! 133: if( strcmp(ap, "-st")==0 ) { ! 134: pstat++; ! 135: } ! 136: else ! 137: if( strcmp(ap,"-hdr")==0 ) { ! 138: ytabh = nextarg(argv[++i]); ! 139: } ! 140: else ! 141: if( strcmp(ap,"-d")==0 ) { ! 142: yydebug++; ! 143: verbose++; ! 144: } ! 145: else ! 146: if( strcmp(ap,"-prods")==0 ) ! 147: maxprod = getnum(argv[++i]); ! 148: else ! 149: if( strcmp(ap,"-terms")==0 ) ! 150: maxterm = getnum(argv[++i]); ! 151: else ! 152: if( strcmp(ap,"-nterms")==0 ) ! 153: maxnterm = getnum(argv[++i]); ! 154: else ! 155: if( strcmp(ap,"-states")==0 ) ! 156: maxstates = getnum(argv[++i]); ! 157: else ! 158: if( strcmp(ap,"-types")==0 ) ! 159: maxtype = getnum(argv[++i]); ! 160: else ! 161: usage(); ! 162: if( maxterm >= LSETSIZE*NBCHAR ) ! 163: yyerror(NLNO|FATAL, "get ciaran to change alloc for lsets"); ! 164: } ! 165: /* ! 166: * if( (maxterm+maxnterm+maxtype) >= MAXSYM ) ! 167: * yyerror(NLNO|FATAL, "increase MAXSYM"); ! 168: * ! 169: * MWC DSC - make it all flexible with maxsym - it will also mean less memory ! 170: * allocated, in most cases. ! 171: */ ! 172: prdptr = (struct prod **)yalloc(maxprod, sizeof *prdptr); ! 173: symtab = (struct sym **)yalloc(maxsym+1, sizeof *symtab); /* MWC DSC */ ! 174: ntrmptr = (struct sym **)yalloc(maxnterm, sizeof *ntrmptr); ! 175: trmptr = (struct sym **)yalloc(maxterm, sizeof *trmptr); ! 176: typeptr = (struct sym **)yalloc(maxtype, sizeof *typeptr); ! 177: nitprod = (struct prod *)yalloc(1, sizeof *nitprod + sizeof(int) * MAXPRODL); ! 178: nititem = (struct sitem *)yalloc(1, sizeof *nititem + MAXITEM * sizeof nititem-> ! 179: i_items[0]); ! 180: states = (struct state *)yalloc(maxstates, sizeof *states); ! 181: items = (struct sitem **)yalloc(maxstates, sizeof *items); ! 182: } ! 183: ! 184: yyerror(type, args) ! 185: { ! 186: if( type&FATAL ) ! 187: fprintf(stderr, "fatal error: "); ! 188: if( (type&NLNO)==0 ) ! 189: fprintf(stderr, "line %d: ", yyline); ! 190: fprintf(stderr, "%r", &args); ! 191: fprintf(stderr, "\n"); ! 192: if( type&FATAL ) ! 193: cleanup(2); ! 194: if( (type&WARNING)==0 ) ! 195: nerrors++; ! 196: if( type&SKIP ) ! 197: while( llgetc()!='\n' ) /* MWC DSC */ ! 198: ; ! 199: } ! 200: ! 201: getnum(s) ! 202: char *s; ! 203: { ! 204: if( s==NULL ) ! 205: yyerror(NLNO|FATAL, "missing argument"); ! 206: return( atoi(s) ); ! 207: } ! 208: ! 209: char * /* MWC DSC */ ! 210: nextarg(s) ! 211: char *s; ! 212: { ! 213: if( s==NULL ) ! 214: yyerror(NLNO|FATAL, "missing file name"); ! 215: return( s ); ! 216: } ! 217: ! 218: usage() ! 219: { ! 220: fprintf(stderr, "Usage: yacc [options] [parameters] grammar\n"); ! 221: fprintf(stderr, "Options: -v -d -l file -hdr file -st\n"); ! 222: fprintf(stderr,"Parameters: -prods # -terms # - nterms # -states # -types #\n"); ! 223: exit(1); ! 224: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.