Compare commits
11 Commits
medley-231
...
medley-231
| Author | SHA1 | Date | |
|---|---|---|---|
|
b1294ea5e9 | ||
|
2a9076bede | ||
|
|
72456ce4ec | ||
|
|
c8c4768315 | ||
|
735108ecb7 | ||
|
|
f735fca83e | ||
|
|
560def37bc | ||
|
|
41f32b7db5 | ||
|
|
ab831a46ba | ||
|
|
f1cf759098 | ||
|
|
017bf88a3a |
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
BIN
library/Cash-File.tedit
Normal file
BIN
library/Cash-File.tedit
Normal file
Binary file not shown.
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED "19-Jul-2023 09:30:47" |{WMEDLEY}<library>FILEBROWSER.;25| 265978
|
||||
(FILECREATED " 4-Nov-2023 23:55:27" |{WMEDLEY}<library>FILEBROWSER.;27| 266102
|
||||
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:CHANGES-TO (VARS FILEBROWSERCOMS)
|
||||
(FNS FB.EDITCOMMAND.ONEFILE)
|
||||
|
||||
:PREVIOUS-DATE "18-Jul-2023 22:19:30" |{WMEDLEY}<library>FILEBROWSER.;24|)
|
||||
:PREVIOUS-DATE " 4-Nov-2023 23:50:29" |{WMEDLEY}<library>FILEBROWSER.;26|)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT FILEBROWSERCOMS)
|
||||
@@ -41,7 +42,8 @@
|
||||
(FB.OVERFLOW.MAXABSOLUTE 30)
|
||||
(FB.OVERFLOW.MAXFRAC 0.06)
|
||||
(FB.DEFAULT.EDITOR 'TEDIT)
|
||||
(FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR)))
|
||||
(FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR))
|
||||
(FB.SEE.METHODS))
|
||||
(APPENDVARS (FONTVARS (FB.ICONFONT LITTLEFONT)
|
||||
(FB.BROWSERFONT DEFAULTFONT)
|
||||
(FB.PROMPTFONT LITTLEFONT)
|
||||
@@ -295,6 +297,8 @@ DOCOPY
|
||||
|
||||
(RPAQ? FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR))
|
||||
|
||||
(RPAQ? FB.SEE.METHODS )
|
||||
|
||||
(APPENDTOVAR FONTVARS (FB.ICONFONT LITTLEFONT)
|
||||
(FB.BROWSERFONT DEFAULTFONT)
|
||||
(FB.PROMPTFONT LITTLEFONT)
|
||||
@@ -1697,10 +1701,9 @@ Your deletions are thus ignored.")))
|
||||
ELSE (FB.FASTSEECOMMAND BROWSER KEY ITEM MENU)))))
|
||||
|
||||
(FB.EDITCOMMAND.ONEFILE
|
||||
(LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \;
|
||||
"Edited 19-Sep-2021 18:07 by rmk:")
|
||||
(* \;
|
||||
"Edited 27-Feb-2021 20:07 by rmk:")
|
||||
(LAMBDA (BROWSER FILE OPTION ITEM MENU) (* \; "Edited 4-Nov-2023 23:55 by rmk")
|
||||
(* \; "Edited 19-Sep-2021 18:07 by rmk:")
|
||||
(* \; "Edited 27-Feb-2021 20:07 by rmk:")
|
||||
(* \; "Edited 1-Feb-88 19:00 by bvm:")
|
||||
|
||||
(* |;;| "Called when we know that FILE is a file, not a directory, and that TEDIT exists. If OPTION is READONLY, we don't want to edit, just view. .")
|
||||
@@ -1717,25 +1720,26 @@ Your deletions are thus ignored.")))
|
||||
(* |;;| "The particular item may be a subitem of the EDIT or SEE menu item, in which case we want to unshade that too. Seems a little bruteforce")
|
||||
|
||||
(CL:UNLESS (MEMBER ITEM (FETCH (MENU ITEMS) OF MENU))
|
||||
(FOR I IN (FETCH (MENU ITEMS) OF MENU)
|
||||
WHEN (MEMBER ITEM (CDR (SASSOC 'SUBITEMS I))) DO (SHADEITEM I MENU
|
||||
FB.ITEMUNSELECTEDSHADE)
|
||||
(PUTMENUPROP MENU 'ITEMSHADE
|
||||
(CONS I
|
||||
FB.ITEMUNSELECTEDSHADE
|
||||
))))
|
||||
(FOR I IN (FETCH (MENU ITEMS) OF MENU) WHEN (MEMBER ITEM (CDR (SASSOC 'SUBITEMS I)))
|
||||
DO (SHADEITEM I MENU FB.ITEMUNSELECTEDSHADE)
|
||||
(PUTMENUPROP MENU 'ITEMSHADE (CONS I FB.ITEMUNSELECTEDSHADE))))
|
||||
(CL:MULTIPLE-VALUE-BIND (IGNORE CONDITION)
|
||||
(IGNORE-ERRORS (SELECTQ OPTION
|
||||
(READONLY (TEDIT-SEE FILE))
|
||||
(READONLY (|for| SM |in| FB.SEE.METHODS
|
||||
|when| (APPLY* (CAR SM)
|
||||
FILE)
|
||||
|do| (RETURN (APPLY* (CADR SM)
|
||||
FILE))
|
||||
|finally| (RETURN (TEDIT-SEE FILE))))
|
||||
(LISP (* \;
|
||||
"Original code allowed OPTION=NIL in thie branch, but NIL should have been coerced to TEDIT above.")
|
||||
"Original code allowed OPTION=NIL in thie branch, but NIL should have been coerced to TEDIT above.")
|
||||
|
||||
(* |;;| "Asks to load prop and edits the coms, presumably with SEDIT. We really don't want to use a text editor on a source file.")
|
||||
|
||||
(IF (LISPSOURCEFILEP FILE)
|
||||
THEN (FB.EDITLISPFILE FILE BROWSER)
|
||||
ELSE (FB.PROMPTW.FORMAT BROWSER
|
||||
"Failed because not a Lisp source file")))
|
||||
"Failed because not a Lisp source file")))
|
||||
(PROGN
|
||||
(* |;;| "Might just be a call to TEDIT (if OPTION = TEDIT)")
|
||||
|
||||
@@ -4246,51 +4250,51 @@ then click Recompute"))))
|
||||
(ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
|
||||
)
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (31814 54695 (FB 31824 . 32959) (FB.COPYBINARYCOMMAND 32961 . 33307) (FB.COPYTEXTCOMMAND
|
||||
33309 . 33651) (FILEBROWSER 33653 . 46759) (FB.TABLEBROWSER 46761 . 46978) (FB.SELECTEDFILES 46980 .
|
||||
47617) (FB.FETCHFILENAME 47619 . 48011) (FB.DIRECTORYP 48013 . 48407) (FB.PROMPTWPRINT 48409 . 49455)
|
||||
(FB.PROMPTW.FORMAT 49457 . 50194) (FB.PROMPTFORINPUT 50196 . 52448) (FB.YES-OR-NO-P 52450 . 53484) (
|
||||
FB.ALLOW.ABORT 53486 . 54340) (\\FB.HARDCOPY.TOFILE.EXTENSION 54342 . 54693)) (54719 55672 (FB.STARTUP
|
||||
54729 . 55244) (FB.MAKERIGIDWINDOW 55246 . 55670)) (55673 61156 (FB.PRINTFN 55683 . 60836) (FB.COPYFN
|
||||
60838 . 61154)) (61206 67546 (FB.MENU.WHENSELECTEDFN 61216 . 61574) (FB.COMMANDSELECTEDFN 61576 .
|
||||
63115) (FB.SUBITEMP 63117 . 63718) (FB.MAKE.BROWSER.BUSY 63720 . 64524) (FB.FINISH.COMMAND 64526 .
|
||||
66557) (FB.HANDLE.ABORT.BUTTON 66559 . 67544)) (67547 73063 (FB.DELETECOMMAND 67557 . 67838) (
|
||||
FB.DELVERCOMMAND 67840 . 71033) (FB.IS.NOT.SUBDIRECTORY.ITEM 71035 . 71216) (FB.DELVER.FILES 71218 .
|
||||
72307) (FB.DELETE.FILE 72309 . 73061)) (73064 74389 (FB.UNDELETECOMMAND 73074 . 73359) (
|
||||
FB.UNDELETEALLCOMMAND 73361 . 73640) (FB.UNDELETE.FILE 73642 . 74387)) (74390 98571 (FB.COPYCOMMAND
|
||||
74400 . 74669) (FB.RENAMECOMMAND 74671 . 74946) (FB.COPY/RENAME.COMMAND 74948 . 75871) (
|
||||
FB.COPY/RENAME.ONE 75873 . 78195) (FB.COPY/RENAME.MANY 78197 . 84417) (FB.MERGE.DIRECTORIES 84419 .
|
||||
84837) (FB.GREATEST.PREFIX 84839 . 86195) (FB.MAYBE.INSERT.FILE 86197 . 93637) (FB.GET.NEW.FILE.SPEC
|
||||
93639 . 97470) (FB.CANONICAL.DIRECTORY 97472 . 98569)) (98572 106356 (FB.HARDCOPYCOMMAND 98582 . 99712
|
||||
) (FB.HARDCOPY.TOFILE 99714 . 106354)) (106357 116556 (FB.EDITCOMMAND 106367 . 107234) (
|
||||
FB.EDITCOMMAND.ONEFILE 107236 . 110640) (FB.EDITLISPFILE 110642 . 111747) (FB.BROWSECOMMAND 111749 .
|
||||
116554)) (116557 128478 (FB.FASTSEECOMMAND 116567 . 120017) (FB.FASTSEE.ONEFILE 120019 . 123176) (
|
||||
FB.SEEFULLFN 123178 . 127309) (FB.SEEBUTTONFN 127311 . 128476)) (128479 130225 (FB.LOADCOMMAND 128489
|
||||
. 128996) (FB.COMPILECOMMAND 128998 . 129536) (FB.OPERATE.ON.FILES 129538 . 130223)) (130226 178411 (
|
||||
FB.UPDATECOMMAND 130236 . 130461) (FB.FIX-DIRECTORY-DATES 130463 . 131486) (FB.MAYBE.EXPUNGE 131488 .
|
||||
132549) (FB.UPDATEBROWSERITEMS 132551 . 145766) (FB.DATE 145768 . 146409) (FB.ADJUST.DATE.WIDTH 146411
|
||||
. 149379) (FB.SET.BROWSER.TITLE 149381 . 150383) (FB.MAYBE.WIDEN.NAMES 150385 . 152504) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 152506 . 153870) (FB.CREATE.FILEBUCKET 153872 . 161092) (
|
||||
FB.CHECK.NAME.LENGTH 161094 . 163515) (FB.ADD.FILEGROUP 163517 . 165044) (FB.INSERT.DIRECTORY 165046
|
||||
. 165284) (FB.MAKE.SUBDIRECTORY.ITEM 165286 . 166695) (FB.ADD.FILE 166697 . 167310) (FB.INSERT.FILE
|
||||
167312 . 170724) (FB.ANALYZE.PATTERN 170726 . 175990) (FB.CANONICALIZE.PATTERN 175992 . 177304) (
|
||||
FB.GETALLFILEINFO 177306 . 178409)) (178412 186571 (FB.SORT.VERSIONS 178422 . 181193) (
|
||||
FB.DECREASING.VERSION 181195 . 181864) (FB.INCREASING.VERSION 181866 . 182487) (
|
||||
FB.NAMES.DECREASING.VERSION 182489 . 183524) (FB.NAMES.INCREASING.VERSION 183526 . 184523) (
|
||||
FB.DECREASING.NUMERIC.ATTR 184525 . 185205) (FB.INCREASING.NUMERIC.ATTR 185207 . 185881) (
|
||||
FB.ALPHABETIC.ATTR 185883 . 186569)) (186572 196414 (FB.SORTCOMMAND 186582 . 193412) (
|
||||
FB.INSERT.SUBDIRECTORIES 193414 . 194211) (FB.GET.SORT.MENU 194213 . 196412)) (196415 212636 (
|
||||
FB.EXPUNGECOMMAND 196425 . 199010) (FB.NEWPATTERNCOMMAND 199012 . 199410) (FB.NEWINFOCOMMAND 199412 .
|
||||
202244) (FB.DEPTHCOMMAND 202246 . 204021) (FB.SHAPECOMMAND 204023 . 207365) (FB.REMOVE.FILE 207367 .
|
||||
209188) (FB.COUNT.FILE.CHANGE 209190 . 210635) (FB.SETNEWPATTERN 210637 . 211807) (FB.GET.NEWPATTERN
|
||||
211809 . 212393) (FB.OPTIONSCOMMAND 212395 . 212634)) (212671 213724 (FB.GETWINDOW 212681 . 213722)) (
|
||||
213725 214737 (FB.INFOMENU.SHADEINITIALSELECTIONS 213735 . 214382) (FB.INFO.ITEM.NAMED 214384 . 214735
|
||||
)) (214738 224270 (FB.MAKECOUNTERWINDOW 214748 . 216276) (FB.COUNTERW.REDISPLAYFN 216278 . 216865) (
|
||||
FB.UPDATE.COUNTERS 216867 . 218939) (FB.DISPLAY.COUNTERS 218941 . 224001) (FB.COUNTER.STRING 224003 .
|
||||
224268)) (224271 228980 (FB.MAKEHEADINGWINDOW 224281 . 225895) (FB.HEADINGW.REDISPLAYFN 225897 .
|
||||
226163) (FB.HEADINGW.RESHAPEFN 226165 . 226541) (FB.HEADINGW.DISPLAY 226543 . 228978)) (228981 233164
|
||||
(FB.ICONFN 228991 . 229338) (FB.INFOMENU.WHENSELECTEDFN 229340 . 230070) (FB.CLOSEFN 230072 . 231275)
|
||||
(FB.EXPUNGE?.MENU 231277 . 231689) (FB.AFTERCLOSEFN 231691 . 232052) (FB.CLOSE&EXPUNGE 232054 . 233162
|
||||
)) (233165 245223 (FB.HARDCOPY.DIRECTORY 233175 . 243532) (FB.HARDCOPY.PRINT.TITLE 243534 . 243860) (
|
||||
FB.HARDCOPY.MAXWIDTH 243862 . 245221)))))
|
||||
(FILEMAP (NIL (31928 54809 (FB 31938 . 33073) (FB.COPYBINARYCOMMAND 33075 . 33421) (FB.COPYTEXTCOMMAND
|
||||
33423 . 33765) (FILEBROWSER 33767 . 46873) (FB.TABLEBROWSER 46875 . 47092) (FB.SELECTEDFILES 47094 .
|
||||
47731) (FB.FETCHFILENAME 47733 . 48125) (FB.DIRECTORYP 48127 . 48521) (FB.PROMPTWPRINT 48523 . 49569)
|
||||
(FB.PROMPTW.FORMAT 49571 . 50308) (FB.PROMPTFORINPUT 50310 . 52562) (FB.YES-OR-NO-P 52564 . 53598) (
|
||||
FB.ALLOW.ABORT 53600 . 54454) (\\FB.HARDCOPY.TOFILE.EXTENSION 54456 . 54807)) (54833 55786 (FB.STARTUP
|
||||
54843 . 55358) (FB.MAKERIGIDWINDOW 55360 . 55784)) (55787 61270 (FB.PRINTFN 55797 . 60950) (FB.COPYFN
|
||||
60952 . 61268)) (61320 67660 (FB.MENU.WHENSELECTEDFN 61330 . 61688) (FB.COMMANDSELECTEDFN 61690 .
|
||||
63229) (FB.SUBITEMP 63231 . 63832) (FB.MAKE.BROWSER.BUSY 63834 . 64638) (FB.FINISH.COMMAND 64640 .
|
||||
66671) (FB.HANDLE.ABORT.BUTTON 66673 . 67658)) (67661 73177 (FB.DELETECOMMAND 67671 . 67952) (
|
||||
FB.DELVERCOMMAND 67954 . 71147) (FB.IS.NOT.SUBDIRECTORY.ITEM 71149 . 71330) (FB.DELVER.FILES 71332 .
|
||||
72421) (FB.DELETE.FILE 72423 . 73175)) (73178 74503 (FB.UNDELETECOMMAND 73188 . 73473) (
|
||||
FB.UNDELETEALLCOMMAND 73475 . 73754) (FB.UNDELETE.FILE 73756 . 74501)) (74504 98685 (FB.COPYCOMMAND
|
||||
74514 . 74783) (FB.RENAMECOMMAND 74785 . 75060) (FB.COPY/RENAME.COMMAND 75062 . 75985) (
|
||||
FB.COPY/RENAME.ONE 75987 . 78309) (FB.COPY/RENAME.MANY 78311 . 84531) (FB.MERGE.DIRECTORIES 84533 .
|
||||
84951) (FB.GREATEST.PREFIX 84953 . 86309) (FB.MAYBE.INSERT.FILE 86311 . 93751) (FB.GET.NEW.FILE.SPEC
|
||||
93753 . 97584) (FB.CANONICAL.DIRECTORY 97586 . 98683)) (98686 106470 (FB.HARDCOPYCOMMAND 98696 . 99826
|
||||
) (FB.HARDCOPY.TOFILE 99828 . 106468)) (106471 116680 (FB.EDITCOMMAND 106481 . 107348) (
|
||||
FB.EDITCOMMAND.ONEFILE 107350 . 110764) (FB.EDITLISPFILE 110766 . 111871) (FB.BROWSECOMMAND 111873 .
|
||||
116678)) (116681 128602 (FB.FASTSEECOMMAND 116691 . 120141) (FB.FASTSEE.ONEFILE 120143 . 123300) (
|
||||
FB.SEEFULLFN 123302 . 127433) (FB.SEEBUTTONFN 127435 . 128600)) (128603 130349 (FB.LOADCOMMAND 128613
|
||||
. 129120) (FB.COMPILECOMMAND 129122 . 129660) (FB.OPERATE.ON.FILES 129662 . 130347)) (130350 178535 (
|
||||
FB.UPDATECOMMAND 130360 . 130585) (FB.FIX-DIRECTORY-DATES 130587 . 131610) (FB.MAYBE.EXPUNGE 131612 .
|
||||
132673) (FB.UPDATEBROWSERITEMS 132675 . 145890) (FB.DATE 145892 . 146533) (FB.ADJUST.DATE.WIDTH 146535
|
||||
. 149503) (FB.SET.BROWSER.TITLE 149505 . 150507) (FB.MAYBE.WIDEN.NAMES 150509 . 152628) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 152630 . 153994) (FB.CREATE.FILEBUCKET 153996 . 161216) (
|
||||
FB.CHECK.NAME.LENGTH 161218 . 163639) (FB.ADD.FILEGROUP 163641 . 165168) (FB.INSERT.DIRECTORY 165170
|
||||
. 165408) (FB.MAKE.SUBDIRECTORY.ITEM 165410 . 166819) (FB.ADD.FILE 166821 . 167434) (FB.INSERT.FILE
|
||||
167436 . 170848) (FB.ANALYZE.PATTERN 170850 . 176114) (FB.CANONICALIZE.PATTERN 176116 . 177428) (
|
||||
FB.GETALLFILEINFO 177430 . 178533)) (178536 186695 (FB.SORT.VERSIONS 178546 . 181317) (
|
||||
FB.DECREASING.VERSION 181319 . 181988) (FB.INCREASING.VERSION 181990 . 182611) (
|
||||
FB.NAMES.DECREASING.VERSION 182613 . 183648) (FB.NAMES.INCREASING.VERSION 183650 . 184647) (
|
||||
FB.DECREASING.NUMERIC.ATTR 184649 . 185329) (FB.INCREASING.NUMERIC.ATTR 185331 . 186005) (
|
||||
FB.ALPHABETIC.ATTR 186007 . 186693)) (186696 196538 (FB.SORTCOMMAND 186706 . 193536) (
|
||||
FB.INSERT.SUBDIRECTORIES 193538 . 194335) (FB.GET.SORT.MENU 194337 . 196536)) (196539 212760 (
|
||||
FB.EXPUNGECOMMAND 196549 . 199134) (FB.NEWPATTERNCOMMAND 199136 . 199534) (FB.NEWINFOCOMMAND 199536 .
|
||||
202368) (FB.DEPTHCOMMAND 202370 . 204145) (FB.SHAPECOMMAND 204147 . 207489) (FB.REMOVE.FILE 207491 .
|
||||
209312) (FB.COUNT.FILE.CHANGE 209314 . 210759) (FB.SETNEWPATTERN 210761 . 211931) (FB.GET.NEWPATTERN
|
||||
211933 . 212517) (FB.OPTIONSCOMMAND 212519 . 212758)) (212795 213848 (FB.GETWINDOW 212805 . 213846)) (
|
||||
213849 214861 (FB.INFOMENU.SHADEINITIALSELECTIONS 213859 . 214506) (FB.INFO.ITEM.NAMED 214508 . 214859
|
||||
)) (214862 224394 (FB.MAKECOUNTERWINDOW 214872 . 216400) (FB.COUNTERW.REDISPLAYFN 216402 . 216989) (
|
||||
FB.UPDATE.COUNTERS 216991 . 219063) (FB.DISPLAY.COUNTERS 219065 . 224125) (FB.COUNTER.STRING 224127 .
|
||||
224392)) (224395 229104 (FB.MAKEHEADINGWINDOW 224405 . 226019) (FB.HEADINGW.REDISPLAYFN 226021 .
|
||||
226287) (FB.HEADINGW.RESHAPEFN 226289 . 226665) (FB.HEADINGW.DISPLAY 226667 . 229102)) (229105 233288
|
||||
(FB.ICONFN 229115 . 229462) (FB.INFOMENU.WHENSELECTEDFN 229464 . 230194) (FB.CLOSEFN 230196 . 231399)
|
||||
(FB.EXPUNGE?.MENU 231401 . 231813) (FB.AFTERCLOSEFN 231815 . 232176) (FB.CLOSE&EXPUNGE 232178 . 233286
|
||||
)) (233289 245347 (FB.HARDCOPY.DIRECTORY 233299 . 243656) (FB.HARDCOPY.PRINT.TITLE 243658 . 243984) (
|
||||
FB.HARDCOPY.MAXWIDTH 243986 . 245345)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
40
library/FX-80Driver.tedit
Normal file
40
library/FX-80Driver.tedit
Normal file
File diff suppressed because one or more lines are too long
BIN
library/HRule.tedit
Normal file
BIN
library/HRule.tedit
Normal file
Binary file not shown.
BIN
library/Kermit.tedit
Normal file
BIN
library/Kermit.tedit
Normal file
Binary file not shown.
BIN
library/KeyboardEditor.tedit
Normal file
BIN
library/KeyboardEditor.tedit
Normal file
Binary file not shown.
45
library/Match.tedit
Normal file
45
library/Match.tedit
Normal file
File diff suppressed because one or more lines are too long
BIN
library/MiniServe.tedit
Normal file
BIN
library/MiniServe.tedit
Normal file
Binary file not shown.
BIN
library/NSMaintain.tedit
Normal file
BIN
library/NSMaintain.tedit
Normal file
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 9-Oct-2023 00:42:25" {DSK}<home>frank>il>medley>gmedley>library>PDFSTREAM.;2 14029
|
||||
(FILECREATED "11-Nov-2023 11:24:42" {WMEDLEY}<library>PDFSTREAM.;56 14033
|
||||
|
||||
:CHANGES-TO (FNS SEE-PDF OPEN-PDF-STREAM PS-TO-PDF PDFCONVERTER)
|
||||
(VARS PDFSTREAMCOMS)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE " 1-Oct-2023 20:53:05" {DSK}<home>frank>il>medley>gmedley>library>PDFSTREAM.;1
|
||||
)
|
||||
:CHANGES-TO (VARS PDFSTREAMCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 9-Oct-2023 00:42:25" {WMEDLEY}<library>PDFSTREAM.;55)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT PDFSTREAMCOMS)
|
||||
@@ -45,6 +45,7 @@
|
||||
(GLOBALVARS PDFCONVERTER PDF-CONVERTER-TEMPLATES)
|
||||
(FNS OPEN-PDF-STREAM CLOSE-PDF-STREAM PS-TO-PDF)
|
||||
(FNS SEE-PDF)
|
||||
(ADDVARS (FB.SEE.METHODS (PDFFILEP SEE-PDF)))
|
||||
(FNS PDFCONVERTER)))
|
||||
|
||||
(FILESLOAD (SYSLOAD)
|
||||
@@ -268,6 +269,8 @@
|
||||
|
||||
(ShellOpen (PACKFILENAME 'BODY PDFFILE 'EXTENSION 'PDF])
|
||||
)
|
||||
|
||||
(ADDTOVAR FB.SEE.METHODS (PDFFILEP SEE-PDF))
|
||||
(DEFINEQ
|
||||
|
||||
(PDFCONVERTER
|
||||
@@ -277,8 +280,8 @@
|
||||
thereis (ShellWhich (CAR TEMPLATE])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3208 5822 (PDFFILEP 3218 . 4132) (PDF.HARDCOPYW 4134 . 4732) (PDF.TEXT 4734 . 5451) (
|
||||
PDF.TEDIT 5453 . 5820)) (6262 13322 (OPEN-PDF-STREAM 6272 . 8408) (CLOSE-PDF-STREAM 8410 . 9697) (
|
||||
PS-TO-PDF 9699 . 13320)) (13323 13721 (SEE-PDF 13333 . 13719)) (13722 14006 (PDFCONVERTER 13732 .
|
||||
14004)))))
|
||||
(FILEMAP (NIL (3162 5776 (PDFFILEP 3172 . 4086) (PDF.HARDCOPYW 4088 . 4686) (PDF.TEXT 4688 . 5405) (
|
||||
PDF.TEDIT 5407 . 5774)) (6216 13276 (OPEN-PDF-STREAM 6226 . 8362) (CLOSE-PDF-STREAM 8364 . 9651) (
|
||||
PS-TO-PDF 9653 . 13274)) (13277 13675 (SEE-PDF 13287 . 13673)) (13726 14010 (PDFCONVERTER 13736 .
|
||||
14008)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
BIN
library/Press.tedit
Normal file
BIN
library/Press.tedit
Normal file
Binary file not shown.
141
library/RS232.tedit
Normal file
141
library/RS232.tedit
Normal file
File diff suppressed because one or more lines are too long
BIN
library/SameDir.tedit
Normal file
BIN
library/SameDir.tedit
Normal file
Binary file not shown.
BIN
library/Spy.tedit
Normal file
BIN
library/Spy.tedit
Normal file
Binary file not shown.
BIN
library/SysEdit.tedit
Normal file
BIN
library/SysEdit.tedit
Normal file
Binary file not shown.
BIN
library/TableBrowser.tedit
Normal file
BIN
library/TableBrowser.tedit
Normal file
Binary file not shown.
BIN
library/virtualkeyboards/KeyboardEditor.tedit
Normal file
BIN
library/virtualkeyboards/KeyboardEditor.tedit
Normal file
Binary file not shown.
@@ -1,13 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "22-Sep-2023 15:29:50" {WMEDLEY}<lispusers>PSEUDOHOSTS.;158 26638
|
||||
(FILECREATED " 2-Nov-2023 10:53:30" {WMEDLEY}<lispusers>PSEUDOHOSTS.;160 26843
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS PSEUDOHOST SLASHIT CONTRACT.PH)
|
||||
(VARS PSEUDOHOSTSCOMS)
|
||||
:CHANGES-TO (FNS PSEUDOHOST)
|
||||
|
||||
:PREVIOUS-DATE "26-Jul-2023 12:34:37" {WMEDLEY}<lispusers>PSEUDOHOSTS.;155)
|
||||
:PREVIOUS-DATE " 1-Oct-2023 20:16:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;159)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT PSEUDOHOSTSCOMS)
|
||||
@@ -41,6 +40,8 @@
|
||||
(PSEUDOHOST
|
||||
[LAMBDA (HOST PREFIX)
|
||||
|
||||
(* ;; "Edited 2-Nov-2023 10:53 by rmk")
|
||||
|
||||
(* ;; "Edited 22-Sep-2023 15:29 by rmk")
|
||||
|
||||
(* ;; "Edited 25-Jun-2022 17:00 by rmk")
|
||||
@@ -59,7 +60,8 @@
|
||||
(SETQ HOST (SUBSTRING HOST 1 -2)))
|
||||
(SETQ HOST (U-CASE (MKATOM HOST)))
|
||||
[if PREFIX
|
||||
then (CL:WHEN (PSEUDOHOSTP HOST) (* ;
|
||||
then (SETQ PREFIX (TRUEFILENAME PREFIX))
|
||||
(CL:WHEN (PSEUDOHOSTP HOST) (* ;
|
||||
"Redefining: first clear out the previous one")
|
||||
(PSEUDOHOST HOST NIL))
|
||||
[LET (TARGETHOST TARGETDEVICE PREFIXHOST)
|
||||
@@ -154,14 +156,16 @@
|
||||
(FETCH (FDEV DEVICENAME) OF (FETCH (PHDEVICE TARGETDEV) OF (\GETDEVICEFROMNAME HOST))))])
|
||||
|
||||
(TRUEFILENAME
|
||||
[LAMBDA (FILE) (* ; "Edited 26-Jul-2023 07:53 by rmk")
|
||||
[LAMBDA (FILE) (* ; "Edited 1-Oct-2023 20:16 by rmk")
|
||||
(* ; "Edited 26-Jul-2023 07:53 by rmk")
|
||||
(* ; "Edited 26-Jan-2022 23:33 by rmk")
|
||||
(* ; "Edited 25-Jan-2022 08:47 by rmk")
|
||||
(if (LISTP FILE)
|
||||
then (for F in FILE collect (TRUEFILENAME F))
|
||||
else (LET (FILENAME DEVICE)
|
||||
(IF (STREAMP FILE)
|
||||
THEN (SETQ FILENAME (FETCH (STREAM FULLFILENAME) OF FILE))
|
||||
THEN (SETQ FILENAME (OR (FETCH (STREAM FULLFILENAME) OF FILE)
|
||||
FILE))
|
||||
(SETQ DEVICE (FETCH (STREAM DEVICE) OF FILE))
|
||||
ELSE (SETQ FILENAME (\ADD.CONNECTED.DIR FILE))
|
||||
(SETQ DEVICE (\GETDEVICEFROMNAME FILENAME)))
|
||||
@@ -511,12 +515,12 @@
|
||||
EXPORTS.ALL)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1315 9921 (PSEUDOHOST 1325 . 6930) (PSEUDOHOSTP 6932 . 7445) (PSEUDOHOSTS 7447 . 7808)
|
||||
(TARGETHOST 7810 . 8084) (TRUEFILENAME 8086 . 9048) (PSEUDOFILENAME 9050 . 9919)) (9949 15964 (
|
||||
EXPAND.PH 9959 . 11212) (CONTRACT.PH 11214 . 13925) (UNSLASHIT 13927 . 15673) (GETHOSTINFO.PH 15675 .
|
||||
15962)) (15965 23985 (OPENFILE.PH 15975 . 17048) (GETFILENAME.PH 17050 . 17339) (DIRECTORYNAMEP.PH
|
||||
17341 . 17965) (CLOSEFILE.PH 17967 . 18434) (REOPENFILE.PH 18436 . 19001) (DELETEFILE.PH 19003 . 19287
|
||||
) (OPENP.PH 19289 . 19584) (UNREGISTERFILE.PH 19586 . 20128) (REGISTERFILE.PH 20130 . 20664) (
|
||||
GENERATEFILES.PH 20666 . 21710) (GETFILEINFO.PH 21712 . 22014) (SETFILEINFO.PH 22016 . 22215) (
|
||||
NEXTFILEFN.PH 22217 . 22763) (FILEINFOFN.PH 22765 . 23040) (RENAMEFILE.PH 23042 . 23983)))))
|
||||
(FILEMAP (NIL (1254 10126 (PSEUDOHOST 1264 . 6972) (PSEUDOHOSTP 6974 . 7487) (PSEUDOHOSTS 7489 . 7850)
|
||||
(TARGETHOST 7852 . 8126) (TRUEFILENAME 8128 . 9253) (PSEUDOFILENAME 9255 . 10124)) (10154 16169 (
|
||||
EXPAND.PH 10164 . 11417) (CONTRACT.PH 11419 . 14130) (UNSLASHIT 14132 . 15878) (GETHOSTINFO.PH 15880
|
||||
. 16167)) (16170 24190 (OPENFILE.PH 16180 . 17253) (GETFILENAME.PH 17255 . 17544) (DIRECTORYNAMEP.PH
|
||||
17546 . 18170) (CLOSEFILE.PH 18172 . 18639) (REOPENFILE.PH 18641 . 19206) (DELETEFILE.PH 19208 . 19492
|
||||
) (OPENP.PH 19494 . 19789) (UNREGISTERFILE.PH 19791 . 20333) (REGISTERFILE.PH 20335 . 20869) (
|
||||
GENERATEFILES.PH 20871 . 21915) (GETFILEINFO.PH 21917 . 22219) (SETFILEINFO.PH 22221 . 22420) (
|
||||
NEXTFILEFN.PH 22422 . 22968) (FILEINFOFN.PH 22970 . 23245) (RENAMEFILE.PH 23247 . 24188)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "10-Oct-2022 18:10:56"
|
||||
{DSK}<cygdrive>c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;76 37395
|
||||
(FILECREATED " 6-Dec-2023 23:57:52" {WMEDLEY}<sources>EXTERNALFORMAT.;82 37884
|
||||
|
||||
:CHANGES-TO (FNS SYSTEM-EXTERNALFORMAT)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE "24-Jul-2022 14:56:07"
|
||||
{DSK}<cygdrive>c>Users>Larry>home>MEDLEY>SOURCES>EXTERNALFORMAT.;75)
|
||||
:CHANGES-TO (MACROS \CHECKEOLC)
|
||||
(FNS \CHECKEOLC.CRLF)
|
||||
|
||||
:PREVIOUS-DATE "23-Oct-2023 17:07:12" {WMEDLEY}<sources>EXTERNALFORMAT.;79)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT EXTERNALFORMATCOMS)
|
||||
@@ -519,9 +520,11 @@
|
||||
FSTRING])
|
||||
|
||||
(\CHECKEOLC.CRLF
|
||||
[LAMBDA (STREAM PEEKBINFLG COUNTP) (* ; "Edited 6-Aug-2021 23:30 by rmk:")
|
||||
[LAMBDA (STREAM PEEKBINFLG COUNTP EOLC) (* ; "Edited 6-Dec-2023 23:39 by rmk")
|
||||
(* ; "Edited 17-Oct-2023 11:56 by rmk")
|
||||
(* ; "Edited 6-Aug-2021 23:30 by rmk:")
|
||||
|
||||
(* ;; "This is called only when a CR has been read and EOLC is either any or CRLF. This returns EOL if the next code is an LF")
|
||||
(* ;; "This is called only when a CR has been read and EOLC is either ANY or CRLF. This returns EOL if the next code is an LF")
|
||||
|
||||
(* ;; "If COUNTP, that sets *BYTECOUNTER* freely with the number of LF bytes.")
|
||||
|
||||
@@ -530,8 +533,7 @@
|
||||
[SETQ CH (COND
|
||||
[PEEKBINFLG
|
||||
|
||||
(* ;;
|
||||
"T from PEEKC. In this case, must leave the fileptr where it was.")
|
||||
(* ;; "T from PEEKC. In this case, must leave the fileptr where it was.")
|
||||
|
||||
(* ;; "The CR itself hasn't been read, just peeked. So here we have to read it, then peek at the next character to see if it is an LF, and then back out the CR")
|
||||
|
||||
@@ -545,17 +547,20 @@
|
||||
(PROG1 (\PEEKCCODE STREAM T 'NOEOLC)
|
||||
|
||||
(* ;;
|
||||
"This has to be a call to \PEEKCODE that doesn't itself to the checkeolc")
|
||||
"This has to be a call to \PEEKCODE that doesn't itself to the checkeolc")
|
||||
|
||||
(* ;;
|
||||
"LF must be the next char after the CR. We back up over the CR that \INCCODE just read.")
|
||||
"LF must be the next char after the CR. We back up over the CR that \INCCODE just read.")
|
||||
|
||||
(\BACKCCODE STREAM)))]
|
||||
|
||||
(* ;; "Got the CRLF, it's an EOL")
|
||||
|
||||
(CHARCODE EOL))
|
||||
(T (CHARCODE CR]
|
||||
(T (SELECTC EOLC
|
||||
((LIST ANY.EOLC 'ANY)
|
||||
(CHARCODE EOL))
|
||||
(CHARCODE CR]
|
||||
((EQ (CHARCODE LF)
|
||||
(\PEEKCCODE STREAM T 'NOEOLC))
|
||||
|
||||
@@ -563,12 +568,15 @@
|
||||
|
||||
(IF COUNTP
|
||||
THEN (LET (NUMLFBYTES)
|
||||
(DECLARE (SPECVARS NUMLFBYTES))
|
||||
(\INCCODE STREAM 'NUMLFBYTES 0)
|
||||
(ADD *BYTECOUNTER* NUMLFBYTES))
|
||||
(DECLARE (SPECVARS NUMLFBYTES))
|
||||
(\INCCODE STREAM 'NUMLFBYTES 0)
|
||||
(ADD *BYTECOUNTER* NUMLFBYTES))
|
||||
ELSE (\INCCODE STREAM))
|
||||
(CHARCODE EOL))
|
||||
(T (CHARCODE CR]
|
||||
(T (SELECTC EOLC
|
||||
((LIST ANY.EOLC 'ANY)
|
||||
(CHARCODE EOL))
|
||||
(CHARCODE CR]
|
||||
CH])
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -581,10 +589,10 @@
|
||||
(CHARCODE EOL))
|
||||
(CHARCODE LF)))
|
||||
(CR (SELECTC (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STRM))
|
||||
((LIST CR.EOLC 'ANY)
|
||||
((LIST CR.EOLC 'CR)
|
||||
(CHARCODE EOL))
|
||||
((LIST ANY.EOLC CRLF.EOLC 'CRLF 'ANY)
|
||||
(\CHECKEOLC.CRLF STRM PEEKBINFLG COUNTP))
|
||||
(\CHECKEOLC.CRLF STRM PEEKBINFLG COUNTP EOLC))
|
||||
(CHARCODE CR)))
|
||||
CH)))
|
||||
)
|
||||
@@ -712,13 +720,13 @@
|
||||
(\CREATE.THROUGH.EXTERNALFORMAT)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6559 13194 (\EXTERNALFORMAT 6569 . 10347) (MAKE-EXTERNALFORMAT 10349 . 12721) (
|
||||
\EXTERNALFORMAT.DEFPRINT 12723 . 13192)) (13195 16236 (\INSTALL.EXTERNALFORMAT 13205 . 14654) (
|
||||
\REMOVE.EXTERNALFORMAT 14656 . 15487) (FIND-FORMAT 15489 . 16234)) (16237 16649 (SYSTEM-EXTERNALFORMAT
|
||||
16247 . 16647)) (16998 31818 (\OUTCHAR 17008 . 18225) (\INCCODE 18227 . 19380) (\BACKCCODE 19382 .
|
||||
20951) (\BACKCCODE.EOLC 20953 . 23143) (\PEEKCCODE 23145 . 23470) (\PEEKCCODE.EOLC 23472 . 23851) (
|
||||
\INCCODE.EOLC 23853 . 25652) (\FORMATBYTESTREAM 25654 . 27789) (\FORMATBYTESTRING 27791 . 29250) (
|
||||
\CHECKEOLC.CRLF 29252 . 31816)) (33096 35332 (\NULLDEVICE 33106 . 35008) (\NULL.OPENFILE 35010 . 35330
|
||||
)) (35472 37299 (\CREATE.THROUGH.EXTERNALFORMAT 35482 . 36268) (\THROUGHIN 36270 . 36690) (
|
||||
\THROUGHBACKCCODE 36692 . 36959) (\THROUGHOUTCHARFN 36961 . 37297)))))
|
||||
(FILEMAP (NIL (6547 13182 (\EXTERNALFORMAT 6557 . 10335) (MAKE-EXTERNALFORMAT 10337 . 12709) (
|
||||
\EXTERNALFORMAT.DEFPRINT 12711 . 13180)) (13183 16224 (\INSTALL.EXTERNALFORMAT 13193 . 14642) (
|
||||
\REMOVE.EXTERNALFORMAT 14644 . 15475) (FIND-FORMAT 15477 . 16222)) (16225 16637 (SYSTEM-EXTERNALFORMAT
|
||||
16235 . 16635)) (16986 32303 (\OUTCHAR 16996 . 18213) (\INCCODE 18215 . 19368) (\BACKCCODE 19370 .
|
||||
20939) (\BACKCCODE.EOLC 20941 . 23131) (\PEEKCCODE 23133 . 23458) (\PEEKCCODE.EOLC 23460 . 23839) (
|
||||
\INCCODE.EOLC 23841 . 25640) (\FORMATBYTESTREAM 25642 . 27777) (\FORMATBYTESTRING 27779 . 29238) (
|
||||
\CHECKEOLC.CRLF 29240 . 32301)) (33585 35821 (\NULLDEVICE 33595 . 35497) (\NULL.OPENFILE 35499 . 35819
|
||||
)) (35961 37788 (\CREATE.THROUGH.EXTERNALFORMAT 35971 . 36757) (\THROUGHIN 36759 . 37179) (
|
||||
\THROUGHBACKCCODE 37181 . 37448) (\THROUGHOUTCHARFN 37450 . 37786)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -1,10 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "11-Oct-2022 11:34:00" {DSK}<home>larry>medley>sources>FILEIO.;2 161841
|
||||
(FILECREATED "25-Aug-2023 08:47:31" {WMEDLEY}<sources>FILEIO.;119 162381
|
||||
|
||||
:CHANGES-TO (FNS \PRINT-REVALIDATION-RESULT)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE "10-Oct-2022 15:58:01" {DSK}<home>larry>medley>sources>FILEIO.;1)
|
||||
:CHANGES-TO (FNS \DO.PARAMS.AT.OPEN PUTSTREAMPROP GETSTREAMPROP)
|
||||
|
||||
:PREVIOUS-DATE "11-Oct-2022 11:34:00" {WMEDLEY}<sources>FILEIO.;118)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -580,18 +582,21 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
|
||||
(T (\ILLEGAL.ARG NIL])
|
||||
|
||||
(GETSTREAMPROP
|
||||
[LAMBDA (STREAM PROP) (* ; "Edited 5-Jul-2022 23:57 by rmk")
|
||||
[LAMBDA (STREAM PROP) (* ; "Edited 25-Aug-2023 08:45 by rmk")
|
||||
(* ; "Edited 5-Jul-2022 23:57 by rmk")
|
||||
(* ; "Edited 29-Jun-2021 17:06 by rmk:")
|
||||
(* rda%: "22-Aug-84 16:17")
|
||||
(SELECTQ PROP
|
||||
((FORMAT EXTERNALFORMAT :EXTERNAL-FORMAT)
|
||||
(\EXTERNALFORMAT STREAM))
|
||||
(ENDOFSTREAMOP (FETCH (STREAM ENDOFSTREAMOP) OF STREAM))
|
||||
(LINELENGTH (LINELENGTH NIL STREAM))
|
||||
(LISTGET (fetch (STREAM OTHERPROPS) of STREAM)
|
||||
PROP])
|
||||
|
||||
(PUTSTREAMPROP
|
||||
[LAMBDA (STREAM PROP VALUE) (* ; "Edited 5-Jul-2022 23:56 by rmk")
|
||||
[LAMBDA (STREAM PROP VALUE) (* ; "Edited 25-Aug-2023 08:45 by rmk")
|
||||
(* ; "Edited 5-Jul-2022 23:56 by rmk")
|
||||
(* ; "Edited 29-Jun-2021 17:06 by rmk:")
|
||||
(* rda%: "22-Aug-84 16:11")
|
||||
(SELECTQ PROP
|
||||
@@ -605,6 +610,7 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
|
||||
(AND VALUE (\EXTERNALFORMAT STREAM VALUE)))])
|
||||
(ENDOFSTREAMOP (PROG1 (fetch (STREAM ENDOFSTREAMOP) of STREAM)
|
||||
(replace (STREAM ENDOFSTREAMOP) of STREAM with VALUE)))
|
||||
(LINELENGTH (LINELENGTH VALUE STREAM))
|
||||
(PROG ((OLDDATA (fetch OTHERPROPS of STREAM))
|
||||
OLDVALUE)
|
||||
(RETURN (PROG1 (COND
|
||||
@@ -1444,7 +1450,8 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
|
||||
(GO RETRY])
|
||||
|
||||
(\DO.PARAMS.AT.OPEN
|
||||
[LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 6-Jul-2022 00:00 by rmk")
|
||||
[LAMBDA (STREAM ACCESS PARAMETERS) (* ; "Edited 25-Aug-2023 08:43 by rmk")
|
||||
(* ; "Edited 6-Jul-2022 00:00 by rmk")
|
||||
(* ; "Edited 19-Dec-2021 09:30 by rmk")
|
||||
(* ; "Edited 14-Dec-2021 16:10 by rmk")
|
||||
(* ; "Edited 13-Dec-2021 15:20 by rmk")
|
||||
@@ -1453,6 +1460,8 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
|
||||
|
||||
(* ;; "Does generic parameters when a file/stream is open. Called by \OPENFILE and OPENSTREAM")
|
||||
|
||||
(* ;; "RMK: August 2023: Added PUTSTREAMPROP as last resort.")
|
||||
|
||||
(* ;; "RMK July 2020: Make sure that \EXTERNALFORMAT is always called, so that it can implement per-device defaults.")
|
||||
|
||||
(* ;;
|
||||
@@ -1475,7 +1484,7 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
|
||||
(CONVHANKAKU (CONVHANKAKU STREAM VAL))
|
||||
((EOL EOLCONVENTION EOLC)
|
||||
(SETFILEINFO STREAM 'EOL VAL))
|
||||
NIL))
|
||||
(PUTSTREAMPROP STREAM ATTR VAL)))
|
||||
(FOR FN IN STREAM-AFTER-OPEN-FNS DO (APPLY* FN STREAM ACCESS PARAMETERS])
|
||||
|
||||
(\RENAMEFILE
|
||||
@@ -3095,39 +3104,39 @@ update the map")
|
||||
(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
|
||||
1990 1991 1992 1993 1999 2020 2021 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (27805 31611 (STREAMPROP 27815 . 28249) (GETSTREAMPROP 28251 . 28846) (PUTSTREAMPROP
|
||||
28848 . 31459) (STREAMP 31461 . 31609)) (31654 35033 (\DEFPRINT.BY.NAME 31664 . 32816) (
|
||||
\STREAM.DEFPRINT 32818 . 34726) (\FDEV.DEFPRINT 34728 . 35031)) (35291 40332 (\GETACCESS 35301 . 35755
|
||||
) (\SETACCESS 35757 . 40330)) (60558 66527 (\DEFINEDEVICE 60568 . 62884) (\GETDEVICEFROMNAME 62886 .
|
||||
63359) (\GETDEVICEFROMHOSTNAME 63361 . 64405) (\REMOVEDEVICE 64407 . 65530) (\REMOVEDEVICE.NAMES 65532
|
||||
. 66525)) (66567 91885 (\CLOSEFILE 66577 . 67402) (\DELETEFILE 67404 . 67698) (\DEVICEEVENT 67700 .
|
||||
69470) (\GENERATEFILES 69472 . 70419) (\GENERATENEXTFILE 70421 . 71072) (\GENERATEFILEINFO 71074 .
|
||||
71535) (\GETFILENAME 71537 . 71926) (\GENERIC.OUTFILEP 71928 . 72398) (\OPENFILE 72400 . 74978) (
|
||||
\DO.PARAMS.AT.OPEN 74980 . 77295) (\RENAMEFILE 77297 . 77721) (\REVALIDATEFILE 77723 . 80325) (
|
||||
\PAGED.REVALIDATEFILELST 80327 . 81885) (\PAGED.REVALIDATEFILES 81887 . 83606) (\PAGED.REVALIDATEFILE
|
||||
83608 . 85891) (\BUFFERED.REVALIDATEFILE 85893 . 88179) (\BUFFERED.REVALIDATEFILELST 88181 . 89365) (
|
||||
\PRINT-REVALIDATION-RESULT 89367 . 90209) (\TRUNCATEFILE 90211 . 90602) (\FILE-CONFLICT 90604 . 91883)
|
||||
) (91921 96584 (\GENERATENOFILES 91931 . 94027) (\NULLFILEGENERATOR 94029 . 94273) (\NOFILESNEXTFILEFN
|
||||
94275 . 96266) (\NOFILESINFOFN 96268 . 96582)) (96703 98611 (\FILE.NOT.OPEN 96713 . 97226) (
|
||||
\FILE.WONT.OPEN 97228 . 97556) (\ILLEGAL.DEVICEOP 97558 . 97840) (\IS.NOT.RANDACCESSP 97842 . 98288) (
|
||||
\STREAM.NOT.OPEN 98290 . 98609)) (98746 101044 (\FDEVINSTANCE 98756 . 101042)) (102246 109620 (CNDIR
|
||||
102256 . 103561) (DIRECTORYNAME 103563 . 107746) (DIRECTORYNAMEP 107748 . 108364) (HOSTNAMEP 108366 .
|
||||
109173) (\ADD.CONNECTED.DIR 109175 . 109618)) (109665 137938 (\BACKFILEPTR 109675 . 109863) (
|
||||
\BACKPEEKBIN 109865 . 110226) (\BACKBIN 110228 . 110579) (BIN 110581 . 110798) (\BIN 110800 . 111077)
|
||||
(\BINS 111079 . 111365) (BOUT 111367 . 111729) (\BOUT 111731 . 112046) (\BOUTS 112048 . 112359) (
|
||||
COPYBYTES 112361 . 115693) (COPYCHARS 115695 . 119361) (COPYFILE 119363 . 120427) (\COPYOPENFILE
|
||||
120429 . 123628) (\INFER.FILE.TYPE 123630 . 124584) (EOFP 124586 . 124883) (FORCEOUTPUT 124885 .
|
||||
125132) (\FLUSH.OPEN.STREAMS 125134 . 125490) (CHARSET 125492 . 127156) (ACCESS-CHARSET 127158 .
|
||||
127375) (GETEOFPTR 127377 . 127627) (GETFILEINFO 127629 . 130822) (\TYPE.FROM.FILETYPE 130824 . 131294
|
||||
) (\FILETYPE.FROM.TYPE 131296 . 131475) (GETFILEPTR 131477 . 131729) (SETFILEINFO 131731 . 135837) (
|
||||
SETFILEPTR 135839 . 137558) (BOUT16 137560 . 137745) (BIN16 137747 . 137936)) (138041 143357 (
|
||||
\GENERIC.BINS 138051 . 138331) (\GENERIC.BOUTS 138333 . 138598) (\GENERIC.RENAMEFILE 138600 . 140431)
|
||||
(\GENERIC.OPENP 140433 . 141748) (\GENERIC.READP 141750 . 142902) (\GENERIC.CHARSET 142904 . 143355))
|
||||
(143358 143697 (\MAP-OPEN-STREAMS 143368 . 143695)) (145489 147569 (\EOF.ACTION 145499 . 145750) (
|
||||
\EOSERROR 145752 . 145945) (\GETEOFPTR 145947 . 146129) (\INCFILEPTR 146131 . 146481) (\PEEKBIN 146483
|
||||
. 146674) (\SETCLOSEDFILELENGTH 146676 . 147010) (\SETEOFPTR 147012 . 147200) (\SETFILEPTR 147202 .
|
||||
147567)) (147570 148112 (\FIXPOUT 147580 . 147880) (\FIXPIN 147882 . 148110)) (148113 148679 (\BOUTEOL
|
||||
148123 . 148677)) (151575 161439 (\BUFFERED.BIN 151585 . 152437) (\BUFFERED.PEEKBIN 152439 . 153221)
|
||||
(\BUFFERED.BOUT 153223 . 154083) (\BUFFERED.BINS 154085 . 157770) (\BUFFERED.BOUTS 157772 . 159573) (
|
||||
\BUFFERED.COPYBYTES 159575 . 161437)))))
|
||||
(FILEMAP (NIL (27821 31937 (STREAMPROP 27831 . 28265) (GETSTREAMPROP 28267 . 29016) (PUTSTREAMPROP
|
||||
29018 . 31785) (STREAMP 31787 . 31935)) (31980 35359 (\DEFPRINT.BY.NAME 31990 . 33142) (
|
||||
\STREAM.DEFPRINT 33144 . 35052) (\FDEV.DEFPRINT 35054 . 35357)) (35617 40658 (\GETACCESS 35627 . 36081
|
||||
) (\SETACCESS 36083 . 40656)) (60884 66853 (\DEFINEDEVICE 60894 . 63210) (\GETDEVICEFROMNAME 63212 .
|
||||
63685) (\GETDEVICEFROMHOSTNAME 63687 . 64731) (\REMOVEDEVICE 64733 . 65856) (\REMOVEDEVICE.NAMES 65858
|
||||
. 66851)) (66893 92425 (\CLOSEFILE 66903 . 67728) (\DELETEFILE 67730 . 68024) (\DEVICEEVENT 68026 .
|
||||
69796) (\GENERATEFILES 69798 . 70745) (\GENERATENEXTFILE 70747 . 71398) (\GENERATEFILEINFO 71400 .
|
||||
71861) (\GETFILENAME 71863 . 72252) (\GENERIC.OUTFILEP 72254 . 72724) (\OPENFILE 72726 . 75304) (
|
||||
\DO.PARAMS.AT.OPEN 75306 . 77835) (\RENAMEFILE 77837 . 78261) (\REVALIDATEFILE 78263 . 80865) (
|
||||
\PAGED.REVALIDATEFILELST 80867 . 82425) (\PAGED.REVALIDATEFILES 82427 . 84146) (\PAGED.REVALIDATEFILE
|
||||
84148 . 86431) (\BUFFERED.REVALIDATEFILE 86433 . 88719) (\BUFFERED.REVALIDATEFILELST 88721 . 89905) (
|
||||
\PRINT-REVALIDATION-RESULT 89907 . 90749) (\TRUNCATEFILE 90751 . 91142) (\FILE-CONFLICT 91144 . 92423)
|
||||
) (92461 97124 (\GENERATENOFILES 92471 . 94567) (\NULLFILEGENERATOR 94569 . 94813) (\NOFILESNEXTFILEFN
|
||||
94815 . 96806) (\NOFILESINFOFN 96808 . 97122)) (97243 99151 (\FILE.NOT.OPEN 97253 . 97766) (
|
||||
\FILE.WONT.OPEN 97768 . 98096) (\ILLEGAL.DEVICEOP 98098 . 98380) (\IS.NOT.RANDACCESSP 98382 . 98828) (
|
||||
\STREAM.NOT.OPEN 98830 . 99149)) (99286 101584 (\FDEVINSTANCE 99296 . 101582)) (102786 110160 (CNDIR
|
||||
102796 . 104101) (DIRECTORYNAME 104103 . 108286) (DIRECTORYNAMEP 108288 . 108904) (HOSTNAMEP 108906 .
|
||||
109713) (\ADD.CONNECTED.DIR 109715 . 110158)) (110205 138478 (\BACKFILEPTR 110215 . 110403) (
|
||||
\BACKPEEKBIN 110405 . 110766) (\BACKBIN 110768 . 111119) (BIN 111121 . 111338) (\BIN 111340 . 111617)
|
||||
(\BINS 111619 . 111905) (BOUT 111907 . 112269) (\BOUT 112271 . 112586) (\BOUTS 112588 . 112899) (
|
||||
COPYBYTES 112901 . 116233) (COPYCHARS 116235 . 119901) (COPYFILE 119903 . 120967) (\COPYOPENFILE
|
||||
120969 . 124168) (\INFER.FILE.TYPE 124170 . 125124) (EOFP 125126 . 125423) (FORCEOUTPUT 125425 .
|
||||
125672) (\FLUSH.OPEN.STREAMS 125674 . 126030) (CHARSET 126032 . 127696) (ACCESS-CHARSET 127698 .
|
||||
127915) (GETEOFPTR 127917 . 128167) (GETFILEINFO 128169 . 131362) (\TYPE.FROM.FILETYPE 131364 . 131834
|
||||
) (\FILETYPE.FROM.TYPE 131836 . 132015) (GETFILEPTR 132017 . 132269) (SETFILEINFO 132271 . 136377) (
|
||||
SETFILEPTR 136379 . 138098) (BOUT16 138100 . 138285) (BIN16 138287 . 138476)) (138581 143897 (
|
||||
\GENERIC.BINS 138591 . 138871) (\GENERIC.BOUTS 138873 . 139138) (\GENERIC.RENAMEFILE 139140 . 140971)
|
||||
(\GENERIC.OPENP 140973 . 142288) (\GENERIC.READP 142290 . 143442) (\GENERIC.CHARSET 143444 . 143895))
|
||||
(143898 144237 (\MAP-OPEN-STREAMS 143908 . 144235)) (146029 148109 (\EOF.ACTION 146039 . 146290) (
|
||||
\EOSERROR 146292 . 146485) (\GETEOFPTR 146487 . 146669) (\INCFILEPTR 146671 . 147021) (\PEEKBIN 147023
|
||||
. 147214) (\SETCLOSEDFILELENGTH 147216 . 147550) (\SETEOFPTR 147552 . 147740) (\SETFILEPTR 147742 .
|
||||
148107)) (148110 148652 (\FIXPOUT 148120 . 148420) (\FIXPIN 148422 . 148650)) (148653 149219 (\BOUTEOL
|
||||
148663 . 149217)) (152115 161979 (\BUFFERED.BIN 152125 . 152977) (\BUFFERED.PEEKBIN 152979 . 153761)
|
||||
(\BUFFERED.BOUT 153763 . 154623) (\BUFFERED.BINS 154625 . 158310) (\BUFFERED.BOUTS 158312 . 160113) (
|
||||
\BUFFERED.COPYBYTES 160115 . 161977)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,34 +1,18 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 2-May-2023 15:50:03" {DSK}<home>larry>il>medley>sources>INTERPRESS.;8 221759
|
||||
(FILECREATED "13-Nov-2023 11:15:45" {WMEDLEY}<sources>INTERPRESS.;18 220543
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (MACROS APPENDOP.IP APPENDINTEGER.IPMACRO)
|
||||
(FNS INTERPRESSBITMAP SETSPACE.IP TRANS.IP TRANSLATE.IP APPENDIDENTIFIER.IP
|
||||
APPENDINTEGER.IP APPENDLARGEVECTOR.IP APPENDNUMBER.IP APPENDOP.IP
|
||||
APPENDRATIONAL.IP APPENDSEQUENCEDESCRIPTOR.IP ARCTO.IP BEGINMASTER.IP
|
||||
BEGINPAGE.IP BEGINPREAMBLE.IP CLIPRECTANGLE.IP CONCAT.IP CONCATT.IP
|
||||
ENDMASTER.IP ENDPAGE.IP ENDPREAMBLE.IP FGET.IP FILLRECTANGLE.IP
|
||||
FILLTRAJECTORY.IP FILLNGON.IP FSET.IP INITIALIZEMASTER.IP INITIALIZECOLOR.IP
|
||||
ISET.IP GETCP.IP LINETO.IP MASKSTROKE.IP MOVETO.IP ROTATE.IP SCALE.IP
|
||||
SCALE2.IP SETCOLOR.IP SETRGB.IP SETCOLORLV.IP SETCOLOR16.IP SETFONT.IP
|
||||
SETXREL.IP SETX.IP SETXY.IP SETXYREL.IP SETY.IP SETYREL.IP SHOW.IP
|
||||
HEADINGOP.IP DEFINEFONT.IP INTERPRESS.BITMAPSCALE INTERPRESSFILEP NEWPAGE.IP
|
||||
OPENIPSTREAM SHOWBITMAP.IP SHOWBITMAP1.IP SHOWSHADE.IP \BLTSHADE.IP
|
||||
\DRAWCURVE.IP \IPCURVE2 \DRAWLINE.IP \DSPFONT.IP \DSPSPACEFACTOR.IP
|
||||
\PUSHSTATE.IP \POPSTATE.IP \DEFAULTSTATE.IP \FILLPOLYGON.IP \DRAWPOLYGON.IP
|
||||
\SETBRUSH.IP \INTERPRESSINIT)
|
||||
(VARS INTERPRESSCOMS IPCONSTANTS IPVALUES)
|
||||
(FUNCTIONS \IPC)
|
||||
:CHANGES-TO (VARS INTERPRESSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "27-Jun-2021 23:50:51" {DSK}<home>larry>il>medley>sources>INTERPRESS.;1)
|
||||
:PREVIOUS-DATE "11-Nov-2023 10:38:10" {WMEDLEY}<sources>INTERPRESS.;17)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT INTERPRESSCOMS)
|
||||
|
||||
(RPAQQ INTERPRESSCOMS
|
||||
((COMS (* ; "Literal interface")
|
||||
[(COMS (* ; "Literal interface")
|
||||
[INITVARS (CHARACTERCODEVERSION 'XC1-1-1)
|
||||
(INTERPRESSVERSION "2.1")
|
||||
(PRINTSERVICE 10.0)
|
||||
@@ -126,23 +110,24 @@
|
||||
(FNS NSMAP \COERCEASCIITONSFONT \CREATEINTERPRESSFONT \SEARCHINTERPRESSFONTS)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (noInfoCode 32768)))
|
||||
(INITVARS (ASCIITONSTRANSLATIONS))
|
||||
(* ;
|
||||
"Catch the GACHA10 and any BI coercions to MODERN")
|
||||
|
||||
(* ;; "These are in priority order: if an early one doesn't find a font for a family, the later ones are tried (essentially going to MODERN as the default).")
|
||||
|
||||
(ADDVARS (ASCIITONSTRANSLATIONS (TIMESROMAN NIL CLASSIC)
|
||||
(GACHA NIL TERMINAL)
|
||||
(HELVETICA)
|
||||
(CLASSIC)
|
||||
(GACHA)
|
||||
(TIMESROMAN)
|
||||
(HELVETICA NIL MODERN)
|
||||
(CLASSIC NIL MODERN)
|
||||
(GACHA NIL MODERN)
|
||||
(TIMESROMAN NIL MODERN)
|
||||
(LOGO NIL LOGOTYPES)
|
||||
(HIPPO HIPPOTONSARRAY CLASSIC)
|
||||
(CYRILLIC CYRILLICTONSARRAY CLASSIC)
|
||||
(SYMBOL \SYMBOLTONSARRAY MODERN)))
|
||||
(UGLYVARS \SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY))
|
||||
(SYMBOL \SYMBOLTONSARRAY MODERN)
|
||||
(MATH \MATHTONSARRAY CLASSIC)))
|
||||
(UGLYVARS \SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY \MATHTONSARRAY))
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INTERPRESSINIT)))
|
||||
[DECLARE%: EVAL@COMPILE DONTCOPY (P (LOADDEF 'SYSTEMBRUSH 'RESOURCES 'IMAGEIO)
|
||||
(LOADDEF 'BRUSH 'RECORDS 'IMAGEIO]
|
||||
(FUNCTIONS \IPC)))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (P (LOADDEF 'SYSTEMBRUSH 'RESOURCES 'IMAGEIO)
|
||||
(LOADDEF 'BRUSH 'RECORDS 'IMAGEIO])
|
||||
|
||||
|
||||
|
||||
@@ -3858,49 +3843,59 @@
|
||||
|
||||
|
||||
|
||||
(* ; "Catch the GACHA10 and any BI coercions to MODERN")
|
||||
(* ;;
|
||||
"These are in priority order: if an early one doesn't find a font for a family, the later ones are tried (essentially going to MODERN as the default)."
|
||||
)
|
||||
|
||||
|
||||
(ADDTOVAR ASCIITONSTRANSLATIONS
|
||||
(TIMESROMAN NIL CLASSIC)
|
||||
(GACHA NIL TERMINAL)
|
||||
(HELVETICA)
|
||||
(CLASSIC)
|
||||
(GACHA)
|
||||
(TIMESROMAN)
|
||||
(HELVETICA NIL MODERN)
|
||||
(CLASSIC NIL MODERN)
|
||||
(GACHA NIL MODERN)
|
||||
(TIMESROMAN NIL MODERN)
|
||||
(LOGO NIL LOGOTYPES)
|
||||
(HIPPO HIPPOTONSARRAY CLASSIC)
|
||||
(CYRILLIC CYRILLICTONSARRAY CLASSIC)
|
||||
(SYMBOL \SYMBOLTONSARRAY MODERN))
|
||||
(SYMBOL \SYMBOLTONSARRAY MODERN)
|
||||
(MATH \MATHTONSARRAY CLASSIC))
|
||||
|
||||
(READVARS-FROM-STRINGS '(\SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY)
|
||||
"({Y256 SMALLPOSP 0 0 0 180 42 0 61287 177 61309 61282 61283 61284 61285 0 184 0 0 61296 61298 61273
|
||||
(READVARS-FROM-STRINGS '(\SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY \MATHTONSARRAY)
|
||||
"({Y256 SMALLPOSP 0 0 0 180 8546 0 8574 177 61309 61282 61283 61284 61285 0 184 0 0 61296 61298 61273
|
||||
61272 8549 8550 0 0 61054 61305 61275 61274 8546 61299 0 0 0 174 173 175 61266 61250 61251 61303 61261
|
||||
61263 0 0 61262 {R4 0} 8551 61258 61259 61281 0 61292 172 61365 61364 61290 61351 {R5 0} 65 66 67 68
|
||||
69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 61271 61270 0 61366 61367 61238
|
||||
61239 61362 61363 61360 61361 123 125 61234 61235 61052 8514 61243 61242 8740 8742 61308 35 0 61301 {R
|
||||
4 0} 167 61232 61233 182 64 211 163 164 {R128 0} } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13
|
||||
14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 164 37 38 39 40 41 42 43 44 8510 46
|
||||
47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 9793 9794 9809 9797 9798 9818 9796 9802 9804
|
||||
9728 9805 9806 9807 9808 9810 9811 9803 9813 9814 9816 9817 9728 9821 9819 9820 9801 91 92 93 173 172
|
||||
185 9825 9826 9841 9829 9830 9850 9828 9834 9836 9847 9837 9838 9839 9840 9842 9843 9835 9845 9846
|
||||
9848 9849 9728 9853 9851 9852 9833 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139
|
||||
140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160 161 162 163
|
||||
164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185 186 187 188
|
||||
189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213
|
||||
214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238
|
||||
239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6
|
||||
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 10023 37 38 39 40
|
||||
41 10041 43 44 8510 46 47 48 49 10095 51 10071 53 10088 55 10089 57 58 59 171 61 187 63 10047 10017
|
||||
10018 10046 10021 10022 10038 10020 10049 10026 10027 10028 10029 10030 10031 10032 10033 10039 10034
|
||||
10035 10036 10037 10019 10024 10045 10048 10025 10090 9984 10091 10044 10092 9984 10065 10066 10110
|
||||
10069 10070 10086 10068 10097 10074 10075 10076 10077 10078 10079 10080 10081 10087 10082 10083 10084
|
||||
10085 10067 10072 10093 10096 10073 10042 9984 10043 10040 9984 128 129 130 131 132 133 134 135 136
|
||||
137 138 139 140 141 142 10094 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160
|
||||
161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185
|
||||
186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210
|
||||
211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235
|
||||
236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 })
|
||||
61263 0 0 61262 {R4 0} 8551 61258 61259 61281 0 61292 172 61365 61364 61290 61351 0 0 0 47 0 65 66 67
|
||||
68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 61271 61270 0 61366 61367 61238
|
||||
61239 61362 61363 61360 61361 123 125 61234 61235 61052 8514 61243 61242 8740 8742 61308 8546 0 61301
|
||||
{R4 0} 167 61232 61233 182 64 211 163 36 {R128 0} } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13
|
||||
60973 61229 16 17 18 61221 20 21 61220 23 60973 61228 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
||||
42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 9793 9794 9809 9797 9798 9818
|
||||
9796 9802 9804 74 9805 9806 9807 9808 9810 9811 9803 9813 9814 9816 9817 86 9821 9819 9820 9801 91 92
|
||||
93 173 172 96 9825 9826 9841 9829 9830 9850 9828 9834 9836 106 9837 9838 9839 9840 9842 9843 9835 9845
|
||||
9846 9848 9849 118 9853 9851 9852 9833 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137
|
||||
138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160 161
|
||||
162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185 186
|
||||
187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211
|
||||
212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236
|
||||
237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 } {Y256 SMALLPOSP 0 0 1 2
|
||||
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 10023 37
|
||||
38 39 40 41 10041 43 44 8510 46 47 48 49 10095 51 10071 53 10088 55 10089 57 58 59 171 61 187 63 10047
|
||||
10017 10018 10046 10021 10022 10038 10020 10049 10026 10027 10028 10029 10030 10031 10032 10033 10039
|
||||
10034 10035 10036 10037 10019 10024 10045 10048 10025 10090 9984 10091 10044 10092 9984 10065 10066
|
||||
10110 10069 10070 10086 10068 10097 10074 10075 10076 10077 10078 10079 10080 10081 10087 10082 10083
|
||||
10084 10085 10067 10072 10093 10096 10073 10042 9984 10043 10040 9984 128 129 130 131 132 133 134 135
|
||||
136 137 138 139 140 141 142 10094 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159
|
||||
160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184
|
||||
185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209
|
||||
210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234
|
||||
235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 } {Y256 SMALLPOSP
|
||||
0 0 61307 61234 61235 0 163 61301 61302 0 0 0 182 0 0 0 61286 0 0 0 61306 0 0 61295 {R9 0} 32 61232
|
||||
61287 8551 162 184 61366 61299 194 61308 199 177 61260 61309 8552 61285 61287 8738 8740 8574 61282
|
||||
61283 61284 61292 8570 199 167 0 8549 8546 8550 191 61248 61365 61258 61356 61369 61364 61233 61275
|
||||
61279 61273 61274 61278 61272 61629 61259 61281 61297 61265 61358 61305 61296 61271 61367 61298 180
|
||||
61626 61368 0 0 0 175 174 0 61351 61267 211 61370 61303 61266 61263 61288 61360 61361 61362 61363
|
||||
61256 61290 61287 61238 61240 210 61246 61244 61247 61245 61250 61251 61270 61239 188 189 190 61264 {R
|
||||
129 0} })
|
||||
")
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
@@ -3912,57 +3907,45 @@
|
||||
|
||||
(LOADDEF 'BRUSH 'RECORDS 'IMAGEIO)
|
||||
)
|
||||
|
||||
(DEFMACRO \IPC (X)
|
||||
(DECLARE (SPECIAL X)) (* ; "Edited 2-May-2023 08:33 by lmm")
|
||||
[OR (AND (BOUNDP '\IPCONSTANDS)
|
||||
(LISTP \IPCONSTANTS))
|
||||
(SETQ \IPCONSTANTS (FOR X IN IPCONSTANTS JOIN (FOR Y IN (EVAL X)
|
||||
COLLECT (CONS (CAR Y)
|
||||
(CADR Y]
|
||||
(FOR I FROM 1 TO 10 DO (IF (EQUAL X (SETQ X (SUBLIS \IPCONSTANTS X)))
|
||||
THEN (RETURN (LIST 'CONSTANT X))) FINALLY (ERROR "too many \IPC levels"
|
||||
X)))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (16740 17484 (\IPC 16740 . 17484)) (17717 23369 (APPENDBYTE.IP 17727 . 17863) (
|
||||
APPENDIDENTIFIER.IP 17865 . 18387) (APPENDINT.IP 18389 . 18840) (APPENDINTEGER.IP 18842 . 19414) (
|
||||
APPENDLARGEVECTOR.IP 19416 . 20381) (APPENDNUMBER.IP 20383 . 20852) (APPENDOP.IP 20854 . 21500) (
|
||||
APPENDRATIONAL.IP 21502 . 21995) (APPENDSEQUENCEDESCRIPTOR.IP 21997 . 23192) (BYTESININT.IP 23194 .
|
||||
23367)) (23405 63212 (ARCTO.IP 23415 . 24696) (BEGINMASTER.IP 24698 . 24971) (BEGINPAGE.IP 24973 .
|
||||
25329) (BEGINPREAMBLE.IP 25331 . 25702) (CLIPRECTANGLE.IP 25704 . 26194) (CONCAT.IP 26196 . 26461) (
|
||||
CONCATT.IP 26463 . 26730) (ENDMASTER.IP 26732 . 27176) (ENDPAGE.IP 27178 . 27555) (ENDPREAMBLE.IP
|
||||
27557 . 28356) (FGET.IP 28358 . 28661) (FILLRECTANGLE.IP 28663 . 30991) (FILLTRAJECTORY.IP 30993 .
|
||||
31628) (FILLNGON.IP 31630 . 33907) (FSET.IP 33909 . 34212) (GETFRAMEVAR.IP 34214 . 34532) (
|
||||
INITIALIZEMASTER.IP 34534 . 35135) (INITIALIZECOLOR.IP 35137 . 36458) (ISET.IP 36460 . 36831) (
|
||||
GETCP.IP 36833 . 37142) (LINETO.IP 37144 . 37749) (MASKSTROKE.IP 37751 . 38024) (MOVETO.IP 38026 .
|
||||
38363) (ROTATE.IP 38365 . 38667) (SCALE.IP 38669 . 38972) (SCALE2.IP 38974 . 39311) (SETCOLOR.IP 39313
|
||||
. 41542) (SETRGB.IP 41544 . 42600) (SETCOLORLV.IP 42602 . 47215) (SETCOLOR16.IP 47217 . 50323) (
|
||||
SETFONT.IP 50325 . 51146) (SETSPACE.IP 51148 . 51460) (SETXREL.IP 51462 . 52646) (SETX.IP 52648 .
|
||||
54165) (SETXY.IP 54167 . 55339) (SETXYREL.IP 55341 . 56647) (SETY.IP 56649 . 57958) (SETYREL.IP 57960
|
||||
. 58860) (SHOW.IP 58862 . 62122) (TRAJECTORY.IP 62124 . 62522) (TRANS.IP 62524 . 62863) (TRANSLATE.IP
|
||||
62865 . 63210)) (63243 69333 (\CHANGE-VISIBLE-REGION.IP 63253 . 66914) (\PAPERSIZE.IP 66916 . 67737)
|
||||
(HEADINGOP.IP 67739 . 69331)) (69334 174344 (DEFINEFONT.IP 69344 . 70318) (FONTNAME.IP 70320 . 71250)
|
||||
(INTERPRESS.BITMAPSCALE 71252 . 72061) (INTERPRESS.OUTCHARFN 72063 . 78235) (INTERPRESSFILEP 78237 .
|
||||
79571) (MAKEINTERPRESS 79573 . 79757) (NEWLINE.IP 79759 . 80491) (NEWPAGE.IP 80493 . 85468) (
|
||||
NEWPAGE?.IP 85470 . 85949) (OPENIPSTREAM 85951 . 94302) (SETUPFONTS.IP 94304 . 95296) (SHOWBITMAP.IP
|
||||
95298 . 99839) (\BITMAPSIZE.IP 99841 . 100618) (SHOWBITMAP1.IP 100620 . 104992) (SHOWSHADE.IP 104994
|
||||
. 105947) (\BITBLT.IP 105949 . 110153) (\SCALEDBITBLT.IP 110155 . 113800) (\BLTSHADE.IP 113802 .
|
||||
115260) (\CHARWIDTH.IP 115262 . 115712) (\CLOSEIPSTREAM 115714 . 116041) (\DRAWARC.IP 116043 . 116490)
|
||||
(\DRAWCURVE.IP 116492 . 118929) (\DRAWPOINT.IP 118931 . 119968) (\DSPCOLOR.IP 119970 . 120921) (
|
||||
ENSURE.RGB 120923 . 121587) (\IPCURVE2 121589 . 134843) (\CLIPCURVELINE.IP 134845 . 139543) (
|
||||
\DRAWLINE.IP 139545 . 143277) (\CLIPLINE 143279 . 147979) (\DSPBOTTOMMARGIN.IP 147981 . 148397) (
|
||||
\DSPFONT.IP 148399 . 152446) (\DSPLEFTMARGIN.IP 152448 . 152908) (\DSPLINEFEED.IP 152910 . 153577) (
|
||||
\DSPRIGHTMARGIN.IP 153579 . 154376) (\DSPSPACEFACTOR.IP 154378 . 155507) (\DSPTOPMARGIN.IP 155509 .
|
||||
155945) (\DSPXPOSITION.IP 155947 . 156934) (\DSPROTATE.IP 156936 . 157114) (\PUSHSTATE.IP 157116 .
|
||||
158008) (\POPSTATE.IP 158010 . 158645) (\DEFAULTSTATE.IP 158647 . 158999) (\DSPTRANSLATE.IP 159001 .
|
||||
159182) (\DSPSCALE2.IP 159184 . 159359) (\DSPYPOSITION.IP 159361 . 159662) (FILLCIRCLE.IP 159664 .
|
||||
160747) (\FILLPOLYGON.IP 160749 . 162080) (\DRAWPOLYGON.IP 162082 . 168212) (\FIXLINELENGTH.IP 168214
|
||||
. 169428) (\MOVETO.IP 169430 . 169794) (\SETBRUSH.IP 169796 . 171962) (\STRINGWIDTH.IP 171964 .
|
||||
172367) (\DSPCLIPPINGREGION.IP 172369 . 173545) (\DSPOPERATION.IP 173547 . 174342)) (174535 175290 (
|
||||
IP-TOS 174545 . 174805) (POP-IP-STACK 174807 . 175102) (PUSH-IP-STACK 175104 . 175288)) (175351 187915
|
||||
(\CREATECHARSET.IP 175361 . 187152) (\CHANGECHARSET.IP 187154 . 187913)) (187916 192642 (
|
||||
\INTERPRESSINIT 187926 . 192640)) (192643 193201 (SCALEREGION 192653 . 193199)) (206129 208553 (
|
||||
INTERPRESSBITMAP 206139 . 208551)) (210761 217417 (NSMAP 210771 . 211353) (\COERCEASCIITONSFONT 211355
|
||||
. 215209) (\CREATEINTERPRESSFONT 215211 . 217076) (\SEARCHINTERPRESSFONTS 217078 . 217415)) (220992
|
||||
221736 (\IPC 220992 . 221736)))))
|
||||
(FILEMAP (NIL (15420 16164 (\IPC 15420 . 16164)) (16397 22049 (APPENDBYTE.IP 16407 . 16543) (
|
||||
APPENDIDENTIFIER.IP 16545 . 17067) (APPENDINT.IP 17069 . 17520) (APPENDINTEGER.IP 17522 . 18094) (
|
||||
APPENDLARGEVECTOR.IP 18096 . 19061) (APPENDNUMBER.IP 19063 . 19532) (APPENDOP.IP 19534 . 20180) (
|
||||
APPENDRATIONAL.IP 20182 . 20675) (APPENDSEQUENCEDESCRIPTOR.IP 20677 . 21872) (BYTESININT.IP 21874 .
|
||||
22047)) (22085 61892 (ARCTO.IP 22095 . 23376) (BEGINMASTER.IP 23378 . 23651) (BEGINPAGE.IP 23653 .
|
||||
24009) (BEGINPREAMBLE.IP 24011 . 24382) (CLIPRECTANGLE.IP 24384 . 24874) (CONCAT.IP 24876 . 25141) (
|
||||
CONCATT.IP 25143 . 25410) (ENDMASTER.IP 25412 . 25856) (ENDPAGE.IP 25858 . 26235) (ENDPREAMBLE.IP
|
||||
26237 . 27036) (FGET.IP 27038 . 27341) (FILLRECTANGLE.IP 27343 . 29671) (FILLTRAJECTORY.IP 29673 .
|
||||
30308) (FILLNGON.IP 30310 . 32587) (FSET.IP 32589 . 32892) (GETFRAMEVAR.IP 32894 . 33212) (
|
||||
INITIALIZEMASTER.IP 33214 . 33815) (INITIALIZECOLOR.IP 33817 . 35138) (ISET.IP 35140 . 35511) (
|
||||
GETCP.IP 35513 . 35822) (LINETO.IP 35824 . 36429) (MASKSTROKE.IP 36431 . 36704) (MOVETO.IP 36706 .
|
||||
37043) (ROTATE.IP 37045 . 37347) (SCALE.IP 37349 . 37652) (SCALE2.IP 37654 . 37991) (SETCOLOR.IP 37993
|
||||
. 40222) (SETRGB.IP 40224 . 41280) (SETCOLORLV.IP 41282 . 45895) (SETCOLOR16.IP 45897 . 49003) (
|
||||
SETFONT.IP 49005 . 49826) (SETSPACE.IP 49828 . 50140) (SETXREL.IP 50142 . 51326) (SETX.IP 51328 .
|
||||
52845) (SETXY.IP 52847 . 54019) (SETXYREL.IP 54021 . 55327) (SETY.IP 55329 . 56638) (SETYREL.IP 56640
|
||||
. 57540) (SHOW.IP 57542 . 60802) (TRAJECTORY.IP 60804 . 61202) (TRANS.IP 61204 . 61543) (TRANSLATE.IP
|
||||
61545 . 61890)) (61923 68013 (\CHANGE-VISIBLE-REGION.IP 61933 . 65594) (\PAPERSIZE.IP 65596 . 66417)
|
||||
(HEADINGOP.IP 66419 . 68011)) (68014 173024 (DEFINEFONT.IP 68024 . 68998) (FONTNAME.IP 69000 . 69930)
|
||||
(INTERPRESS.BITMAPSCALE 69932 . 70741) (INTERPRESS.OUTCHARFN 70743 . 76915) (INTERPRESSFILEP 76917 .
|
||||
78251) (MAKEINTERPRESS 78253 . 78437) (NEWLINE.IP 78439 . 79171) (NEWPAGE.IP 79173 . 84148) (
|
||||
NEWPAGE?.IP 84150 . 84629) (OPENIPSTREAM 84631 . 92982) (SETUPFONTS.IP 92984 . 93976) (SHOWBITMAP.IP
|
||||
93978 . 98519) (\BITMAPSIZE.IP 98521 . 99298) (SHOWBITMAP1.IP 99300 . 103672) (SHOWSHADE.IP 103674 .
|
||||
104627) (\BITBLT.IP 104629 . 108833) (\SCALEDBITBLT.IP 108835 . 112480) (\BLTSHADE.IP 112482 . 113940)
|
||||
(\CHARWIDTH.IP 113942 . 114392) (\CLOSEIPSTREAM 114394 . 114721) (\DRAWARC.IP 114723 . 115170) (
|
||||
\DRAWCURVE.IP 115172 . 117609) (\DRAWPOINT.IP 117611 . 118648) (\DSPCOLOR.IP 118650 . 119601) (
|
||||
ENSURE.RGB 119603 . 120267) (\IPCURVE2 120269 . 133523) (\CLIPCURVELINE.IP 133525 . 138223) (
|
||||
\DRAWLINE.IP 138225 . 141957) (\CLIPLINE 141959 . 146659) (\DSPBOTTOMMARGIN.IP 146661 . 147077) (
|
||||
\DSPFONT.IP 147079 . 151126) (\DSPLEFTMARGIN.IP 151128 . 151588) (\DSPLINEFEED.IP 151590 . 152257) (
|
||||
\DSPRIGHTMARGIN.IP 152259 . 153056) (\DSPSPACEFACTOR.IP 153058 . 154187) (\DSPTOPMARGIN.IP 154189 .
|
||||
154625) (\DSPXPOSITION.IP 154627 . 155614) (\DSPROTATE.IP 155616 . 155794) (\PUSHSTATE.IP 155796 .
|
||||
156688) (\POPSTATE.IP 156690 . 157325) (\DEFAULTSTATE.IP 157327 . 157679) (\DSPTRANSLATE.IP 157681 .
|
||||
157862) (\DSPSCALE2.IP 157864 . 158039) (\DSPYPOSITION.IP 158041 . 158342) (FILLCIRCLE.IP 158344 .
|
||||
159427) (\FILLPOLYGON.IP 159429 . 160760) (\DRAWPOLYGON.IP 160762 . 166892) (\FIXLINELENGTH.IP 166894
|
||||
. 168108) (\MOVETO.IP 168110 . 168474) (\SETBRUSH.IP 168476 . 170642) (\STRINGWIDTH.IP 170644 .
|
||||
171047) (\DSPCLIPPINGREGION.IP 171049 . 172225) (\DSPOPERATION.IP 172227 . 173022)) (173215 173970 (
|
||||
IP-TOS 173225 . 173485) (POP-IP-STACK 173487 . 173782) (PUSH-IP-STACK 173784 . 173968)) (174031 186595
|
||||
(\CREATECHARSET.IP 174041 . 185832) (\CHANGECHARSET.IP 185834 . 186593)) (186596 191322 (
|
||||
\INTERPRESSINIT 186606 . 191320)) (191323 191881 (SCALEREGION 191333 . 191879)) (204809 207233 (
|
||||
INTERPRESSBITMAP 204819 . 207231)) (209441 216097 (NSMAP 209451 . 210033) (\COERCEASCIITONSFONT 210035
|
||||
. 213889) (\CREATEINTERPRESSFONT 213891 . 215756) (\SEARCHINTERPRESSFONTS 215758 . 216095)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,13 +1,11 @@
|
||||
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")
|
||||
(IL:FILECREATED "11-Jun-90 17:56:50" IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>LLSYMBOL.;5| 9443
|
||||
(DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
IL:|changes| IL:|to:| (IL:VARS IL:LLSYMBOLCOMS)
|
||||
(IL:FILECREATED "31-Oct-2023 16:16:39" IL:|{WMEDLEY}<sources>LLSYMBOL.;2| 9255
|
||||
|
||||
IL:|previous| IL:|date:| " 4-Jun-90 15:10:38" IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>LLSYMBOL.;4|
|
||||
)
|
||||
:EDIT-BY IL:|rmk|
|
||||
|
||||
:PREVIOUS-DATE "11-Jun-90 17:56:50" IL:|{WMEDLEY}<sources>LLSYMBOL.;1|)
|
||||
|
||||
; Copyright (c) 1986, 1987, 1990 by Venue & Xerox Corporation. All rights reserved.
|
||||
|
||||
(IL:PRETTYCOMPRINT IL:LLSYMBOLCOMS)
|
||||
|
||||
@@ -86,7 +84,7 @@
|
||||
|
||||
(IL:* IL:|;;| "Look on the property list of SYMBOL for the specified INDICATOR. If this is found, return the associated value, else return DEFAULT.")
|
||||
|
||||
(GETF (IL:GETPROPLIST SYMBOL)
|
||||
(GETF (IL:GETPROPLIST SYMBOL)
|
||||
INDICATOR DEFAULT))
|
||||
|
||||
(DEFUN GETF (PLACE INDICATOR &OPTIONAL (DEFAULT NIL))
|
||||
@@ -129,7 +127,7 @@
|
||||
|
||||
(IL:* IL:|;;| "Has lots of special knowledge of prop list names")
|
||||
|
||||
(SETF (SYMBOL-FUNCTION SYMBOL)
|
||||
(SETF (SYMBOL-FUNCTION SYMBOL)
|
||||
NIL)
|
||||
(SETF (MACRO-FUNCTION SYMBOL)
|
||||
NIL)
|
||||
@@ -145,10 +143,10 @@
|
||||
(COND
|
||||
(DEF) (IL:* IL:\; "GETD returned non-NIL")
|
||||
((SETQ DEF (MACRO-FUNCTION SYMBOL)) (IL:* IL:\;
|
||||
"Return something representing the macro's implementation.")
|
||||
"Return something representing the macro's implementation.")
|
||||
(CONS ':MACRO DEF))
|
||||
((SETQ DEF (SPECIAL-FORM-P SYMBOL)) (IL:* IL:\;
|
||||
"Return something representing the special-form's implementation.")
|
||||
"Return something representing the special-form's implementation.")
|
||||
(CONS ':SPECIAL-FORM DEF))
|
||||
(T (ERROR 'XCL:UNDEFINED-FUNCTION :NAME SYMBOL))))
|
||||
|
||||
@@ -167,7 +165,7 @@
|
||||
(CASE (CAR DEFINITION)
|
||||
(:MACRO (SETF (MACRO-FUNCTION SYMBOL)
|
||||
(CDR DEFINITION)))
|
||||
(:SPECIAL-FORM (SETF (GET SYMBOL 'IL:SPECIAL-FORM)
|
||||
(:SPECIAL-FORM (SETF (GET SYMBOL 'IL:SPECIAL-FORM)
|
||||
(CDR DEFINITION)))
|
||||
(T (IL:PUTD SYMBOL DEFINITION T))))
|
||||
|
||||
@@ -211,13 +209,13 @@
|
||||
(SETQ *GENSYM-COUNTER* (1+ *GENSYM-COUNTER*))))
|
||||
|
||||
(DEFUN GENTEMP (&OPTIONAL (PREFIX "T")
|
||||
(PACKAGE *PACKAGE*))
|
||||
(PACKAGE *PACKAGE*))
|
||||
|
||||
(IL:* IL:|;;| "*gentemp-counter* holds a good guess for the suffix ")
|
||||
|
||||
(LET ((COUNTER *GENTEMP-COUNTER*)
|
||||
NAMESTRING) (IL:* IL:\;
|
||||
"Use IL:MKSTRING rather than princ-to-string, since princ-to-string occurs late in the loadup")
|
||||
"Use IL:MKSTRING rather than princ-to-string, since princ-to-string occurs late in the loadup")
|
||||
(LOOP (SETQ NAMESTRING (CONCATENATE 'STRING PREFIX (IL:MKSTRING COUNTER)))
|
||||
(WHEN (NULL (FIND-SYMBOL NAMESTRING PACKAGE))
|
||||
(SETQ *GENTEMP-COUNTER* (1+ COUNTER))
|
||||
@@ -225,21 +223,21 @@
|
||||
(SETQ COUNTER (1+ COUNTER)))))
|
||||
|
||||
(DEFUN COPY-SYMBOL (SYM &OPTIONAL COPY-PROPS)
|
||||
(LET ((NEW-SYM (MAKE-SYMBOL (SYMBOL-NAME SYM))))
|
||||
(LET ((NEW-SYM (MAKE-SYMBOL (SYMBOL-NAME SYM))))
|
||||
(WHEN COPY-PROPS
|
||||
(IF (BOUNDP SYM)
|
||||
(SETF (SYMBOL-VALUE NEW-SYM)
|
||||
(SYMBOL-VALUE SYM)))
|
||||
(IF (FBOUNDP SYM)
|
||||
(SETF (SYMBOL-FUNCTION NEW-SYM)
|
||||
(SYMBOL-FUNCTION SYM)))
|
||||
(SETF (SYMBOL-VALUE NEW-SYM)
|
||||
(SYMBOL-VALUE SYM)))
|
||||
(IF (FBOUNDP SYM)
|
||||
(SETF (SYMBOL-FUNCTION NEW-SYM)
|
||||
(SYMBOL-FUNCTION SYM)))
|
||||
(SETF (SYMBOL-PLIST NEW-SYM)
|
||||
(COPY-LIST (SYMBOL-PLIST SYM))))
|
||||
NEW-SYM))
|
||||
|
||||
(DEFUN IL:MAKE-KEYWORD (SYMBOL)
|
||||
(DECLARE (SPECIAL IL:*KEYWORD-PACKAGE*))
|
||||
(VALUES (INTERN (SYMBOL-NAME SYMBOL)
|
||||
(VALUES (INTERN (SYMBOL-NAME SYMBOL)
|
||||
IL:*KEYWORD-PACKAGE*)))
|
||||
|
||||
(DEFUN KEYWORDP (OBJECT)
|
||||
@@ -250,7 +248,11 @@
|
||||
(IL:PUTPROPS IL:LLSYMBOL IL:FILETYPE COMPILE-FILE)
|
||||
|
||||
(IL:PUTPROPS IL:LLSYMBOL IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP"))
|
||||
(IL:PUTPROPS IL:LLSYMBOL IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990))
|
||||
(IL:DECLARE\: IL:DONTCOPY
|
||||
(IL:FILEMAP (NIL)))
|
||||
(IL:FILEMAP (NIL (1606 1904 (MAKUNBOUND 1606 . 1904)) (1906 2423 (SYMBOL-NAME 1906 . 2423)) (2425 2741
|
||||
(SYMBOL-VALUE 2425 . 2741)) (2743 3025 (GET 2743 . 3025)) (3027 3534 (GETF 3027 . 3534)) (3536 3958 (
|
||||
GET-PROPERTIES 3536 . 3958)) (4065 4214 (FBOUNDP 4065 . 4214)) (4216 4527 (FMAKUNBOUND 4216 . 4527)) (
|
||||
4529 5514 (SYMBOL-FUNCTION 4529 . 5514)) (5516 7128 (IL:SETF-SYMBOL-FUNCTION 5516 . 7128)) (7268 7582
|
||||
(GENSYM 7268 . 7582)) (7584 8271 (GENTEMP 7584 . 8271)) (8273 8774 (COPY-SYMBOL 8273 . 8774)) (8776
|
||||
8945 (IL:MAKE-KEYWORD 8776 . 8945)) (8947 9072 (KEYWORDP 8947 . 9072)))))
|
||||
IL:STOP
|
||||
|
||||
Binary file not shown.
@@ -1,17 +1,14 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "18-Mar-2022 21:45:55" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;8 28006
|
||||
(FILECREATED " 5-Dec-2023 21:15:38" {WMEDLEY}<sources>WINDOWOBJ.;23 32078
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS READIMAGEOBJ)
|
||||
|
||||
:PREVIOUS-DATE "17-Mar-2022 22:48:26"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>WINDOWOBJ.;7)
|
||||
:PREVIOUS-DATE " 5-Dec-2023 20:44:27" {WMEDLEY}<sources>WINDOWOBJ.;22)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1986-1987, 1990-1991, 1993 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT WINDOWOBJCOMS)
|
||||
|
||||
(RPAQQ WINDOWOBJCOMS
|
||||
@@ -315,9 +312,11 @@ Copyright (c) 1986-1987, 1990-1991, 1993 by Venue & Xerox Corporation.
|
||||
(READIMAGEOBJ
|
||||
[LAMBDA (STREAM GETFN NOERROR DATANBYTES)
|
||||
|
||||
(* ;; "Edited 5-Dec-2023 21:07 by rmk")
|
||||
|
||||
(* ;; "Edited 29-Nov-2023 14:51 by rmk")
|
||||
|
||||
(* ;; "Edited 18-Mar-2022 21:45 by rmk: Added WHEREIS as a last resort.")
|
||||
(* rrb "18-Mar-86 11:35")
|
||||
(DECLARE (SPECVARS UNDERREADIMAGEOBJ))
|
||||
|
||||
(* ;; "Reads an IMAGEOBJ, using GETFN. Verifies that the GETFN is legitimate")
|
||||
|
||||
@@ -325,40 +324,73 @@ Copyright (c) 1986-1987, 1990-1991, 1993 by Venue & Xerox Corporation.
|
||||
|
||||
(* ;; "rmk: I'm not sure that it makes sense for GETFN to be NIL, as 86 code allowed. Presumably an image object without a GETFN should never have been written.")
|
||||
|
||||
(LET (SUPPORTFILE (UNDERREADIMAGEOBJ T))
|
||||
(LET (OBJ GETFNFILE GETFNFILENAME HYPHENPOS MAINFILE FAILEDMSG (UNDERREADIMAGEOBJ T))
|
||||
(DECLARE (SPECVARS UNDERREADIMAGEOBJ))
|
||||
|
||||
(* ;; "Typically,the file containing the GETFN has already been loaded. If not, it could be the case that the GETFN and its file were pushed on the list for future reference (now), but the file wasn't loaded then. We need to download it. Or if not there or not there with a file, and we can find the file containing the GETFN in the WHEREIS database, load that file.")
|
||||
(* ;; "Typically,the file containing the GETFN has already been loaded. If not, it could be the case that the GETFN and its file were pushed on the list for future reference (now), but the file wasn't loaded then. We need to download it. We use the WHEREIS database to identify the file containing the GETFN. If it has a hyphenated name FOO-FIE and it has a sister file that named with just the prefix of the hyphen FOO, then we assume that the GETFN is in an internal file of a larger application FOO application, and we load FOO instead. Presumably that provides the GETFN.")
|
||||
|
||||
(* ;; "If we find the file with the GETFN but that file doesn't also contain the IMAGEFNS variable, we're screwed. That's why we apply the GETFN under an NLSETQ")
|
||||
(* ;; "Note: the Prompt message only shows the NAME of the file, not the full path.")
|
||||
|
||||
(* ;; "Clean this up if we decide to nuke the MOUSECONFIRM")
|
||||
|
||||
(CL:WHEN (AND GETFN (NOT (GETD GETFN))
|
||||
[SETQ SUPPORTFILE (OR (LISTGET (CDR (ASSOC GETFN IMAGEOBJGETFNS))
|
||||
'FILE)
|
||||
(CAR (WHEREIS GETFN 'FNS T))
|
||||
(CAR (WHEREIS GETFN 'FUNCTIONS T]
|
||||
(MOUSECONFIRM (CONCAT "Trying to read an IMAGEOBJ with GETFN " GETFN
|
||||
". Shall I load the support file, " SUPPORTFILE "?")
|
||||
NIL NIL NIL))
|
||||
(DOFILESLOAD (LIST '(SYSLOAD)
|
||||
SUPPORTFILE)))
|
||||
(COND
|
||||
[(AND GETFN (GETD GETFN)
|
||||
(CAR (NLSETQ (APPLY* GETFN STREAM]
|
||||
(NOERROR NIL)
|
||||
(T (* ;
|
||||
[SETQ GETFNFILENAME (OR (LISTGET (CDR (ASSOC GETFN IMAGEOBJGETFNS))
|
||||
'FILE)
|
||||
(CAR (WHEREIS GETFN 'FNS T))
|
||||
(CAR (WHEREIS GETFN 'FUNCTIONS T]
|
||||
[SETQ GETFNFILE (FINDFILE-WITH-EXTENSIONS GETFNFILENAME NIL
|
||||
(APPEND *COMPILED-EXTENSIONS* (CONS NIL]
|
||||
(PROG1 T
|
||||
|
||||
(* ;; "Is FOO a sister of FOO-FIE ?")
|
||||
|
||||
(CL:WHEN (SETQ HYPHENPOS (STRPOS "-" GETFNFILENAME))
|
||||
[SETQ MAINFILE (FINDFILE-WITH-EXTENSIONS (PACKFILENAME
|
||||
'NAME
|
||||
(SUBSTRING GETFNFILENAME 1
|
||||
(SUB1 HYPHENPOS))
|
||||
'VERSION NIL 'EXTENSION NIL
|
||||
'BODY GETFNFILE)
|
||||
NIL
|
||||
(APPEND *COMPILED-EXTENSIONS* (CONS NIL]))
|
||||
(if T
|
||||
then
|
||||
(* ;; "This makes for an automatic attempt. If we fail, well...")
|
||||
|
||||
(PROMPTPRINT "Getting GETFN " GETFN " by loading " (OR MAINFILE
|
||||
GETFNFILE))
|
||||
T
|
||||
else (MOUSECONFIRM (CONCAT "Trying to read an IMAGEOBJ with GETFN " GETFN
|
||||
". Shall I load the support file, " MAINFILE "?")
|
||||
NIL NIL NIL)))
|
||||
|
||||
(* ;; "Hopefully we found the latest compiled versions")
|
||||
|
||||
(CL:WHEN MAINFILE
|
||||
(DOFILESLOAD (LIST '(SYSLOAD)
|
||||
MAINFILE)))
|
||||
(CL:UNLESS (GETD GETFN) (* ;
|
||||
"Didn't find the GETFN: try the original GETFNFILE.")
|
||||
(DOFILESLOAD (LIST '(SYSLOAD)
|
||||
GETFNFILE))))
|
||||
(if (NULL (GETD GETFN))
|
||||
then (SETQ FAILEDMSG "Unknown")
|
||||
elseif [SETQ OBJ (CAR (NLSETQ (APPLY* GETFN STREAM]
|
||||
else (SETQ FAILEDMSG "Error in"))
|
||||
(CL:UNLESS (OR OBJ NOERROR) (* ;
|
||||
"Still no support for this kind of IMAGEOBJ. Encapsulate it in something safe.")
|
||||
(LET [(OBJ (IMAGEOBJCREATE NIL (ENCAPSULATEDIMAGEFNS GETFN]
|
||||
(IMAGEOBJPROP OBJ 'FILE (FULLNAME STREAM)
|
||||
STREAM) (* ;
|
||||
(SETQ OBJ (IMAGEOBJCREATE NIL (ENCAPSULATEDIMAGEFNS GETFN)))
|
||||
(IMAGEOBJPROP OBJ 'FILE (FULLNAME STREAM)
|
||||
STREAM) (* ;
|
||||
"Remember which file it came from so that it could be written back out.")
|
||||
(IMAGEOBJPROP OBJ 'FILEPTR (GETFILEPTR STREAM))
|
||||
(* ; "And where on the file")
|
||||
(IMAGEOBJPROP OBJ 'OBJSIZE DATANBYTES)
|
||||
(IMAGEOBJPROP OBJ 'UNKNOWNGETFN GETFN) (* ; "And the name of its GETFN")
|
||||
(AND DATANBYTES (SETFILEPTR STREAM (PLUS (GETFILEPTR STREAM)
|
||||
DATANBYTES)))
|
||||
OBJ])
|
||||
(IMAGEOBJPROP OBJ 'FILEPTR (GETFILEPTR STREAM)) (* ; "And where on the file")
|
||||
(IMAGEOBJPROP OBJ 'OBJSIZE DATANBYTES)
|
||||
(IMAGEOBJPROP OBJ 'UNKNOWNGETFN GETFN) (* ; "And the name of its GETFN")
|
||||
(IMAGEOBJPROP OBJ 'FAILEDMSG FAILEDMSG) (* ; "And why it failed")
|
||||
(CL:WHEN DATANBYTES
|
||||
(SETFILEPTR STREAM (PLUS (GETFILEPTR STREAM)
|
||||
DATANBYTES))))
|
||||
OBJ])
|
||||
|
||||
(WRITEIMAGEOBJ
|
||||
[LAMBDA (IMAGEOBJ STREAM) (* jds "19-Feb-85 09:36")
|
||||
@@ -397,23 +429,35 @@ Copyright (c) 1986-1987, 1990-1991, 1993 by Venue & Xerox Corporation.
|
||||
(DEFINEQ
|
||||
|
||||
(ENCAPSULATEDOBJ.BUTTONEVENTINFN
|
||||
[LAMBDA (IMAGEOBJ WINDOW) (* ; "Edited 2-Apr-87 15:33 by bvm:")
|
||||
[LAMBDA (IMAGEOBJ WINDOW) (* ; "Edited 26-Nov-2023 08:15 by rmk")
|
||||
(* ; "Edited 2-Apr-87 15:33 by bvm:")
|
||||
|
||||
(* ;;; "The user hit a button inside this object. Try loading it now.")
|
||||
|
||||
(CL:WITH-OPEN-FILE (STREAM (IMAGEOBJPROP IMAGEOBJ 'FILE))
|
||||
(SETFILEPTR STREAM (IMAGEOBJPROP IMAGEOBJ 'FILEPTR))
|
||||
(* ;
|
||||
"Move to where the IMAGEOBJ's description started in the file we read it from")
|
||||
(LET [(OBJ (READIMAGEOBJ STREAM (IMAGEOBJPROP IMAGEOBJ 'UNKNOWNGETFN)
|
||||
"Move to where the IMAGEOBJ's description started in the file we read it from")
|
||||
(LET ([OBJ (READIMAGEOBJ STREAM (IMAGEOBJPROP IMAGEOBJ 'UNKNOWNGETFN)
|
||||
T
|
||||
(IMAGEOBJPROP IMAGEOBJ 'ENDOFOBJFILEPTR]
|
||||
PROMPT)
|
||||
(COND
|
||||
(OBJ (* ;
|
||||
"We succeeded in reading the object this time. Copy its guts over the placeholder.")
|
||||
"We succeeded in reading the object this time. Copy its guts over the placeholder.")
|
||||
(COPYIMAGEOBJ OBJ IMAGEOBJ)
|
||||
'CHANGED)
|
||||
(T (PRIN1 "Still no support for this image object." (GETPROMPTWINDOW WINDOW))
|
||||
((GETD (IMAGEOBJPROP IMAGEOBJ 'UNKNOWNGETFN))
|
||||
(SETQ PROMPT (GETPROMPTWINDOW WINDOW))
|
||||
(FRESHLINE PROMPT)
|
||||
(PRIN1 (CONCAT "Error in executing " (IMAGEOBJPROP IMAGEOBJ 'UNKNOWNGETFN))
|
||||
PROMPT)
|
||||
NIL)
|
||||
(T (SETQ PROMPT (GETPROMPTWINDOW WINDOW))
|
||||
(FRESHLINE PROMPT)
|
||||
(PRIN1 (CONCAT (IMAGEOBJPROP IMAGEOBJ 'UNKNOWNGETFN)
|
||||
" is still unknown")
|
||||
PROMPT)
|
||||
NIL])
|
||||
|
||||
(ENCAPSULATEDOBJ.PUTFN
|
||||
@@ -434,12 +478,13 @@ Either delete this image object or load its support files." IMAGEOBJ)
|
||||
T])
|
||||
|
||||
(ENCAPSULATEDOBJ.DISPLAYFN
|
||||
[LAMBDA (OBJ STREAM) (* jds "19-Feb-85 10:37")
|
||||
[LAMBDA (OBJ STREAM) (* ; "Edited 5-Dec-2023 12:12 by rmk")
|
||||
(* jds "19-Feb-85 10:37")
|
||||
|
||||
(* ;; "Display function for an IMAGEOBJ that has been encapsulated for safety")
|
||||
|
||||
(* ;;
|
||||
"Displays as a box containing text saying 'Unknown IMAGEOBJ type' , and naming the unknown GETFN.")
|
||||
"Displays as a box containing text saying 'Unknown IMAGEOBJ type' , and naming the unknown GETFN.")
|
||||
|
||||
(LET* ((CURX (DSPXPOSITION NIL STREAM))
|
||||
(CURY (DSPYPOSITION NIL STREAM))
|
||||
@@ -455,7 +500,9 @@ Either delete this image object or load its support files." IMAGEOBJ)
|
||||
(RELMOVETO 3 (IPLUS (FONTPROP FONT 'HEIGHT)
|
||||
3)
|
||||
STREAM)
|
||||
(PRIN1 "Unknown IMAGEOBJ type" STREAM)
|
||||
(PRIN1 (OR (IMAGEOBJPROP OBJ 'FAILEDMSG "Unknown"))
|
||||
STREAM)
|
||||
(PRIN1 " IMAGEOBJ" STREAM)
|
||||
(MOVETO (IPLUS CURX 3)
|
||||
(IPLUS CURY 3)
|
||||
STREAM)
|
||||
@@ -472,21 +519,35 @@ Either delete this image object or load its support files." IMAGEOBJ)
|
||||
(DSPFONT OLDFONT STREAM])
|
||||
|
||||
(ENCAPSULATEDOBJ.IMAGEBOXFN
|
||||
[LAMBDA (OBJ STREAM) (* jds "19-Feb-85 10:05")
|
||||
[LAMBDA (IMAGEOBJ STREAM) (* ; "Edited 5-Dec-2023 11:25 by rmk")
|
||||
(* ; "Edited 29-Nov-2023 12:49 by rmk")
|
||||
(* jds "19-Feb-85 10:05")
|
||||
|
||||
(* ;; "IMAGEOBXFN for an encapsulated IMAGEOBJ. If the GETFN now exists, another attempt is made to retrieve the underlying object and to use its boxfn. ")
|
||||
|
||||
(LET ((GETFN (IMAGEOBJPROP IMAGEOBJ 'UNKNOWNGETFN))
|
||||
NEWOBJ WIDTH HEIGHT FONT)
|
||||
(if [AND GETFN (CL:WITH-OPEN-FILE (STREAM (IMAGEOBJPROP IMAGEOBJ 'FILE))
|
||||
(SETFILEPTR STREAM (IMAGEOBJPROP IMAGEOBJ 'FILEPTR))
|
||||
(* ;
|
||||
"IMAGEOBXFN for an encapsulated IMAGEOBJ")
|
||||
(PROG ((FONT (FONTCREATE 'HELVETICA 8 'BOLD NIL STREAM))
|
||||
(GETFN (IMAGEOBJPROP OBJ 'UNKNOWNGETFN))
|
||||
WIDTH HEIGHT)
|
||||
[SETQ HEIGHT (ITIMES 2 (FONTPROP FONT 'HEIGHT]
|
||||
(SETQ WIDTH (IMAX (STRINGWIDTH "Unknown IMAGEOBJ type" FONT)
|
||||
(STRINGWIDTH (CONCAT "GETFN: " GETFN)
|
||||
FONT)))
|
||||
(RETURN (create IMAGEBOX
|
||||
XSIZE _ (IPLUS WIDTH 6)
|
||||
YSIZE _ (IPLUS HEIGHT 6)
|
||||
YDESC _ 0
|
||||
XKERN _ 0])
|
||||
"Move to where the IMAGEOBJ's description started in the file we read it from")
|
||||
(SETQ NEWOBJ (READIMAGEOBJ STREAM GETFN T (IMAGEOBJPROP IMAGEOBJ
|
||||
'ENDOFOBJFILEPTR]
|
||||
then (COPYIMAGEOBJ NEWOBJ IMAGEOBJ) (* ; "ENCAPSULATEDOBJ.BUTTONEVENTINFN also returns CHANGED to tell the caller what happened. But we have to return the box. Fingers crossed.")
|
||||
(APPLY* (IMAGEOBJPROP IMAGEOBJ 'IMAGEBOXFN)
|
||||
IMAGEOBJ STREAM)
|
||||
else (SETQ FONT (FONTCREATE 'HELVETICA 8 'BOLD NIL STREAM))
|
||||
[SETQ HEIGHT (ITIMES 2 (FONTPROP FONT 'HEIGHT]
|
||||
(SETQ WIDTH (IMAX (STRINGWIDTH (CONCAT (OR (IMAGEOBJPROP IMAGEOBJ 'FAILEDMSG)
|
||||
"Unknown" " IMAGEOBJ"))
|
||||
FONT)
|
||||
(STRINGWIDTH (CONCAT "GETFN: " GETFN)
|
||||
FONT)))
|
||||
(create IMAGEBOX
|
||||
XSIZE _ (IPLUS WIDTH 6)
|
||||
YSIZE _ (IPLUS HEIGHT 6)
|
||||
YDESC _ 0
|
||||
XKERN _ 0])
|
||||
|
||||
(ENCAPSULATEDIMAGEFNS
|
||||
[LAMBDA (GETFN) (* rrb " 3-Feb-86 18:31")
|
||||
@@ -526,13 +587,12 @@ Either delete this image object or load its support files." IMAGEOBJ)
|
||||
|
||||
(ADDTOVAR LAMA IMAGEOBJPROP)
|
||||
)
|
||||
(PUTPROPS WINDOWOBJ COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1993))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4897 21221 (COPYINSERT 4907 . 6434) (IMAGEBOX 6436 . 6616) (IMAGEFNSCREATE 6618 . 7813)
|
||||
(IMAGEFNSP 7815 . 8056) (IMAGEOBJCREATE 8058 . 8603) (IMAGEOBJP 8605 . 8846) (IMAGEOBJPROP 8848 .
|
||||
14740) (\IMAGEUSERPROP 14742 . 15336) (HPRINT.IMAGEOBJ 15338 . 15927) (COPYIMAGEOBJ 15929 . 16672) (
|
||||
READIMAGEOBJ 16674 . 19867) (WRITEIMAGEOBJ 19869 . 21219)) (21435 27642 (
|
||||
ENCAPSULATEDOBJ.BUTTONEVENTINFN 21445 . 22581) (ENCAPSULATEDOBJ.PUTFN 22583 . 23698) (
|
||||
ENCAPSULATEDOBJ.DISPLAYFN 23700 . 25313) (ENCAPSULATEDOBJ.IMAGEBOXFN 25315 . 26203) (
|
||||
ENCAPSULATEDIMAGEFNS 26205 . 27640)))))
|
||||
(FILEMAP (NIL (4766 23254 (COPYINSERT 4776 . 6303) (IMAGEBOX 6305 . 6485) (IMAGEFNSCREATE 6487 . 7682)
|
||||
(IMAGEFNSP 7684 . 7925) (IMAGEOBJCREATE 7927 . 8472) (IMAGEOBJP 8474 . 8715) (IMAGEOBJPROP 8717 .
|
||||
14609) (\IMAGEUSERPROP 14611 . 15205) (HPRINT.IMAGEOBJ 15207 . 15796) (COPYIMAGEOBJ 15798 . 16541) (
|
||||
READIMAGEOBJ 16543 . 21900) (WRITEIMAGEOBJ 21902 . 23252)) (23468 31800 (
|
||||
ENCAPSULATEDOBJ.BUTTONEVENTINFN 23478 . 25261) (ENCAPSULATEDOBJ.PUTFN 25263 . 26378) (
|
||||
ENCAPSULATEDOBJ.DISPLAYFN 26380 . 28183) (ENCAPSULATEDOBJ.IMAGEBOXFN 28185 . 30361) (
|
||||
ENCAPSULATEDIMAGEFNS 30363 . 31798)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user