(FILECREATED " 3-Dec-85 21:33:20" {ERIS}<LISPUSERS>KOTO>JARGON.;2 9802
changes to: (VARS JARGON.FILE.LOCATION)
(FNS JARGON.DISPLAY)
previous date: "28-Aug-84 13:21:05" {ERIS}<LISPUSERS>KOTO>JARGON.;1)
(* Copyright (c) 1984, 1985 by Jeff Shrager. All rights reserved.)
(PRETTYCOMPRINT JARGONCOMS)
(RPAQQ JARGONCOMS ((VARS JARGON.FILE.LOCATION JARGON.MEM)
(FNS JARG.COMPILE JARGON.DISPLAY JARGON.READ JARGON.SHOW)
(P (JARGON.READ))))
(RPAQQ JARGON.FILE.LOCATION JARGON.DB)
(RPAQQ JARGON.MEM (("Verb Doubling" . 0)
("SoundAlike Slang" . 379)
("-P convention" . 970)
("Perculiar Noun Endings" . 1685)
("Spoken Inarticulations" . 2038)
("@BEGIN/@END" . 2356)
("Angle Brackets" . 2731)
("AOS" . 2820)
("ARG" . 3008)
("AutoMagically" . 3108)
("BagBiter" . 3405)
("BANG" . 3772)
("BAR" . 3855)
("Barf" . 4024)
("Bells and Whistles" . 4388)
("BigNums" . 4639)
("BIN" . 5187)
("Binary" . 5707)
("Bit" . 5749)
("BitBlt" . 6213)
("Bit Bucket" . 6413)
("Bletch" . 6656)
("BLT" . 6848)
("Bogosity" . 7283)
("Bogus" . 7597)
("Bounce" . 8606)
("Brain-Damaged" . 8731)
("Break" . 9137)
("Broken" . 9390)
("Broket" . 9524)
("Bucky Bits" . 9752)
("Bug" . 10112)
("Bum" . 10560)
("Buzz" . 10926)
("Canonical" . 11009)
("Catatonia" . 11583)
("CDR" . 11709)
("Chine Nual" . 11836)
("Chomp" . 11963)
("Close" . 12379)
("CokeBottle" . 12501)
("Comm Mode" . 12706)
("Connector Conspiracy" . 14706)
("CONS" . 15094)
("Crash" . 15229)
("Cretin" . 15864)
("CRLF" . 15986)
("CROCK" . 16094)
("Crufty" . 16694)
("Crunch" . 17518)
("CTY" . 18698)
("CUSPy" . 18788)
("Daemon" . 19063)
("Day Mode" . 20322)
("Deadlock" . 20356)
("Deadly Embrace" . 21021)
("Demented" . 21220)
("Demon" . 21527)
("Diablo" . 22431)
("Diddle" . 22588)
("Dike" . 22827)
("DMP" . 22929)
("Do protocol" . 22951)
("Down" . 23308)
("DPB" . 23446)
("Dragon" . 23540)
("DWIM" . 24094)
("English" . 24507)
("Epsilon" . 24882)
("EXCH" . 25215)
("EXCL" . 25323)
("EXE" . 25407)
("Faulty" . 25430)
("Feature" . 25545)
("Feep" . 26377)
("Fencepost" . 26900)
("Fine" . 27208)
("Flag day" . 27391)
("Flakey" . 27715)
("Flame" . 27772)
("Flap" . 28118)
("Flavor" . 28383)
("Flavorful" . 28711)
("Flush" . 28822)
("FOO" . 29150)
("Fried" . 29722)
("Frob" . 30016)
("Frobnicate" . 30240)
("Frobnitz" . 30939)
("Frog" . 31459)
("Frotz" . 31824)
("Fry" . 31910)
("FTP" . 32107)
("Fudge" . 32368)
("Fudge Factor" . 32607)
("Gabriel" . 33261)
("Garbage Collect" . 33564)
("Garply" . 33615)
("Gas" . 33683)
("GC" . 34250)
("Gedanken" . 34551)
("Glass TTY" . 35123)
("Glitch" . 35426)
("Glork" . 35669)
("Gobble" . 36012)
("Gorp" . 36280)
("Grind" . 36461)
("Gritch" . 36751)
("Grok" . 36885)
("Gronk" . 37069)
("Grovel" . 37575)
("Grungy" . 37770)
("Gubbish" . 37990)
("Gun" . 38103)
("Hack" . 38302)
("Hacker" . 40242)
("Hackish" . 41108)
("Hair" . 41165)
("Hairy" . 41363)
("HAKMEM" . 41679)
("HandWave" . 41835)
("Hardwarily" . 42429)
("HELLO WALL" . 42581)
("Hirsute" . 42604)
("Hook" . 42667)
("Humongous" . 42957)
("Hungus" . 42992)
("IMPCOM" . 43233)
("Infinite" . 43254)
("IRP" . 43390)
("JFCL" . 43763)
("Jiffy" . 43982)
("Jock" . 44184)
("J. Random" . 44338)
("JRST" . 44362)
("JSYS" . 44541)
("Kludge" . 44603)
("LDB" . 45220)
("Life" . 45303)
("Line Feed" . 45460)
("Line Starve" . 45672)
("Logical" . 45713)
("Lose" . 46511)
("Loser" . 47065)
("Loss" . 47167)
("Lossage" . 47235)
("LPT" . 47283)
("Luser" . 47325)
("MacroTape" . 47343)
("Magic" . 47422)
("Marginal" . 47963)
("MicroTape" . 48406)
("Misfeature" . 48580)
("Moby" . 49146)
("Mode" . 50572)
("Modulo" . 50998)
("Moon" . 51188)
("Mumblage" . 51313)
("Mummble" . 51579)
("Munch" . 52016)
("Munching Squares" . 52245)
("Mung" . 52769)
("N" . 53062)
("Night Mode" . 53629)
("NIL" . 53665)
("Obscure" . 53808)
("Open" . 54103)
("Parse" . 54369)
("Patch" . 55068)
("PDL" . 55357)
("Pessimal" . 55806)
("Pessimizing Compiler" . 55907)
("Phantom" . 56035)
("Phase" . 56207)
("Phase of the moon" . 56963)
("Plugh" . 57350)
("POM" . 57397)
("POP" . 57512)
("PPN" . 57848)
("Protocol" . 58708)
("PseudoPrime" . 58736)
("PTY" . 58832)
("Punt" . 59123)
("PUSH" . 59260)
("Ques" . 59570)
("QUUX" . 59674)
("Random" . 60857)
("Randomness" . 62487)
("Rape" . 62915)
("Rave" . 63148)
("Real user" . 63549)
("Real world" . 63760)
("Recursion" . 64449)
("REL" . 64494)
("Right thing" . 64509)
("Rude" . 64828)
("Sacred" . 65022)
("Saga" . 65301)
("SAV" . 65387)
("Semi" . 65409)
("Server" . 65695)
("Shift left (right) Logical" . 65849)
("SHR" . 66194)
("Shriek" . 66225)
("69" . 66269)
("Slop" . 66844)
("Slurp" . 67153)
("Smart" . 67294)
("Smoking Clover" . 67558)
("SMOP" . 67618)
("Snarf" . 67881)
("Software rot" . 68148)
("Softwarily" . 68400)
("SOS" . 68552)
("Spazz" . 68676)
("Splat" . 68902)
("SUPDUP" . 69549)
("State" . 69768)
("Stoppage" . 70043)
("STY" . 70158)
("Superprogrammer" . 70543)
("Swapped" . 70657)
("System" . 71122)
("T" . 71475)
("Tail Recursion" . 71641)
("Talk Mode" . 71680)
("Taste" . 71706)
("Teco" . 72043)
("TelNet" . 73271)
("Tense" . 73521)
("TERPRI" . 73960)
("Theory" . 74090)
("Thrash" . 74433)
("Tick" . 74698)
("Time" . 75284)
("Tool" . 75628)
("Trap" . 75678)
("TTY" . 76165)
("Tweak" . 76492)
("Twenex" . 76630)
("Twiddle" . 77234)
("Up" . 77716)
("User" . 77875)
("UUO" . 78539)
("Vanilla" . 79368)
("Vaxen" . 79674)
("Virgin" . 79771)
("Virtual" . 79973)
("Visionary" . 80157)
("Waldo" . 80256)
("Wall" . 80576)
("Wallpaper" . 80808)
("WaterBottle Soccer" . 81412)
("Wedged" . 81807)
("What" . 82074)
("Wheel" . 82189)
("Wheel Wars" . 82725)
("Win" . 82982)
("Winnage" . 83331)
("Winner" . 83457)
("Winnitude" . 83604)
("Wizard" . 83750)
("WormHole" . 84186)
("WOW" . 84937)
("XGP" . 84953)
("XYZZY" . 85069)
("YOYO" . 85118)
("YOYO Mode" . 85253)
("Yu-Shiang whole fish" . 85384)
("Zero" . 85643)))
(DEFINEQ
(JARG.COMPILE
[LAMBDA NIL (* Jeff.Shrager "26-Aug-84 14:27")
(PROG ((FILE (OPENFILE (QUOTE {PHYLUM}<SHRAGER>TEXT>JARGON.TED)
(QUOTE INPUT)))
CHAR
(STARTLOC 1)
STOPFLG)
LOOP(SETQ CHAR (READC FILE))
(COND
[(EQ (CAR (CHCON CHAR))
13)
(TERPRI)
(COND
(STOPFLG (push MEM (CONS (PROMPTFORWORD "Save as:" NIL NIL NIL NIL NIL
(QUOTE (13)))
STARTLOC))
(TERPRI)
(SETQ STARTLOC (GETFILEPTR FILE))
(SETQ STOPFLG NIL))
(T (SETQ STOPFLG T]
(T (PRIN1 CHAR)
(SETQ STOPFLG NIL)))
(GO LOOP])
(JARGON.DISPLAY
[LAMBDA (ITEM MENU MOUSEKEY) (* Jeff.Shrager " 3-Dec-85 21:32")
(COND
[(BOUNDP (QUOTE JARGON.FILE))
(COND
((OPENP JARGON.FILE)
(JARGON.SHOW ITEM))
(T (SETQ JARGON.FILE (OPENFILE (FINDFILE (QUOTE JARGON.DB)
T LISPUSERSDIRECTORIES)
(QUOTE INPUT)))
(JARGON.SHOW ITEM]
(T (SETQ JARGON.FILE (OPENFILE (FINDFILE (QUOTE JARGON.DB)
T LISPUSERSDIRECTORIES)
(QUOTE INPUT)))
(JARGON.SHOW ITEM])
(JARGON.READ
[LAMBDA NIL (* Jeff.Shrager "28-Aug-84 13:17")
(COND
((BOUNDP (QUOTE JARGON.MENU))
(OPENW JARGON.MENU))
(T (SETQ JARGON.MENU (ADDMENU (create MENU
ITEMS ← JARGON.MEM
WHENSELECTEDFN ←(FUNCTION JARGON.DISPLAY)
MENUPOSITION ←(QUOTE (150 . 100))
MENUCOLUMNS ← 5])
(JARGON.SHOW
[LAMBDA (ITEM) (* Jeff.Shrager "26-Aug-84 15:54")
(SETFILEPTR JARGON.FILE (CDR ITEM))
(SETQ END (CDR (MEMBER ITEM JARGON.MEM)))
[COND
[(NULL END)
(SETQ END (GETFILEINFO JARGON.FILE (QUOTE LENGTH]
(T (SETQ END (CDAR END]
(for I from 1 to (IDIFFERENCE END (CDR ITEM)) do (PRIN1 (READC JARGON.FILE])
)
(JARGON.READ)
(PUTPROPS JARGON COPYRIGHT ("Jeff Shrager" 1984 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (7672 9711 (JARG.COMPILE 7682 . 8327) (JARGON.DISPLAY 8329 . 8911) (JARGON.READ 8913 .
9299) (JARGON.SHOW 9301 . 9709)))))
STOP