1: /* 2: * This program will read its standard input (a C program) and write it 3: * back out to the standard output translating words found in C strings in 4: * that input via the following translation table (trans). If a word is not 5: * found in the translation table, it will be passed on unchanged. 6: * 7: * Note that `words' are considered to be delimited by any non-alphabetic 8: * character or the beginning or end of the string in which it resides. 9: * 10: * Example: "aid" is matched in the string "Do you need aid?" but not in 11: * the string "I'll send in the maid". 12: * 13: * Example: "are not" is found in the string "You are not right!" 14: */ 15: 16: #include <stdio.h> 17: #include <ctype.h> 18: 19: typedef struct { char *word, *crypt; 20: } 21: trans; 22: 23: 24: trans trtab[] = 25: { "You can't reach the floor!", 26: "You can't reach the floor.", /* xstr */ 27: 28: "You turn to stone ...", 29: "You turn to stone.", /* xstr */ 30: 31: "fatal mistake ...", 32: "fatal mistake.", /* xstr */ 33: 34: "Cannot open %s .", 35: "Cannot open %s.", /* xstr */ 36: 37: "A mysterious force prevents you from going %s.", "%s?", 38: "Probably someone removed it.", "rmvd?", 39: "Strange... I didnt know you had that ring.", "rng?", 40: "Something is written in a very strange way.", "bd eng?", 41: "No used-up objects on the shopping bill.", "invnt?", 42: "Strange, this map is not as I remember it.", "map?", 43: "Somebody is trying some trickery here ...", "tilt!", 44: "This game is void ...", "barf!", 45: "What a funny potion! (%u)", "potion(%u)?", 46: "onbill: paid obj on bill?", "bill?", 47: "onbill: unpaid obj not on bill?", "bill?", 48: "obfree: not on bill??", "bill?", 49: "splitbill: not on bill?", "bill?", 50: "Negative quantity on bill??", "bill?", 51: "Zero quantity on bill??", "bill?", 52: "doinvbill: no shopkeeper?", "bill?", 53: "Unknown direction", "dir", 54: "Steal fails!", "steal?", 55: "Tried to steal a strange worn thing.", "steal?", 56: "How come you are carrying that chain?", "steal?", 57: "You hit a trap of type %u", "trap(%u)?", 58: "Some monster encountered a strange trap.", "trap?", 59: "Where are your chain and ball??", "trap?", 60: "Not a single corridor on this level??", "vault?", 61: "Where is the guard?", "vault?", 62: "fakecorr overflow", "vault?", 63: "Do_oname: cannot find obj.", "Do_name?", 64: "Perhaps there is an old record_lock around", "ld rclk", 65: "Waiting for access to record file", "Wtng", 66: "Cannot open record file!", "opn?", 67: "Cannot write record file", "wrt?", 68: "Cannot find any entries for", "Ct fnd", 69: "Error in del_engr", "del_engr", 70: "error in freeobj", "freeobj?", 71: "error in freegold", "freegold?", 72: "Read %d instead of %u bytes", "rd %d != %u", 73: "Error restoring old game.", "rstr gm?", 74: "Error reading level file.", "lvl fl?", 75: "DOORMAX exceeded", "D*MAX", 76: "rooms not closed by -1", "cls rms", 77: "Not enough gems", "Gms", 78: "WARNING: prefix too short.", "prfx?", 79: "Cannot open data file!", "data?", 80: "sh: cannot execute.", "sh?", 81: "Fork failed. Try again.", "Fork!", 82: "Cannot open %s.", "%s?", 83: "Cannot open save file. (Continue or Quit)", "bd fl", 84: "Error while saving: cannot read %s.", "%s?", 85: "Saved game was not yours.", "Nt urs", 86: "Cannot open temp file %s!", "%s?", 87: "Cannot find the iron chain?", "chain?", 88: "Cannot find the iron ball?", "ball?", 89: "Cannot find the monster ustuck.", "ustuck?", 90: "Restobjchn: error reading objchn.", "objchn?", 91: "Restmonchn: error reading monchn.", "monchn?", 92: "Shopkeeper administration out of order.", "Shpkpr?", 93: "Error in shopkeeper administration.", "Shpkpr?", 94: "Bad shopkeeper administration.", "Shpkpr?", 95: "Can't get TERM.", "TERM?", 96: "Unknown terminal type: %s.", "%s?", 97: "Hack needs a screen of size at least %d by %d.", "bad term!", 98: "Terminal must backspace.", "bad term!", 99: "Hack needs CL.", "bad term!", 100: "Hack can't have OS.", "bad term!", 101: "Hack needs CM or UP or HO.", "bad term!", 102: "Playing hack on terminals without cm is suspect...", "bad term!", 103: "TERMCAP entry too big...", "bad term!", 104: "Cannot get status of %s.", "%s?", 105: "Cannot get status of saved level?", "lvl fl?", 106: "Saved levels out of date.", "lvl fl?", 107: "Cannot link %s to %s", "%s-%s?", 108: "Perhaps there is no (empty) file %s ?", "%s?", 109: "It seems you don't have write permission here.", "wrt?", 110: "(Try again or remove %s.)", "%s?", 111: "I don't know what is wrong.", "?", 112: "Cannot open %s", "%s?", 113: "Too many hacks running now.", "#?", 114: "There is a game in progress under your name.", "In progress!", 115: "Cannot unlink %s.", "%s?", 116: "cannot creat lock file.", "lock?", 117: "cannot write lock", "lock?", 118: "cannot close lock", "lock?", 119: "Not a single corridor on this level??", "corr?", 120: "Cannot find worm segment", "worm?", 121: "Cannot reallocate %d bytes", "realloc %d?", 122: 123: "a funny", "an odd", 124: "a peculiar", "an odd", 125: "a strange", "an odd", 126: 127: "Be seeing you", "Bcnu", 128: "Restoring old save file", "uncB", 129: "Worthless piece of", "Worthless", 130: 131: "Are", "R", 132: "are", "r", 133: "Can", "Cn", 134: "can", "cn", 135: "Not", "Nt", 136: "not", "nt", 137: "You", "U", 138: "you", "u", 139: 140: "Aren't", "Nt", 141: "aren't", "rnt", 142: "R nt", "Rnt", 143: "r nt", "rnt", 144: "Cannot", "Ct", 145: "cannot", "ct", 146: "Cn nt", "Ct", 147: "cn nt", "ct", 148: "Cn't", "Ct", 149: "cn't", "ct", 150: 151: "U r", "U'r", 152: "u r", "u'r", 153: "U're", "U'r", 154: "u're", "u'r", 155: "U rnt", "U'rnt", 156: "u rnt", "u'rnt", 157: "U'r nt", "U'rnt", 158: "u'r nt", "u'rnt", 159: "have", "hv", 160: "having", "hvng", 161: "hv nt", "hvnt", 162: "haven't", "hvnt", 163: "I hv", "Iv", 164: "I've", "Iv", 165: "U hv", "Uv", 166: "u hv", "uv", 167: "U've", "Uv", 168: "u've", "uv", 169: "Your", "Ur", 170: "your", "ur", 171: "yourself", "urslf", 172: 173: "Did nt", "Dt", 174: "did nt", "dt", 175: "Didn't", "Dt", 176: "didn't", "dt", 177: "didnt", "dt", 178: "Do", "D", 179: "do", "d", 180: "D nt", "Dt", 181: "d nt", "dt", 182: "Don't", "Dt", 183: "don't", "dt", 184: "Does nt", "Dsnt", 185: "does nt", "dsnt", 186: "Doesn't", "Dsnt", 187: "doesn't", "dsnt", 188: 189: "I am", "Im", 190: "It is", "Ts", 191: "it is", "ts", 192: "There is", "Trs", 193: "there is", "trs", 194: "Will nt", "Wnt", 195: "will nt", "wnt", 196: "Won't", "Wnt", 197: "won't", "wnt", 198: 199: "U'rnt", "Nt", 200: "U cnt", "Ct", 201: "U dnt", "Dt", 202: "Uv nt", "Uvnt", 203: "uv nt", "uvnt", 204: "U hvnt", "Uvnt", 205: "u hvnt", "uvnt", 206: "U dropped", "Dropped", 207: "U finished ur", "Finished", 208: "U finished", "Finished", 209: "U'r already", "Already", 210: "U'r carrying", "Carrying", 211: 212: "able", "abl", 213: "aborted", "abrtd", 214: "about", "abt", 215: "above", "abv", 216: "accepts", "acpts", 217: "administration", "admn", 218: "affect", "fct", 219: "affected", "fctd", 220: "against", "gnst", 221: "again", "gn", 222: "allowed", "llwd", 223: "almost", "lmst", 224: "Already", "Lrdy", 225: "already", "lrdy", 226: "And", "N", 227: "and", "n", 228: "anymore", "ymr", 229: "any", "y", 230: "Anything", "Yth", 231: "anything", "yth", 232: "appears", "sms", 233: "armor", "rmr", 234: "around", "rnd", 235: "assorted", "ass", 236: "At", "@", 237: "at", "@", 238: "ate", "8", 239: "awake", "wk", 240: "awakens", "wkns", 241: "away", "awy", 242: "Bad", "Bd", 243: "bad", "bd", 244: "back", "bk", 245: "backpack", "bkpk", 246: "backspace", "bksp", 247: "ball", "bl", 248: "be", "b", 249: "because", "bcs", 250: "becomes", "bcms", 251: "been", "bn", 252: "before", "bfr", 253: "begin", "bgn", 254: "beginning", "bgng", 255: "behind", "bhnd", 256: "Being", "Bng", 257: "being", "bng", 258: "better", "btr", 259: "between", "btwn", 260: "beautiful", "cute", 261: "befalls", "bfls", 262: "blast", "blst", 263: "blinded", "blndd", 264: "blind", "blnd", 265: "blob", "blb", 266: "blown", "blwn", 267: "bolt", "blt", 268: "boolean", "bool", 269: "bottle", "btl", 270: "breaks", "brks", 271: "burn", "brn", 272: "burned", "brnd", 273: "burning", "brng", 274: "But", "Bt", 275: "but", "bt", 276: "cadaver", "bdy", 277: "Carrying", "Crryng", 278: "carrying", "crryng", 279: "carry", "crry", 280: "ceiling", "clng", 281: "chain", "chn", 282: "choose", "pck", 283: "climb", "clmb", 284: "closed", "clsd", 285: "closes", "clses", 286: "close", "cls", 287: "cold", "cld", 288: "coloured", "clrd", 289: "command", "cmd", 290: "confused", "cnfsd", 291: "confuse", "cnfs", 292: "confusion", "cnfsn", 293: "contains", "hlds", 294: "Continue", "Cont", 295: "continue", "cont", 296: "contribution", "gft", 297: "control", "ctl", 298: "corridor", "corr", 299: "course", "crse", 300: "crashes", "crshs", 301: "darker", "drkr", 302: "darkness", "drknss", 303: "dark", "drk", 304: "dead", "dd", 305: "defend", "dfnd", 306: "delicatessen", "deli", 307: "description", "dscr", 308: "detection", "dt", 309: "device", "dv", 310: "digging", "dgng", 311: "dig", "dg", 312: "direction", "dir", 313: "directory", "drctry", 314: "disappears", "dsprs", 315: "discovered", "dscvrd", 316: "distance", "dist", 317: "disturbed", "dstrbd", 318: "door", "dr", 319: "downward", "dnwrd", 320: "down", "dn", 321: "drop", "drp", 322: "Dropped", "Drpd", 323: "dropped", "drpd", 324: "dungeon", "dngn", 325: "effort", "eff", 326: "else", "els", 327: "empty", "mt", 328: "enchant", "ncht", 329: "enormous", "bg", 330: "enough", "nf", 331: "enters", "ntrs", 332: "Error", "Er", 333: "error", "er", 334: "escaped", "escpd", 335: "escape", "escp", 336: "evaporate", "dry", 337: "evaporates", "drys", 338: "Everything", "Evrth", 339: "everything", "evrth", 340: "example", "xmpl", 341: "exist", "xst", 342: "expences", "xpncs", 343: "experienced", "xprncd", 344: "experience", "xprnc", 345: "Falling", "Fllng", 346: "falling", "fllng", 347: "falls", "flls", 348: "fall", "fll", 349: "feeling", "flng", 350: "feels", "fls", 351: "feel", "fl", 352: "feet", "ft", 353: "File", "Fl", 354: "file", "fl", 355: "finds", "fnds", 356: "find", "fnd", 357: "fingers", "fngrs", 358: "fingertips", "fngrtps", 359: "finger", "fngr", 360: "Finished", "Fnshd", 361: "finished", "fnshd", 362: "first", "1st", 363: "flash", "flsh", 364: "flask", "flsk", 365: "float", "flt", 366: "floating", "fltng", 367: "floor", "flr", 368: "followed", "fllwd", 369: "follow", "fllw", 370: "food", "fd", 371: "Fortunately", "4tntly", 372: "For", "4", 373: "for", "4", 374: "from", "fr", 375: "frozen", "frzn", 376: "funny", "odd", 377: "gets", "gts", 378: "get", "gt", 379: "gift", "gft", 380: "give", "gv", 381: "gladly", "gldly", 382: "glass", "glss", 383: "gloves", "glvs", 384: "glowing", "glwng", 385: "glows", "glws", 386: "glow", "glw", 387: "gold", "gld", 388: "great", "grt", 389: "greedy", "grdy", 390: "guards", "grds", 391: "guard", "grd", 392: "had", "hd", 393: "half", "hlf", 394: "handed", "hndd", 395: "hands", "hnds", 396: "hand", "hnd", 397: "Happens", "Hpns", 398: "happens", "hpns", 399: "hard", "hrd", 400: "has", "hs", 401: "head", "hd", 402: "heavier", "hvyr", 403: "heavy", "hvy", 404: "%sheavy", "%shvy", 405: "held", "hld", 406: "Hello", "Hi", 407: "helmet", "hlmt", 408: "helping", "hlpng", 409: "helps", "hlps", 410: "Here", "Hr", 411: "here", "hr", 412: "hidden", "hddn", 413: "Hit", "Ht", 414: "hit", "ht", 415: "hits", "hts", 416: "holding", "hldng", 417: "However", "Hwvr", 418: "How", "Hw", 419: "how", "hw", 420: "In", "N", 421: "in", "n", 422: "incantation", "spl", 423: "individual", "indiv", 424: "initialization", "ini", 425: "inside", "nsd", 426: "instructions", "instrs", 427: "interested", "hep", 428: "Interesting...", "Hmm...", 429: "interesting", "fun", 430: "into", "n2", 431: "inventory", "nvnt", 432: "Is", "S", 433: "is", "s", 434: "items", "itms", 435: "itself", "itslf", 436: "kind", "knd", 437: "know", "kn", 438: "labeled", "lbld", 439: "label", "lbl", 440: "language", "lang", 441: "large", "lrg", 442: "leave", "lv", 443: "leaving", "lvng", 444: "Left", "Lft", 445: "left", "lft", 446: "leg", "lg", 447: "legs", "lgs", 448: "Level", "Lvl", 449: "level", "lvl", 450: "lift", "lft", 451: "lifting", "lftng", 452: "likely", "lkly", 453: "like", "lk", 454: "list", "lst", 455: "little", "ltl", 456: "liquid", "lqd", 457: "liquor", "lqr", 458: "load", "ld", 459: "look", "lk", 460: "looking", "lkng", 461: "looks", "lks", 462: "longer", "lngr", 463: "Long", "Lng", 464: "long", "lng", 465: "made", "md", 466: "make", "mk", 467: "makes", "mks", 468: "many", "mny", 469: "message", "msg", 470: "missed", "msd", 471: "misses", "mses", 472: "miss", "ms", 473: "mistake", "mstk", 474: "moment", "mmnt", 475: "money", "bux", 476: "monsters", "mons", 477: "monster", "mon", 478: "Moreover", "Mrvr", 479: "Most", "Mst", 480: "moving", "mvng", 481: "move", "mv", 482: "much", "mch", 483: "must", "mst", 484: "Name", "Nm", 485: "named", "nmd", 486: "nearby", "nrby", 487: "needs", "nds", 488: "Negative", "Ng", 489: "never", "nvr", 490: "nobody", "nbdy", 491: "Nothing", "Nth", 492: "nothing", "nth", 493: "Not", "Nt", 494: "not", "nt", 495: "notice", "c", 496: "Now", "Nw", 497: "now", "nw", 498: "Number", "#", 499: "number", "#", 500: "objects", "objs", 501: "object", "obj", 502: "of", "f", 503: "off", "ff", 504: "one", "1", 505: "only", "nly", 506: "open", "opn", 507: "opener", "opnr", 508: "Opening", "Opng", 509: "opening", "opng", 510: "opens", "opns", 511: "options", "opts", 512: "option", "opt", 513: "order", "ordr", 514: "Outside", "Otsd", 515: "outside", "otsd", 516: "out", "ot", 517: "overflow", "vrfl", 518: "over", "ovr", 519: "Paid", "Pd", 520: "paid", "pd", 521: "pair", "pr", 522: "partially", "prtly", 523: "parts", "prts", 524: "part", "prt", 525: "patterns", "ptrns", 526: "pay", "py", 527: "paying", "pyng", 528: "payment", "pymnt", 529: "peculiarly", "odly", 530: "peculiar", "od", 531: "Perhaps", "Prhps", 532: "perhaps", "prhps", 533: "Pick", "Pk", 534: "pick", "pk", 535: "picture", "pc", 536: "pieces", "pcs", 537: "piece", "pc", 538: "place", "plc", 539: "Please", "Pls", 540: "please", "pls", 541: "plundered", "plndrd", 542: "points", "pnts", 543: "poison", "poisn", 544: "poisoned", "poisnd", 545: "poisoning", "poisng", 546: "poisonous", "poisns", 547: "presence", "prsnc", 548: "present", "prsnt", 549: "Probably", "Prb", 550: "probably", "prb", 551: "pulls", "pls", 552: "pull", "pl", 553: "punished", "pnshd", 554: "purse", "prs", 555: "push", "psh", 556: "put", "pt", 557: "quantity", "qan", 558: "quickly", "qckly", 559: "Readonly", "Rdnly", 560: "Read", "Rd", 561: "reading", "rdng", 562: "reads", "rds", 563: "read", "rd", 564: "really", "rly", 565: "recently", "rcntly", 566: "record_lock", "rclk", 567: "refrigerate", "frig", 568: "remove", "rmv", 569: "removed", "rmvd", 570: "renamed", "rnmd", 571: "Right", "Rt", 572: "right", "rt", 573: "rings", "rngs", 574: "ring", "rng", 575: "rock", "rk", 576: "rooms", "rms", 577: "room", "rm", 578: "safelock", "sflk", 579: "satisfied", "satsfied", 580: "scroll", "scrl", 581: "scrolls", "scrls", 582: "seems", "sms", 583: "seem", "sm", 584: "see", "c", 585: "sense", "sns", 586: "several", "svrl", 587: "Shopkeeper", "Shpkpr", 588: "shopkeeper", "shpkpr", 589: "shopping", "shpng", 590: "shop", "shp", 591: "short", "shrt", 592: "snatches", "sntchs", 593: "Somebody", "Smbdy", 594: "somebody", "smbdy", 595: "Somehow", "Smhw", 596: "Someone", "Sm1", 597: "someone", "sm1", 598: "Something", "Sth", 599: "something", "sth", 600: "somewhat", "smwt", 601: "Some", "Sm", 602: "some", "sm", 603: "sound", "snd", 604: "spins", "spns", 605: "splashed", "splshd", 606: "squeeze", "sqz", 607: "start", "strt", 608: "still", "stl", 609: "stomach", "gut", 610: "stone", "stn", 611: "stranger", "strgr", 612: "Strange", "Od", 613: "strange", "od", 614: "stuff", "stf", 615: "Suddenly", "Sdnly", 616: "suddenly", "sdnly", 617: "sudden", "sdn", 618: "sword", "swd", 619: "takes", "tks", 620: "take", "tk", 621: "taking", "tkng", 622: "teleported", "tprtd", 623: "teleportation", "tprtn", 624: "teleport", "tprt", 625: "terminal", "term", 626: "terminals", "terms", 627: "Thank", "Thnk", 628: "That", "Th", 629: "that", "th", 630: "them", "tm", 631: "themselves", "tmslvs", 632: "then", "tn", 633: "There", "Tr", 634: "there", "tr", 635: "These", "Tse", 636: "these", "tse", 637: "The", "T", 638: "the", "t", 639: "Things", "Tgs", 640: "things", "tgs", 641: "thing", "tg", 642: "Thinking", "Thnkng", 643: "think", "thnk", 644: "thin", "thn", 645: "This", "Ths", 646: "this", "ths", 647: "thousand", "1k", 648: "To", "2", 649: "to", "2", 650: "top", "tp", 651: "Too", "2", 652: "too", "2", 653: "trap", "trp", 654: "turned", "trnd", 655: "turns", "trns", 656: "turn", "trn", 657: "two", "2", 658: "Type", "Typ", 659: "type", "typ", 660: "under", "ndr", 661: "Unfortunately", "N4tntly", 662: "Unknown", "Nkn", 663: "unknown", "nkn", 664: "Unpaid", "Npd", 665: "unpaid", "npd", 666: "very", "vry", 667: "wall", "wl", 668: "want", "wnt", 669: "Was", "Ws", 670: "was", "ws", 671: "water", "h2o", 672: "way", "wy", 673: "weapon", "wpn", 674: "wear", "wr", 675: "wearing", "wrng", 676: "Welcome", "Wlcm", 677: "welcome", "wlcm", 678: "were", "wr", 679: "What", "Wt", 680: "what", "wt", 681: "when", "wn", 682: "Where", "Wr", 683: "where", "wr", 684: "while", "wl", 685: "whistle", "wstl", 686: "whistling", "wstlng", 687: "why", "y", 688: "Will", "Wll", 689: "Will", "Wll", 690: "will", "wll", 691: "wipe", "wp", 692: "wiped", "wpd", 693: "without", "w/o", 694: "With", "Wth", 695: "with", "/w", 696: "words", "wrds", 697: "world", "wrld", 698: "worth", "wrth", 699: "worthless", "wrthlss", 700: "write", "wrt", 701: "writing", "wrtng", 702: "written", "wrtn", 703: "Zorkmids", "Bux", 704: "zorkmids", "bux", 705: 0, 0 706: }; 707: 708: 709: main () 710: 711: { register int incomment = 0, 712: incharacter = 0; 713: register char lastc = '\0', 714: c; 715: 716: while ((c = getchar ()) != EOF) 717: { putchar (c); 718: 719: if (incomment) 720: incomment = !(lastc == '*' && c == '/'); 721: else 722: if (incharacter) 723: if (lastc == '\\' && c == '\\') 724: c = '\0'; /* don't let '\\' fool us ... */ 725: else 726: incharacter = !(lastc != '\\' && c == '\''); 727: else 728: if (lastc == '/' && c == '*') 729: { incomment = 1; 730: c = '\0'; /* don't let `/ * / ...' fool us */ 731: } 732: else if (c == '\'') 733: incharacter = 1; 734: else 735: if (c == '"') 736: dostring (); 737: 738: lastc = c; 739: } 740: 741: exit (0); 742: } 743: 744: 745: dostring () 746: 747: { char string[BUFSIZ]; 748: register char *cp; 749: register trans *tp; 750: 751: getstring (string); 752: for (tp = trtab; tp->word; tp++) 753: scanstring (string, tp->word, tp->crypt); 754: fputs (string, stdout); 755: putchar ('"'); 756: } 757: 758: 759: getstring (string) 760: register char *string; 761: 762: { register char lastc = '"', 763: c; 764: 765: while ((c = getchar ()) != EOF && !(lastc != '\\' && c == '"')) 766: { if (lastc == '\\' && c == '\n') 767: c = getchar (); 768: *string++ = c; 769: if (lastc == '\\' && c == '\\') 770: c = '\0'; /* don't let `"...\\"' fool us */ 771: lastc = c; 772: } 773: *string = '\0'; 774: } 775: 776: 777: scanstring (string, word, crypt) 778: char *string, *word, *crypt; 779: 780: { register int wlen = strlen (word), 781: clen = strlen (crypt); 782: register char *cp = string, 783: *end; 784: 785: end = string + strlen (string) - wlen; 786: while (cp <= end) 787: if ( strncmp (cp, word, wlen) == 0 788: && (cp == string || !isalpha (cp[-1])) 789: && (cp == end || !isalpha (cp[wlen]))) 790: { strncpy (cp, crypt, clen); 791: strcpy (cp + clen, cp + wlen); 792: cp += clen; 793: end -= wlen-clen; 794: } 795: else 796: cp++; 797: }
|
Last modified: 1986-05-06
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 2341 |
|