![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to oedread.l CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / dict|
Return to oedread.l CVS log | Up to [Research Unix] / researchv10no / cmd / dict |
1.1 ! root 1: %e 5000 ! 2: %p 5000 ! 3: C [+0-9]* ! 4: %% ! 5: \374*\t s(); ! 6: \n {nl(); nl();} ! 7: \+PR\| s(); ! 8: \+PS\| ; ! 9: \+ET\| nl(); ! 10: \+OB\| p("["); ! 11: \+EB\| p("]"); ! 12: \+HM[,][0-9]+[| ] hm(); ! 13: \+LC[^| ]*[| ] ; ! 14: \+AR[^|]*\| q("?"); ! 15: \+NT\| nl(); ! 16: \+Q[NP]\| nl(); ! 17: \+AI\| p("ante "); ! 18: \+CI\| p("circa "); ! 19: \+IA\| q("(A)"); /* usage alpha */ ! 20: \+IB\| q("(B)"); /* beta */ ! 21: \+IG\| q("(C)"); /* gamma */ ! 22: \+ID\| q("(D)"); /* delta */ ! 23: \+IE\| q("(E)"); /* epsilon */ ! 24: \+IZ\| q("(F)"); /* zeta */ ! 25: \+IH\| q("(G)"); /* eta */ ! 26: \+IT\| q("(H)"); /* theta */ ! 27: \+FS\| q("?"); ! 28: \+S[OPNRS]\| nl(); ! 29: \+HW\| ; ! 30: \+BL\| {nl(); p("*");} ! 31: \+EL\| ; ! 32: \+IL\| {nl(); p("*");} ! 33: \+BF\| ; ! 34: \+EF\| ; ! 35: \+FB\| ; ! 36: \+NU\| p("{"); ! 37: \+DN\| p("}/{"); ! 38: \+FE\| p("}"); ! 39: \+QT\| ; ! 40: \+[IBSGR][| ] ; ! 41: \+RB\| p(">"); ! 42: \+NR\| ; /* ? */ ! 43: \+SC\| ; ! 44: \+P[RS]\| ; ! 45: \+VL\| nl(); ! 46: \+SU\| p("<"); ! 47: \+UP\| p("<"); ! 48: \+IN\| p("<"); ! 49: \+RR\| ; ! 50: \+IR\| ; ! 51: \+LA\| ; ! 52: \+H\| p("-"); ! 53: \] p("!"); ! 54: \+0\| s(); ! 55: \| s(); ! 56: \+1\| p("="); /* macron */ ! 57: \+2\| p("\""); /* umlaut */ ! 58: \+3\| p("'"); /* acute */ ! 59: \+4\| p("`"); /* grave */ ! 60: \+5\| p("'"); ! 61: \+6\| ; /* short vowel */ ! 62: \+7\| p("ah"); ! 63: \+8\| ; /* greek accent */ ! 64: \+9\| ; /* greek accent */ ! 65: \+10\| p(".."); ! 66: \+11[ |] p("."); /* main stress */ ! 67: \+12\| p(":"); /* secondary stress */ ! 68: \+13\| p("-"); /* dash */ ! 69: \+14\| p("-"); ! 70: \+15\| p("["); ! 71: \+16\| p("]"); ! 72: \+17\| p("`"); ! 73: \+18\| p("'"); ! 74: \+19\| p("er"); ! 75: \+20\| p("uh"); ! 76: \+21\| p("*"); ! 77: \+21\|\+19\| p("*r"); ! 78: \+22\| p("+"); ! 79: \+9?23{C}\| p("ae"); ! 80: \+9?24{C}\| c("oe"); ! 81: \+9?25{C}\| c("zh"); ! 82: \+9?26{C}\| c("zh"); /* old english */ ! 83: \+9?27{C}\| c("dh"); /* thorn */ ! 84: \+9?28{C}\| c("dh"); /* thorn */ ! 85: \+29\| p("="); ! 86: \+30\| p("ng"); ! 87: \+31[| ] p("+"); /* dagger */ ! 88: \+32[| ] p("||"); ! 89: \+33[| ] p("@"); /* paragraph */ ! 90: \+34[| ] p("|"); ! 91: \+9?35\| p("th"); ! 92: \+36\| p("PP"); ! 93: \+37\| p("``"); ! 94: \+38\| p("''"); ! 95: \+9?39\| c("d"); ! 96: \+41\| p("A"); ! 97: \+42\| p("b"); ! 98: \+43\| p("a"); ! 99: \+44\| p("ah"); ! 100: \+45\| p("sh"); ! 101: \+9?47\| c("zh"); /* old english */ ! 102: \+9?48\| c("l"); ! 103: \+9?49\| c("z"); ! 104: \+50\| ; /* v over letter */ ! 105: \+51\| p("^"); ! 106: \+52\| ; /* dot over letter */ ! 107: \+53\| ; /* dot under */ ! 108: \+54\| ; /* cedilla */ ! 109: \+55\| p("^"); ! 110: \+56\| p("~"); ! 111: \+60\| ; ! 112: \+63\| s(); ! 113: \+64\| ; ! 114: \+9?75{C}\| c("s"); ! 115: \+9?76{C}\| c("a"); ! 116: \+9?77{C}\| c("b"); ! 117: \+9?78{C}\| c("g"); ! 118: \+9?79{C}\| c("d"); ! 119: \+9?80{C}\| c("e"); ! 120: \+9?81{C}\| c("z"); ! 121: \+9?82{C}\| c("h"); ! 122: \+9?83{C}\| c("th"); ! 123: \+9?84{C}\| c("i"); ! 124: \+9?85{C}\| c("k"); ! 125: \+9?86{C}\| c("l"); ! 126: \+9?87{C}\| c("m"); ! 127: \+9?88{C}\| c("n"); ! 128: \+9?89{C}\| c("x"); ! 129: \+9?90{C}\| c("o"); ! 130: \+9?91{C}\| c("p"); ! 131: \+9?92{C}\| c("r"); ! 132: \+9?93{C}\| c("s"); ! 133: \+9?94{C}\| c("t"); ! 134: \+9?95{C}\| c("u"); ! 135: \+9?96{C}\| c("ph"); ! 136: \+9?97{C}\| c("ch"); ! 137: \+9?98{C}\| c("ps"); ! 138: \+9?99{C}\| c("w"); ! 139: \+100\| p("{"); ! 140: \+102\| p("SS"); ! 141: \+103\| p("L"); /* pound sterling */ ! 142: \+105\| p("->"); ! 143: \+106\| p("degrees"); ! 144: \+107\| p("..."); ! 145: \+108\| p("-"); ! 146: \+112\| p("!"); ! 147: \+201\| p("-"); ! 148: \+202\| p("*"); ! 149: \+204\| p("|"); ! 150: \+205\| p("\""); ! 151: \+206\| p("|"); ! 152: \+213\| p("<"); ! 153: \+232\| q("DELTA"); ! 154: \+235\| p("/\\"); ! 155: \+239\| p("."); ! 156: \+241\| p("="); ! 157: \+242\| p("-"); ! 158: \+304\| p("+"); ! 159: \+313\| p("/\\"); ! 160: \+317\| p("b"); ! 161: \+319\| p("#"); ! 162: \+334\| p("'"); ! 163: \+335\| p("`"); ! 164: \+336\| p("^"); ! 165: \+337\| p("~"); ! 166: \+338\| p(","); ! 167: \+345\| p("@"); ! 168: \+349\| q("sun"); ! 169: \+350\| p("#"); ! 170: \+360\| p("G"); ! 171: \+361\| p("<"); ! 172: \+362\| p("C"); ! 173: \+363\| p("C"); ! 174: \+364\| p("C"); ! 175: \+365\| p("G"); ! 176: \+366\| q("cancer"); ! 177: \+367\| q("alpha"); ! 178: \+368\| p("C"); ! 179: \+369\| q("Cbar"); ! 180: \+372\| p("_"); ! 181: \+373\| p("="); ! 182: \+377\| p("."); ! 183: \+384\| p("^"); ! 184: \+385\| p("'"); ! 185: \+438\| q("?"); ! 186: \+466\| q("?"); ! 187: \+490\| q("st"); ! 188: \+[^|]*\| p(yytext); ! 189: [^|+\374\n]+ p(yytext); ! 190: %% ! 191: #include <stdio.h> ! 192: #include <ctype.h> ! 193: ! 194: int cpos; ! 195: int ll = 70; ! 196: ! 197: s() ! 198: { ! 199: if(cpos>0) { ! 200: printf(" "); ! 201: cpos++; ! 202: } ! 203: } ! 204: ! 205: p(s) ! 206: char *s; ! 207: { ! 208: u(strlen(s)); ! 209: printf("%s",s); ! 210: } ! 211: ! 212: u(n) ! 213: { ! 214: if((cpos+=n) > ll) { ! 215: nl(); ! 216: cpos = n; ! 217: } ! 218: } ! 219: ! 220: q(s) ! 221: char *s; ! 222: { ! 223: u(strlen(s)+2); ! 224: printf("*%s*",s); ! 225: } ! 226: ! 227: c(s) ! 228: char *s; ! 229: { ! 230: u(strlen(s)); ! 231: for( ; *s; s++) ! 232: putchar(yytext[1]=='9'?toupper(*s):*s); ! 233: } ! 234: ! 235: nl() ! 236: { ! 237: printf("\n"); ! 238: cpos = 0; ! 239: } ! 240: ! 241: hm() /* +HM,number| */ ! 242: { ! 243: yytext[strlen(yytext)-1] = 0; ! 244: p("["); ! 245: p(&yytext[4]); ! 246: p("]"); ! 247: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.