(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Sep-94 15:43:22" ("compiled on " {DSK}export>lispcore>internal>library>ARINDEX.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 1-Apr-92 18:07:47" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>ARINDEX.;4| 19157 changes to%: (VARS ARINDEXCOMS) previous date%: "15-Jun-90 10:59:57" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>ARINDEX.;3|) AR.GATHER.NEW.AR.DATA :D8 (L (2 AR.SCRATCH.FILE 1 AR.NUM.LIST 0 FORMWINDOW) F 8 AR.INDEX.FIELD.LIST) AqH IHzB LhLBWi _O@ioL BM g@ioL NJ KhZHXK&dYI H(132 AR.INDEX.FIND.ENTRY.PTR 98 AR.PROMPT.PRINT 78 SETFILEPTR 70 AR.PROMPT.PRINT 47 \MVLIST 42 AR.FETCH.AND.PARSE.AR 29 GETFILEPTR 22 BLOCK) (84 DELETE) ( 92 "analyzed AR # " 64 "Can't get AR info for AR # ") AR.INDEX.CREATE :D8 (L (2 FORM.SPECS 1 FIELD.LIST 0 FILENAME) F 11 AR.FORM.SPECS)  A`bBWb@ggo ghjdhdAhd0A#dgjgjhIHhZH&JlA!L3IJIKHj IH` Hj H BM ^CMJgNk" O O ;_OOOh _O_Ok_MJgK Kl[L\f(256 LISTPUT 223 \NCONC2 203 LISTPUT 173 AR.GET.ENUMERATED.FIELD.KEYS 163 CLOSEF 157 \DWOUT 150 PRINT 138 SETFILEPTR 37 OPENSTREAM) (250 FIELD.OFFSET 185 ENUMERATED.FIELD.KEYLIST 145 FILERDTBL 77 FIELD.END.PTR 71 FIELD.BEGIN.PTR 42 AR.INDEX.DATA 27 NEW 22 OUTPUT 6 AR.INDEX.DEFAULT.FIELDS) ( 32 ((TYPE BINARY))) AR.GET.ENUMERATED.FIELD.KEYS :D8 (L (1 FIELD 0 FORM.SPECS)) ]A@Hg'dgHg'g,0Hg'dh YJI[ZK  ZI(86 LAST 80 CL:REMOVE-DUPLICATES 58 \APPEND2) (47 SUBMENULIST 35 SUBMENU 28 MENULIST 19 MENU 12 FIELDTYPE) () AR.INDEX.FIND.ENTRY.PTR :D8 (L (2 HIGH.HINT 1 LOW.HINT 0 NUM) F 6 AR.INDEX.ENTRY.SIZE F 7 AR.INDEX.ENTRY.BEGIN.PTR F 8 AR.INDEX.ENTRY.END.PTR) tAWBWBH I @dKo @J Hi@K IiHIHlVV\dH Ih ]@LMZLM[(98 AR.GET.ENTRY.NUM 87 EQP 62 EQP 50 EQP 42 SHOULDNT 25 AR.GET.ENTRY.NUM 18 AR.GET.ENTRY.NUM) NIL ( 37 "Entry pointer higher than higher bound") AR.INDEX.REWRITE.ENTRY.DATA :D8 (L (1 NUM.DATA.LIST 0 NEW.FILE) F 29 AR.INDEX.FILE F 30 AR.INDEX.FIELD.SPECS F 31 AR.INDEX.ENTRY.BEGIN.PTR F 32 AR.INDEX.FIELD.LIST F 33 AR.INDEX.ENTRY.END.PTR F 34 AR.INDEX.ENTRY.SIZE) W>W@1H I20I2dW<g'J KhZYHXK&ZjNMh_M&OZ0 A WBHhA__O_AOH=W:H @W: Jd@KW: W: Og3@O JIl3O_O JI2O"_(O$SO0I_OW<g'_ @OOOOO O O_O_Ol__&O(O&O_*O(dO*O$_$O(dOL _,O. O,h_0O,&_.O0J"O4_6O2_8O6HWDظAbdO8O6_6O2_2(369 AR.GET.FIELD.VAL.LENGTH 292 \DWOUT 283 AR.GET.FIELD.VAL.PTR 195 \DWOUT 171 GETFILEPTR 159 \DWOUT 153 \DWIN 137 \DWOUT 132 \DWIN 123 SETFILEPTR) (263 FIELD.BEGIN.PTR 183 DELETE 32 FIELD.OFFSET) () AR.INDEX.REWRITE.FIELD.DATA :D8 (L (3 NUM.DATA.LIST 2 FIELD.NAME 1 SCRATCHFILE 0 NEWFILE) F 12 AR.INDEX.FIELD.SPECS F 13 AR.INDEX.FILE F 14 AR.INDEX.ENTRY.SIZE F 15 AR.INDEX.ENTRY.BEGIN.PTR)  BWg'BWg'BWg'BWg'HIoB J\Ca MKL W@LK h^_N_IOBIJK OWWJ_LW@LO NgOBN_IC@9_AO IOj&A@O @HAO 'j OIOWBIJK Ok؁OM]9(256 AR.GET.FIELD.VAL.PTR 234 BOUT 225 PACKC 220 AR.READ.BYTES 208 COPYBYTES 189 SETFILEPTR 146 COPYBYTES 119 AR.GET.FIELD.VAL.PTR 88 COPYBYTES 61 ERROR) (155 DELETE 42 FIELD.END.PTR 31 FIELD.BEGIN.PTR 20 FIELD.OFFSET 9 ENUMERATED.FIELD.KEYLIST) ( 55 "Field doesn't have keylist or offset") AR.QFORM.FN.PRINT.INDEXA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 12 AR.MAX.INDEX P 11 AR.INDEX.FIELD.LIST P 9 AR.INDEX.FIELD.SPECS P 7 AR.INDEX.ENTRY.SIZE P 5 AR.INDEX.ENTRY.END.PTR P 3 AR.INDEX.ENTRY.BEGIN.PTR P 1 AR.INDEX.FILE I 0 SI::*CLEANUP-FORMS* F 13 QFORMWINDOW) Wg hg Wg  HHZJ\L^_N__O__O_I W ` i oW (125 AR.PROMPT 113 AR.INDEX.PRINT 107 TTY.PROCESS 96 AR.INDEX.FILE.REOPEN 88 OPENP 34 GETWINDOWUSERPROP 22 OBTAIN.MONITORLOCK 11 GETWINDOWUSERPROP) (102 \RUNNING.PROCESS 29 AR.INDEX.DATA 17 WITH.MONITOR 6 AR.INDEX.MONITORLOCK) ( 118 "done") AR.QFORM.FN.PRINT.INDEX :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 0 QFORMWINDOW)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 AR.QFORM.FN.PRINT.INDEXA0001) (7 SI::MONITOR-UNWIND) () AR.INDEX.PRINT :D8 (L (1 PRINT.ENTRY.DATA.FLG 0 FILE) P 0 *PRINT-BASE* F 14 AR.INDEX.FILE F 15 AR.INDEX.ENTRY.BEGIN.PTR F 16 AR.INDEX.ENTRY.SIZE F 17 AR.INDEX.ENTRY.END.PTR F 18 AR.INDEX.FIELD.SPECS F 19 AR.INDEX.FIELD.LIST) l  o@ W @ o@ @ @ o@ lh@ W@ o@ @ W&! O@ o@ W"W@ o@ @ W"WW i oi W i oi i AdghWW"ILh_W$g'OW$g'_O@ lh@ O@ @ O_4o@ WI W @ @ W&1 O IW Աv_W$_g'_Og'^HINOOg' \LO@ o@ WK W@J oYOg'_WIWW O O@ o@ W _jO] OM&M@ o@ @ O_(Mʹo@ W_W"O)WO W @ k@ OW ԰@ (665 TERPRI 651 SPACES 643 PRIN1 637 \DWIN 629 SETFILEPTR 608 PRIN1 577 TERPRI 570 PRIN1 558 PRIN1 526 PRIN1 514 PRIN1 505 SETFILEPTR 469 COPYBYTES 459 SETFILEPTR 450 PRIN1 438 PRIN1 424 AR.GET.FIELD.VAL.SHAPE 359 TERPRI 352 PRIN1 346 \DWIN 338 SETFILEPTR 329 PRIN1 309 TERPRI 302 PRIN1 293 TAB 283 PRIN1 222 TERPRI 215 PRIN1 203 PRIN1 194 PRIN1 182 PRIN1 168 TERPRI 161 PRIN1 149 PRIN1 137 PRIN1 125 TERPRI 104 TERPRI 97 PRIN1 85 PRIN1 76 TAB 66 PRIN1 55 TERPRI 48 TERPRI 41 PRIN1 29 PRIN1 23 GETEOFPTR 15 PRIN1) (484 ENUMERATED.FIELD.KEYLIST 418 FIELD.END.PTR 403 FIELD.OFFSET 392 FIELD.BEGIN.PTR 270 FIELD.BEGIN.PTR 258 FIELD.END.PTR 229 ALL) ( 602 "Contains entries: " 564 "%"" 520 " %"" 475 "%"" 444 " %"" 323 "Entry # " 209 " bytes" 188 " entries of " 155 " bytes" 131 "Total Entry Space: " 91 " bytes" 60 "Total Field Space: " 35 " bytes" 9 "Total file size: ") AR.QFORM.FN.UPDATE :D8 (L (0 QFORMWINDOW)) (@g @H YoIh@ h(36 AR.PROMPT 20 AR.INDEX.UPDATE 10 AR.GET.BUTTON.FIELD.AS.LIST) (5 |Update List:|) ( 26 "Update done --- new file: ") AR.INDEX.UPDATEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 14 *UPPER-CASE-FILE-NAMES* P 12 AR.MAX.INDEX P 11 AR.INDEX.FIELD.LIST P 9 AR.INDEX.FIELD.SPECS P 7 AR.INDEX.ENTRY.SIZE P 5 AR.INDEX.ENTRY.END.PTR P 3 AR.INDEX.ENTRY.BEGIN.PTR P 1 AR.INDEX.FILE I 0 SI::*CLEANUP-FORMS* F 21 FORMWINDOW F 22 AR.NUM.LIST) W*g hg W*g  HHZJ\L^_N__O__O_I W* pW,W,d3 ihW*io hW, c,ghgggI ggo _ W*W,O _ghgggI ggo _"ghddOhOhd_$O _&OCd_O&gO" O"O OO OO&gO" O O$O&O$O" O"O O$O" O" _(O$O"` O"O( O" O" ghgI (509 RENAMEFILE 504 PACKFILENAME.STRING 499 FULLNAME 482 FULLNAME 475 CLOSEF 468 \DWOUT 459 PRINT 443 GETFILEPTR 435 GETFILEPTR 423 AR.INDEX.REWRITE.ENTRY.DATA 413 GETFILEPTR 392 DELFILE 387 CLOSEF 375 LISTPUT 370 GETFILEPTR 351 AR.INDEX.REWRITE.FIELD.DATA 337 LISTPUT 332 GETFILEPTR 306 COPYALL 272 OPENSTREAM 252 PACKFILENAME.STRING 246 FULLNAME 217 AR.GATHER.NEW.AR.DATA 204 OPENSTREAM 184 PACKFILENAME.STRING 178 FULLNAME 149 SORT 144 CL:REMOVE-DUPLICATES 135 AR.PROMPT.PRINT 96 AR.INDEX.FILE.REOPEN 88 OPENP 34 GETWINDOWUSERPROP 22 OBTAIN.MONITORLOCK 11 GETWINDOWUSERPROP) (493 BODY 487 VERSION 454 FILERDTBL 363 FIELD.END.PTR 325 FIELD.BEGIN.PTR 279 AR.INDEX.DATA 262 NEW 257 OUTPUT 240 BODY 235 ARINDEX.NEW 230 BODY 224 VERSION 194 NEW 189 BOTH 172 BODY 167 AR.TEMP 162 BODY 156 VERSION 29 AR.INDEX.DATA 17 WITH.MONITOR 6 AR.INDEX.MONITORLOCK) ( 267 ((TYPE BINARY)) 199 ((TYPE BINARY)) 130 "Bad AR number list") AR.INDEX.UPDATE :D8 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 1 AR.NUM.LIST I 0 FORMWINDOW)  g $(22 SI::MONITOR-UNWIND 17 \MVLIST 12 AR.INDEX.UPDATEA0001) (7 SI::MONITOR-UNWIND) () AR.GET.FIELD.VAL.LENGTH :D8 (L (4 FIELD.VAL.END.PTR 3 FIELD.VAL.BEGIN.PTR 2 FIELD.OFFSET 1 FIELD.NAME 0 ENTRY.PTR) F 2 AR.INDEX.FILE F 3 AR.INDEX.FIELD.SPECS F 4 AR.INDEX.ENTRY.END.PTR F 5 AR.INDEX.ENTRY.SIZE) cT@]@UBASg'bR@B R YTHRHB R D ASg'C ASg'dIj(62 \DWIN 55 SETFILEPTR 40 \DWIN 34 SETFILEPTR) (89 FIELD.BEGIN.PTR 76 FIELD.END.PTR 21 FIELD.OFFSET) () AR.GET.FIELD.VAL.PTR :D8 (L (4 FIELD.VAL.END.PTR 3 FIELD.VAL.BEGIN.PTR 2 FIELD.OFFSET 1 FIELD.NAME 0 ENTRY.PTR) F 0 AR.INDEX.FIELD.SPECS F 1 AR.INDEX.FILE F 2 AR.INDEX.ENTRY.END.PTR) >R@,Q@B APg' C APg'Q D APg'(44 \DWIN 25 SETFILEPTR) (58 FIELD.END.PTR 37 FIELD.BEGIN.PTR 18 FIELD.OFFSET) () AR.GET.FIELD.VAL.SHAPE :D8 (L (3 FIELD.END 2 FIELD.BEGIN 1 FIELD.OFFSET 0 ENTRY.PTR) F 2 AR.INDEX.FILE F 3 AR.INDEX.ENTRY.END.PTR F 4 AR.INDEX.ENTRY.SIZE) ?S@7@ARH R YdBSHTCBՏRHT R ICj(53 \DWIN 46 SETFILEPTR 23 \DWIN 17 SETFILEPTR) NIL () AR.GET.ENTRY.NUM :D8 (L (0 PTR) F 0 AR.INDEX.FILE F 1 AR.INDEX.ENTRY.END.PTR) Q@oP@ P (22 \DWIN 16 SETFILEPTR) NIL ( 8 2147483647) (PRETTYCOMPRINT ARINDEXCOMS) (RPAQQ ARINDEXCOMS ((* ;; "Creating and updating the index. Separate file because AREDIT doesn't need this") (FNS AR.GATHER.NEW.AR.DATA AR.INDEX.CREATE AR.GET.ENUMERATED.FIELD.KEYS AR.INDEX.FIND.ENTRY.PTR AR.INDEX.REWRITE.ENTRY.DATA AR.INDEX.REWRITE.FIELD.DATA AR.QFORM.FN.PRINT.INDEX AR.INDEX.PRINT AR.QFORM.FN.UPDATE AR.INDEX.UPDATE) (FNS AR.GET.FIELD.VAL.LENGTH AR.GET.FIELD.VAL.PTR AR.GET.FIELD.VAL.SHAPE AR.GET.ENTRY.NUM) (INITVARS (AR.INDEX.DEFAULT.FIELDS (QUOTE (Subject%: Source%: Date%: Submitter%: |Assigned To:| Attn%: Status%: In/By%: |Problem Type:| Impact%: Difficulty%: Frequency%: Priority%: System%: Subsystem%: Machine%: Disk%: |Lisp Version:| |Source Files:| |Microcode Version:| |Memory Size:| |File Server:| |Server Software Version:| Edit-By%: Edit-Date%:))) ) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) ARQUERY) (GLOBALVARS AR.INDEX.DEFAULT.FIELDS) ( FUNCTIONS AR.ENTRY.PTR.TO.KEY.VAL.PTR ARSPECPUT)))) (RPAQ? AR.INDEX.DEFAULT.FIELDS (QUOTE (Subject%: Source%: Date%: Submitter%: |Assigned To:| Attn%: Status%: In/By%: |Problem Type:| Impact%: Difficulty%: Frequency%: Priority%: System%: Subsystem%: Machine%: Disk%: |Lisp Version:| |Source Files:| |Microcode Version:| |Memory Size:| |File Server:| |Server Software Version:| Edit-By%: Edit-Date%:))) (PUTPROPS ARINDEX COPYRIGHT ("Venue & Xerox Corporation" 1988 1990 1992)) NIL