Compare commits
11 Commits
medley-220
...
medley-220
| Author | SHA1 | Date | |
|---|---|---|---|
|
39a7512458 | ||
|
431d80fb3c | ||
|
|
78b76f6801 | ||
|
|
16517cdfc5 | ||
|
902d542121 | ||
|
c708f2ac55 | ||
|
|
43e6801341 | ||
|
|
27a6063ce9 | ||
|
|
cd6b64efa2 | ||
|
|
222da55f69 | ||
|
|
92f85c5957 |
@@ -41,9 +41,9 @@ ADD ./*.tgz ${INSTALL_LOCATION}
|
||||
|
||||
# Create a run_medley script in /usr/local/bin
|
||||
RUN mkdir -p /usr/local/bin && \
|
||||
echo "#!/bin/bash" > /usr/local/bin/run-medley && \
|
||||
echo "cd ${INSTALL_LOCATION}" >> /usr/local/bin/run-medley && \
|
||||
echo './run-medley "$@"' >> /usr/local/bin/run-medley && \
|
||||
echo "#!/bin/bash" > /usr/local/bin/run-medley && \
|
||||
echo "cd ${INSTALL_LOCATION}/medley" >> /usr/local/bin/run-medley && \
|
||||
echo './run-medley "$@"' >> /usr/local/bin/run-medley && \
|
||||
chmod ugo+x /usr/local/bin/run-medley
|
||||
|
||||
# "Finalize" image
|
||||
|
||||
BIN
fonts/displayfonts/c0/IBM-US14-MRR-C0.DISPLAYFONT
Normal file
BIN
fonts/displayfonts/c0/IBM-US14-MRR-C0.DISPLAYFONT
Normal file
Binary file not shown.
BIN
fonts/displayfonts/c0/IBM-US16-MRR-C0.DISPLAYFONT
Normal file
BIN
fonts/displayfonts/c0/IBM-US16-MRR-C0.DISPLAYFONT
Normal file
Binary file not shown.
BIN
fonts/displayfonts/c0/IBM14-MRR-C0.DISPLAYFONT
Normal file
BIN
fonts/displayfonts/c0/IBM14-MRR-C0.DISPLAYFONT
Normal file
Binary file not shown.
BIN
fonts/displayfonts/c0/IBM16-MRR-C0.DISPLAYFONT
Normal file
BIN
fonts/displayfonts/c0/IBM16-MRR-C0.DISPLAYFONT
Normal file
Binary file not shown.
BIN
fonts/displayfonts/c0/IBMREV14-MRR-C0.DISPLAYFONT
Normal file
BIN
fonts/displayfonts/c0/IBMREV14-MRR-C0.DISPLAYFONT
Normal file
Binary file not shown.
BIN
fonts/displayfonts/c0/IBMREV16-MRR-C0.DISPLAYFONT
Normal file
BIN
fonts/displayfonts/c0/IBMREV16-MRR-C0.DISPLAYFONT
Normal file
Binary file not shown.
Binary file not shown.
@@ -1,10 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED " 2-Dec-2021 19:33:12" |{DSK}<home>larry>medley>library>FILEBROWSER.;44| 267497
|
||||
(FILECREATED " 4-Aug-2022 09:32:02" |{DSK}<home>larry>medley>library>FILEBROWSER.;2| 266567
|
||||
|
||||
|changes| |to:| (VARS FILEBROWSERCOMS)
|
||||
:CHANGES-TO (VARS FILEBROWSERCOMS)
|
||||
|
||||
|previous| |date:| "23-Nov-2021 12:17:08" |{DSK}<home>larry>medley>library>FILEBROWSER.;39|)
|
||||
:PREVIOUS-DATE " 2-Dec-2021 19:33:12" |{DSK}<home>larry>medley>library>FILEBROWSER.;1|)
|
||||
|
||||
|
||||
; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
|
||||
@@ -185,8 +185,7 @@ You specify how many versions to keep.")))
|
||||
(* \; "Setup")
|
||||
(FNS FB.STARTUP FB.MAKERIGIDWINDOW)
|
||||
(FNS FB.PRINTFN FB.COPYFN))
|
||||
(COMS (* \;
|
||||
"commands and major subfunctions")
|
||||
(COMS (* \; "commands and major subfunctions")
|
||||
(FNS FB.MENU.WHENSELECTEDFN FB.COMMANDSELECTEDFN FB.SUBITEMP FB.MAKE.BROWSER.BUSY
|
||||
FB.FINISH.COMMAND FB.HANDLE.ABORT.BUTTON)
|
||||
(FNS FB.DELETECOMMAND FB.DELVERCOMMAND FB.IS.NOT.SUBDIRECTORY.ITEM FB.DELVER.FILES
|
||||
@@ -221,8 +220,8 @@ You specify how many versions to keep.")))
|
||||
(FNS FB.ICONFN FB.INFOMENU.WHENSELECTEDFN FB.CLOSEFN FB.EXPUNGE?.MENU FB.AFTERCLOSEFN
|
||||
FB.CLOSE&EXPUNGE)
|
||||
(FNS FB.HARDCOPY.DIRECTORY FB.HARDCOPY.PRINT.TITLE FB.HARDCOPY.MAXWIDTH))
|
||||
(DECLARE\: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||
TABLEBROWSERDECLS)
|
||||
(DECLARE\: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
|
||||
TABLEBROWSER)
|
||||
(RECORDS INFOFIELD FBFILEDATA FILEBROWSER)
|
||||
(CONSTANTS FB.MORE.BORDER FB.NULL.VERSION)
|
||||
(MACROS NULL.VERSIONP NULL.DIRECTORYP EQ.DIRECTORYP NULL.FIELDP)
|
||||
@@ -276,8 +275,8 @@ You specify how many versions to keep.")))
|
||||
DOCOPY
|
||||
|
||||
(RPAQ? FB.ICONSPEC '(#*(83 70)OOOOOOOOOOOOOOOOOOOON@@@OOOOOOOOOOOOOOOOOOOON@@@L@@@@@@@@@@@@@@@@@@@F@@@L@@@@@@@@@@@@@@@@@@@F@@@LOOOOOOOOOOOOOOOOOONF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@GOOOOOL@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@DCOOOHD@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@DOOOOND@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@GOOOOOL@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@COOOOOH@@@@@BF@@@LH@@@@@COOOOOH@@@@@BF@@@LH@@@@@B@@@@@H@@@@@BF@@@LH@@@@@A@@@@A@@@@@@BF@@@LH@@@@@@OOOON@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LOOOOOOOOOOOOOOOOOONF@@@L@@@@@@@@@@@@@@@@@@@F@@@L@@@@@@@@@@@@@@@@@@@F@@@OOOOOOOOOOOOOOOOOOOON@@@OOOOOOOOOOOOOOOOOOOON@@@
|
||||
NIL
|
||||
(5 5 73 40)))
|
||||
NIL
|
||||
(5 5 73 40)))
|
||||
)
|
||||
|
||||
(RPAQ? FB.EXPUNGE?MENU )
|
||||
@@ -305,9 +304,9 @@ DOCOPY
|
||||
(RPAQ? FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR))
|
||||
|
||||
(APPENDTOVAR FONTVARS (FB.ICONFONT LITTLEFONT)
|
||||
(FB.BROWSERFONT DEFAULTFONT)
|
||||
(FB.PROMPTFONT LITTLEFONT)
|
||||
(FB.BROWSER.DIRECTORY.FONT BOLDFONT))
|
||||
(FB.BROWSERFONT DEFAULTFONT)
|
||||
(FB.PROMPTFONT LITTLEFONT)
|
||||
(FB.BROWSER.DIRECTORY.FONT BOLDFONT))
|
||||
|
||||
|
||||
(* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.")
|
||||
@@ -408,27 +407,25 @@ You specify how many versions to keep.")))
|
||||
))
|
||||
|
||||
(RPAQQ FB.VERSION.MENU.ITEMS (("1" 1 "Keep only one version of the files")
|
||||
("2" 2 "Keep two versions of the files")
|
||||
("3" 3 "Keep three versions of the files")
|
||||
("4" 4 "Keep four versions of the files")
|
||||
("Other" :NUMBER "Select number of versions to keep")))
|
||||
("2" 2 "Keep two versions of the files")
|
||||
("3" 3 "Keep three versions of the files")
|
||||
("4" 4 "Keep four versions of the files")
|
||||
("Other" :NUMBER "Select number of versions to keep")))
|
||||
|
||||
(RPAQQ FB.CLOSE.MENU.ITEMS (("Expunge deleted files" 'EXPUNGE
|
||||
"Erases all files still marked 'deleted'")
|
||||
("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files.
|
||||
"Erases all files still marked 'deleted'")
|
||||
("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files.
|
||||
Your deletions are thus ignored.")))
|
||||
|
||||
(RPAQQ FB.DEPTH.MENU.ITEMS (("Global default" :GLOBAL
|
||||
"Set depth using the global default (FILING.ENUMERATION.DEPTH)"
|
||||
)
|
||||
("Infinite" T
|
||||
"Set depth to infinity, i.e., enumerate all levels of directory"
|
||||
)
|
||||
("1" 1
|
||||
"Set depth using the global default (FILING.ENUMERATION.DEPTH)")
|
||||
("Infinite" T
|
||||
"Set depth to infinity, i.e., enumerate all levels of directory")
|
||||
("1" 1
|
||||
"Set depth to 1, i.e., enumerate just the top level of the directory"
|
||||
)
|
||||
("2" 2 "Set depth to 2")
|
||||
("Other" :NUMBER "Set depth to some other finite depth")))
|
||||
)
|
||||
("2" 2 "Set depth to 2")
|
||||
("Other" :NUMBER "Set depth to some other finite depth")))
|
||||
|
||||
(RPAQQ FB.INFO.MENU.ITEMS
|
||||
((|Length| LENGTH "Toggles Length display")
|
||||
@@ -3857,127 +3854,124 @@ then click Recompute"))))
|
||||
)
|
||||
(DECLARE\: EVAL@COMPILE DONTCOPY
|
||||
|
||||
(FILESLOAD (SOURCE)
|
||||
TABLEBROWSERDECLS)
|
||||
(FILESLOAD (LOADCOMP)
|
||||
TABLEBROWSER)
|
||||
|
||||
(DECLARE\: EVAL@COMPILE
|
||||
|
||||
(RECORD INFOFIELD (INFONAME INFOLABEL INFOWIDTH INFOFORMAT INFOPROTOTYPE))
|
||||
|
||||
(DATATYPE FBFILEDATA ((FILENAME POINTER) (* \; "Full name of this file")
|
||||
(FILEINFO POINTER) (* \; "Plist of attributes")
|
||||
(VERSIONLESSNAME POINTER) (* \; "FILENAME sans version")
|
||||
(DIRECTORYP FLAG) (* \; "True if it's a directory line")
|
||||
(HASDIRPREFIX FLAG) (* \;
|
||||
"True if it has a directory prefix beyond that in common to all the files")
|
||||
(DIRECTORYFILEP FLAG) (* \;
|
||||
"True if the \"file\" in this item is actually a subdirectory")
|
||||
(SIZE POINTER) (* \; "Size of file, for stats")
|
||||
(FILEDEPTH BYTE) (* \;
|
||||
"Number of levels of subdirectory beneath the main pattern--zero for files at that level")
|
||||
(SORTVALUE POINTER) (* \;
|
||||
"Cached value by which we are sorting the dir.")
|
||||
(SUBDIREND WORD) (* \;
|
||||
"Index of last char in subdirectory, or zero if HASDIRPREFIX is false")
|
||||
(STARTOFPNAME WORD) (* \;
|
||||
"Start of name for printing purposes. Same as STARTOFNAME when browser sorted by name")
|
||||
(VERSION WORD) (* \; "Version, or zero if none")
|
||||
(STARTOFNAME WORD) (* \;
|
||||
"Index beyond all directory fields")
|
||||
DUMMY)
|
||||
(ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME
|
||||
)
|
||||
OF DATUM)
|
||||
(FETCH (FBFILEDATA STARTOFPNAME
|
||||
) OF DATUM)))
|
||||
(SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA
|
||||
FILENAME)
|
||||
OF DATUM)
|
||||
1
|
||||
(FETCH (FBFILEDATA SUBDIREND
|
||||
) OF
|
||||
DATUM))))))
|
||||
(DATATYPE FBFILEDATA ((FILENAME POINTER) (* \; "Full name of this file")
|
||||
(FILEINFO POINTER) (* \; "Plist of attributes")
|
||||
(VERSIONLESSNAME POINTER) (* \; "FILENAME sans version")
|
||||
(DIRECTORYP FLAG) (* \; "True if it's a directory line")
|
||||
(HASDIRPREFIX FLAG) (* \;
|
||||
"True if it has a directory prefix beyond that in common to all the files")
|
||||
(DIRECTORYFILEP FLAG) (* \;
|
||||
"True if the \"file\" in this item is actually a subdirectory")
|
||||
(SIZE POINTER) (* \; "Size of file, for stats")
|
||||
(FILEDEPTH BYTE) (* \;
|
||||
"Number of levels of subdirectory beneath the main pattern--zero for files at that level")
|
||||
(SORTVALUE POINTER) (* \;
|
||||
"Cached value by which we are sorting the dir.")
|
||||
(SUBDIREND WORD) (* \;
|
||||
"Index of last char in subdirectory, or zero if HASDIRPREFIX is false")
|
||||
(STARTOFPNAME WORD) (* \;
|
||||
"Start of name for printing purposes. Same as STARTOFNAME when browser sorted by name")
|
||||
(VERSION WORD) (* \; "Version, or zero if none")
|
||||
(STARTOFNAME WORD) (* \;
|
||||
"Index beyond all directory fields")
|
||||
DUMMY)
|
||||
(ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME)
|
||||
OF DATUM)
|
||||
(FETCH (FBFILEDATA STARTOFPNAME)
|
||||
OF DATUM)))
|
||||
(SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA FILENAME)
|
||||
OF DATUM)
|
||||
1
|
||||
(FETCH (FBFILEDATA SUBDIREND)
|
||||
OF DATUM))))))
|
||||
|
||||
(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) (* \;
|
||||
"True if we don't want separate subdirectory lines -- subdirs then included in name")
|
||||
(NSPATTERN? FLAG) (* \; "True if host is an ns host")
|
||||
(SHOWUNDELETED? FLAG) (* \;
|
||||
"True if counter window should show `Undeleted' rather than `Total' counts")
|
||||
(PATTERNPARSED? FLAG) (* \;
|
||||
"True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid")
|
||||
(SORTBYDATE FLAG) (* \;
|
||||
"True if SORTATTRIBUTE is one of the date attributes")
|
||||
(FBREADY FLAG) (* \; "False while FB is enumerating.")
|
||||
(ABORTING FLAG) (* \;
|
||||
"True if enumeration is being aborted")
|
||||
(FIXEDTITLE FLAG) (* \; "True if caller supplied title")
|
||||
(FBCOMPUTEDDEPTH BYTE) (* \;
|
||||
"Depth at the time we enumerated directory (zero for infinite)")
|
||||
(FBDISPLAYEDDEPTH BYTE) (* \;
|
||||
"Depth we are currently displaying (zero for infinite)")
|
||||
(TABLEBROWSER POINTER) (* \;
|
||||
"Pointer to TABLEBROWSER object controlling the browser")
|
||||
(BROWSERWINDOW POINTER) (* \; "Main window")
|
||||
(COUNTERWINDOW POINTER) (* \;
|
||||
"Window that counts files, pages, deletions")
|
||||
(HEADINGWINDOW POINTER) (* \;
|
||||
"Window with headings for browser columns")
|
||||
(INFOMENUW POINTER) (* \;
|
||||
"Window containing choices for info to be displayed, or NIL if none yet")
|
||||
(PROMPTWINDOW POINTER) (* \; "GETPROMPTWINDOW BROWSERWINDOW")
|
||||
(INFODISPLAYED POINTER) (* \;
|
||||
"List of attribute specs to be displayed")
|
||||
(PATTERN POINTER) (* \;
|
||||
"Directory pattern being enumerated")
|
||||
(PREPAREDPATTERN POINTER) (* \; "DIRECTORY.MATCH.SETUP of same")
|
||||
(SEEWINDOW POINTER) (* \;
|
||||
"Primary window used by FAST SEE command")
|
||||
(BROWSERFONT POINTER) (* \; "Font of BROWSERWINDOW")
|
||||
(SORTBY POINTER) (* \;
|
||||
"Sorting function or NIL for default sort")
|
||||
(NAMESTART WORD) (* \;
|
||||
"Index of first character in file name beyond the common prefix shared by all")
|
||||
(DIRECTORYSTART WORD) (* \;
|
||||
"Index of first character of directory in file names")
|
||||
(INFOSTART WORD) (* \;
|
||||
"X position in browser where first col of info is displayed")
|
||||
(NAMEOVERHEAD WORD) (* \;
|
||||
"This plus width of name gives is how much to allow before INFOSTART")
|
||||
(OVERFLOWSPACING WORD) (* \;
|
||||
"Increment between sizes considered for INFOSTART")
|
||||
(DIGITWIDTH WORD)
|
||||
(TOTALFILES WORD) (* \;
|
||||
"Total number of files, deleted files, pages, deleted pages at the moment")
|
||||
(DELETEDFILES WORD)
|
||||
(TOTALPAGES POINTER)
|
||||
(DELETEDPAGES POINTER)
|
||||
(PAGECOUNT? POINTER) (* \;
|
||||
"True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages")
|
||||
(COUNTERPOSITIONS POINTER) (* \;
|
||||
"List of pairs (left right) describing regions where the values of the counters are displayed")
|
||||
(COUNTERPAGESTRING POINTER) (* \;
|
||||
"String to print after file/page count")
|
||||
(OVERFLOWWIDTHS POINTER) (* \;
|
||||
"List of (xpos occurrences) describing files whose names exceed default INFOSTART")
|
||||
(INFOMENUCHOICES POINTER) (* \;
|
||||
"Selections user has made in Info window, not necessarily the info currently displayed")
|
||||
(UPDATEPROC POINTER) (* \;
|
||||
"Process doing an Update (Recompute)")
|
||||
(DEFAULTDIR POINTER) (* \;
|
||||
"Default directory for destination of Copy/Rename")
|
||||
(SORTATTRIBUTE POINTER) (* \;
|
||||
"Attribute being sorted on, or NIL if by name")
|
||||
(SORTMENU POINTER)
|
||||
(FBLOCK POINTER) (* \;
|
||||
"Lock acquired by filebrowser operations")
|
||||
(SORTINDEX WORD) (* \;
|
||||
"Index (zero-based) in file info of the sort attribute")
|
||||
(SIZEINDEX WORD) (* \; "Index of size attribute")
|
||||
(FBDEPTH POINTER) (* \;
|
||||
"Enumeration depth, or NIL for default")
|
||||
(ABORTWINDOW POINTER) (* \;
|
||||
"Dotted pair of (abortwindow . menuw) for this browser's abort window.")
|
||||
DUMMY))
|
||||
(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) (* \;
|
||||
"True if we don't want separate subdirectory lines -- subdirs then included in name")
|
||||
(NSPATTERN? FLAG) (* \; "True if host is an ns host")
|
||||
(SHOWUNDELETED? FLAG) (* \;
|
||||
"True if counter window should show `Undeleted' rather than `Total' counts")
|
||||
(PATTERNPARSED? FLAG) (* \;
|
||||
"True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid")
|
||||
(SORTBYDATE FLAG) (* \;
|
||||
"True if SORTATTRIBUTE is one of the date attributes")
|
||||
(FBREADY FLAG) (* \; "False while FB is enumerating.")
|
||||
(ABORTING FLAG) (* \;
|
||||
"True if enumeration is being aborted")
|
||||
(FIXEDTITLE FLAG) (* \; "True if caller supplied title")
|
||||
(FBCOMPUTEDDEPTH BYTE) (* \;
|
||||
"Depth at the time we enumerated directory (zero for infinite)")
|
||||
(FBDISPLAYEDDEPTH BYTE) (* \;
|
||||
"Depth we are currently displaying (zero for infinite)")
|
||||
(TABLEBROWSER POINTER) (* \;
|
||||
"Pointer to TABLEBROWSER object controlling the browser")
|
||||
(BROWSERWINDOW POINTER) (* \; "Main window")
|
||||
(COUNTERWINDOW POINTER) (* \;
|
||||
"Window that counts files, pages, deletions")
|
||||
(HEADINGWINDOW POINTER) (* \;
|
||||
"Window with headings for browser columns")
|
||||
(INFOMENUW POINTER) (* \;
|
||||
"Window containing choices for info to be displayed, or NIL if none yet")
|
||||
(PROMPTWINDOW POINTER) (* \; "GETPROMPTWINDOW BROWSERWINDOW")
|
||||
(INFODISPLAYED POINTER) (* \;
|
||||
"List of attribute specs to be displayed")
|
||||
(PATTERN POINTER) (* \;
|
||||
"Directory pattern being enumerated")
|
||||
(PREPAREDPATTERN POINTER) (* \; "DIRECTORY.MATCH.SETUP of same")
|
||||
(SEEWINDOW POINTER) (* \;
|
||||
"Primary window used by FAST SEE command")
|
||||
(BROWSERFONT POINTER) (* \; "Font of BROWSERWINDOW")
|
||||
(SORTBY POINTER) (* \;
|
||||
"Sorting function or NIL for default sort")
|
||||
(NAMESTART WORD) (* \;
|
||||
"Index of first character in file name beyond the common prefix shared by all")
|
||||
(DIRECTORYSTART WORD) (* \;
|
||||
"Index of first character of directory in file names")
|
||||
(INFOSTART WORD) (* \;
|
||||
"X position in browser where first col of info is displayed")
|
||||
(NAMEOVERHEAD WORD) (* \;
|
||||
"This plus width of name gives is how much to allow before INFOSTART")
|
||||
(OVERFLOWSPACING WORD) (* \;
|
||||
"Increment between sizes considered for INFOSTART")
|
||||
(DIGITWIDTH WORD)
|
||||
(TOTALFILES WORD) (* \;
|
||||
"Total number of files, deleted files, pages, deleted pages at the moment")
|
||||
(DELETEDFILES WORD)
|
||||
(TOTALPAGES POINTER)
|
||||
(DELETEDPAGES POINTER)
|
||||
(PAGECOUNT? POINTER) (* \;
|
||||
"True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages")
|
||||
(COUNTERPOSITIONS POINTER) (* \;
|
||||
"List of pairs (left right) describing regions where the values of the counters are displayed")
|
||||
(COUNTERPAGESTRING POINTER) (* \;
|
||||
"String to print after file/page count")
|
||||
(OVERFLOWWIDTHS POINTER) (* \;
|
||||
"List of (xpos occurrences) describing files whose names exceed default INFOSTART")
|
||||
(INFOMENUCHOICES POINTER) (* \;
|
||||
"Selections user has made in Info window, not necessarily the info currently displayed")
|
||||
(UPDATEPROC POINTER) (* \;
|
||||
"Process doing an Update (Recompute)")
|
||||
(DEFAULTDIR POINTER) (* \;
|
||||
"Default directory for destination of Copy/Rename")
|
||||
(SORTATTRIBUTE POINTER) (* \;
|
||||
"Attribute being sorted on, or NIL if by name")
|
||||
(SORTMENU POINTER)
|
||||
(FBLOCK POINTER) (* \;
|
||||
"Lock acquired by filebrowser operations")
|
||||
(SORTINDEX WORD) (* \;
|
||||
"Index (zero-based) in file info of the sort attribute")
|
||||
(SIZEINDEX WORD) (* \; "Index of size attribute")
|
||||
(FBDEPTH POINTER) (* \;
|
||||
"Enumeration depth, or NIL for default")
|
||||
(ABORTWINDOW POINTER) (* \;
|
||||
"Dotted pair of (abortwindow . menuw) for this browser's abort window.")
|
||||
DUMMY))
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'FBFILEDATA
|
||||
@@ -4065,25 +4059,24 @@ then click Recompute"))))
|
||||
(DECLARE\: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS NULL.VERSIONP MACRO ((V)
|
||||
(EQ V 0)))
|
||||
(EQ V 0)))
|
||||
|
||||
(PUTPROPS NULL.DIRECTORYP MACRO ((FILEDATA)
|
||||
(EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA)
|
||||
0)))
|
||||
(EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA)
|
||||
0)))
|
||||
|
||||
(PUTPROPS EQ.DIRECTORYP MACRO (OPENLAMBDA (FD1 FD2)
|
||||
(STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of|
|
||||
FD1)
|
||||
(|fetch| (FBFILEDATA FILENAME) |of| FD2)
|
||||
:END1
|
||||
(|fetch| (FBFILEDATA SUBDIREND) |of| FD1)
|
||||
:END2
|
||||
(|fetch| (FBFILEDATA SUBDIREND) |of| FD2))))
|
||||
(STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of| FD1)
|
||||
(|fetch| (FBFILEDATA FILENAME) |of| FD2)
|
||||
:END1
|
||||
(|fetch| (FBFILEDATA SUBDIREND) |of| FD1)
|
||||
:END2
|
||||
(|fetch| (FBFILEDATA SUBDIREND) |of| FD2))))
|
||||
|
||||
(PUTPROPS NULL.FIELDP MACRO (OPENLAMBDA (STR)
|
||||
(OR (NULL STR)
|
||||
(EQ (NCHARS STR)
|
||||
0))))
|
||||
(OR (NULL STR)
|
||||
(EQ (NCHARS STR)
|
||||
0))))
|
||||
)
|
||||
|
||||
(DECLARE\: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -4176,67 +4169,67 @@ then click Recompute"))))
|
||||
(ADDTOVAR SYSTEMRECLST
|
||||
|
||||
(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG)
|
||||
(NSPATTERN? FLAG)
|
||||
(SHOWUNDELETED? FLAG)
|
||||
(PATTERNPARSED? FLAG)
|
||||
(SORTBYDATE FLAG)
|
||||
(FBREADY FLAG)
|
||||
(ABORTING FLAG)
|
||||
(FIXEDTITLE FLAG)
|
||||
(FBCOMPUTEDDEPTH BYTE)
|
||||
(FBDISPLAYEDDEPTH BYTE)
|
||||
(TABLEBROWSER POINTER)
|
||||
(BROWSERWINDOW POINTER)
|
||||
(COUNTERWINDOW POINTER)
|
||||
(HEADINGWINDOW POINTER)
|
||||
(INFOMENUW POINTER)
|
||||
(PROMPTWINDOW POINTER)
|
||||
(INFODISPLAYED POINTER)
|
||||
(PATTERN POINTER)
|
||||
(PREPAREDPATTERN POINTER)
|
||||
(SEEWINDOW POINTER)
|
||||
(BROWSERFONT POINTER)
|
||||
(SORTBY POINTER)
|
||||
(NAMESTART WORD)
|
||||
(DIRECTORYSTART WORD)
|
||||
(INFOSTART WORD)
|
||||
(NAMEOVERHEAD WORD)
|
||||
(OVERFLOWSPACING WORD)
|
||||
(DIGITWIDTH WORD)
|
||||
(TOTALFILES WORD)
|
||||
(DELETEDFILES WORD)
|
||||
(TOTALPAGES POINTER)
|
||||
(DELETEDPAGES POINTER)
|
||||
(PAGECOUNT? POINTER)
|
||||
(COUNTERPOSITIONS POINTER)
|
||||
(COUNTERPAGESTRING POINTER)
|
||||
(OVERFLOWWIDTHS POINTER)
|
||||
(INFOMENUCHOICES POINTER)
|
||||
(UPDATEPROC POINTER)
|
||||
(DEFAULTDIR POINTER)
|
||||
(SORTATTRIBUTE POINTER)
|
||||
(SORTMENU POINTER)
|
||||
(FBLOCK POINTER)
|
||||
(SORTINDEX WORD)
|
||||
(SIZEINDEX WORD)
|
||||
(FBDEPTH POINTER)
|
||||
(ABORTWINDOW POINTER)
|
||||
DUMMY))
|
||||
(NSPATTERN? FLAG)
|
||||
(SHOWUNDELETED? FLAG)
|
||||
(PATTERNPARSED? FLAG)
|
||||
(SORTBYDATE FLAG)
|
||||
(FBREADY FLAG)
|
||||
(ABORTING FLAG)
|
||||
(FIXEDTITLE FLAG)
|
||||
(FBCOMPUTEDDEPTH BYTE)
|
||||
(FBDISPLAYEDDEPTH BYTE)
|
||||
(TABLEBROWSER POINTER)
|
||||
(BROWSERWINDOW POINTER)
|
||||
(COUNTERWINDOW POINTER)
|
||||
(HEADINGWINDOW POINTER)
|
||||
(INFOMENUW POINTER)
|
||||
(PROMPTWINDOW POINTER)
|
||||
(INFODISPLAYED POINTER)
|
||||
(PATTERN POINTER)
|
||||
(PREPAREDPATTERN POINTER)
|
||||
(SEEWINDOW POINTER)
|
||||
(BROWSERFONT POINTER)
|
||||
(SORTBY POINTER)
|
||||
(NAMESTART WORD)
|
||||
(DIRECTORYSTART WORD)
|
||||
(INFOSTART WORD)
|
||||
(NAMEOVERHEAD WORD)
|
||||
(OVERFLOWSPACING WORD)
|
||||
(DIGITWIDTH WORD)
|
||||
(TOTALFILES WORD)
|
||||
(DELETEDFILES WORD)
|
||||
(TOTALPAGES POINTER)
|
||||
(DELETEDPAGES POINTER)
|
||||
(PAGECOUNT? POINTER)
|
||||
(COUNTERPOSITIONS POINTER)
|
||||
(COUNTERPAGESTRING POINTER)
|
||||
(OVERFLOWWIDTHS POINTER)
|
||||
(INFOMENUCHOICES POINTER)
|
||||
(UPDATEPROC POINTER)
|
||||
(DEFAULTDIR POINTER)
|
||||
(SORTATTRIBUTE POINTER)
|
||||
(SORTMENU POINTER)
|
||||
(FBLOCK POINTER)
|
||||
(SORTINDEX WORD)
|
||||
(SIZEINDEX WORD)
|
||||
(FBDEPTH POINTER)
|
||||
(ABORTWINDOW POINTER)
|
||||
DUMMY))
|
||||
|
||||
(DATATYPE FBFILEDATA ((FILENAME POINTER)
|
||||
(FILEINFO POINTER)
|
||||
(VERSIONLESSNAME POINTER)
|
||||
(DIRECTORYP FLAG)
|
||||
(HASDIRPREFIX FLAG)
|
||||
(DIRECTORYFILEP FLAG)
|
||||
(SIZE POINTER)
|
||||
(FILEDEPTH BYTE)
|
||||
(SORTVALUE POINTER)
|
||||
(SUBDIREND WORD)
|
||||
(STARTOFPNAME WORD)
|
||||
(VERSION WORD)
|
||||
(STARTOFNAME WORD)
|
||||
DUMMY))
|
||||
(FILEINFO POINTER)
|
||||
(VERSIONLESSNAME POINTER)
|
||||
(DIRECTORYP FLAG)
|
||||
(HASDIRPREFIX FLAG)
|
||||
(DIRECTORYFILEP FLAG)
|
||||
(SIZE POINTER)
|
||||
(FILEDEPTH BYTE)
|
||||
(SORTVALUE POINTER)
|
||||
(SUBDIREND WORD)
|
||||
(STARTOFPNAME WORD)
|
||||
(VERSION WORD)
|
||||
(STARTOFNAME WORD)
|
||||
DUMMY))
|
||||
)
|
||||
(DECLARE\: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
@@ -4244,10 +4237,10 @@ then click Recompute"))))
|
||||
|
||||
|
||||
(ADDTOVAR *ATTACHED-WINDOW-COMMAND-SYNONYMS* (HARDCOPYIMAGEW.TOFILE . HARDCOPYIMAGEW)
|
||||
(HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW))
|
||||
(HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW))
|
||||
|
||||
(ADDTOVAR |BackgroundMenuCommands| ("FileBrowser" '(FILEBROWSER)
|
||||
"Opens a filebrowser window; prompts for pattern"))
|
||||
"Opens a filebrowser window; prompts for pattern"))
|
||||
|
||||
|
||||
(RPAQQ |BackgroundMenu| NIL)
|
||||
@@ -4263,51 +4256,51 @@ then click Recompute"))))
|
||||
(PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990
|
||||
1991 1993 1994 1999 2000 2001 2021))
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (32602 55483 (FB 32612 . 33747) (FB.COPYBINARYCOMMAND 33749 . 34095) (FB.COPYTEXTCOMMAND
|
||||
34097 . 34439) (FILEBROWSER 34441 . 47547) (FB.TABLEBROWSER 47549 . 47766) (FB.SELECTEDFILES 47768 .
|
||||
48405) (FB.FETCHFILENAME 48407 . 48799) (FB.DIRECTORYP 48801 . 49195) (FB.PROMPTWPRINT 49197 . 50243)
|
||||
(FB.PROMPTW.FORMAT 50245 . 50982) (FB.PROMPTFORINPUT 50984 . 53236) (FB.YES-OR-NO-P 53238 . 54272) (
|
||||
FB.ALLOW.ABORT 54274 . 55128) (\\FB.HARDCOPY.TOFILE.EXTENSION 55130 . 55481)) (55507 56460 (FB.STARTUP
|
||||
55517 . 56032) (FB.MAKERIGIDWINDOW 56034 . 56458)) (56461 61833 (FB.PRINTFN 56471 . 61624) (FB.COPYFN
|
||||
61626 . 61831)) (61883 68223 (FB.MENU.WHENSELECTEDFN 61893 . 62251) (FB.COMMANDSELECTEDFN 62253 .
|
||||
63792) (FB.SUBITEMP 63794 . 64395) (FB.MAKE.BROWSER.BUSY 64397 . 65201) (FB.FINISH.COMMAND 65203 .
|
||||
67234) (FB.HANDLE.ABORT.BUTTON 67236 . 68221)) (68224 73740 (FB.DELETECOMMAND 68234 . 68515) (
|
||||
FB.DELVERCOMMAND 68517 . 71710) (FB.IS.NOT.SUBDIRECTORY.ITEM 71712 . 71893) (FB.DELVER.FILES 71895 .
|
||||
72984) (FB.DELETE.FILE 72986 . 73738)) (73741 75066 (FB.UNDELETECOMMAND 73751 . 74036) (
|
||||
FB.UNDELETEALLCOMMAND 74038 . 74317) (FB.UNDELETE.FILE 74319 . 75064)) (75067 99248 (FB.COPYCOMMAND
|
||||
75077 . 75346) (FB.RENAMECOMMAND 75348 . 75623) (FB.COPY/RENAME.COMMAND 75625 . 76548) (
|
||||
FB.COPY/RENAME.ONE 76550 . 78872) (FB.COPY/RENAME.MANY 78874 . 85094) (FB.MERGE.DIRECTORIES 85096 .
|
||||
85514) (FB.GREATEST.PREFIX 85516 . 86872) (FB.MAYBE.INSERT.FILE 86874 . 94314) (FB.GET.NEW.FILE.SPEC
|
||||
94316 . 98147) (FB.CANONICAL.DIRECTORY 98149 . 99246)) (99249 107033 (FB.HARDCOPYCOMMAND 99259 .
|
||||
100389) (FB.HARDCOPY.TOFILE 100391 . 107031)) (107034 117233 (FB.EDITCOMMAND 107044 . 107911) (
|
||||
FB.EDITCOMMAND.ONEFILE 107913 . 111317) (FB.EDITLISPFILE 111319 . 112424) (FB.BROWSECOMMAND 112426 .
|
||||
117231)) (117234 129155 (FB.FASTSEECOMMAND 117244 . 120694) (FB.FASTSEE.ONEFILE 120696 . 123853) (
|
||||
FB.SEEFULLFN 123855 . 127986) (FB.SEEBUTTONFN 127988 . 129153)) (129156 130902 (FB.LOADCOMMAND 129166
|
||||
. 129673) (FB.COMPILECOMMAND 129675 . 130213) (FB.OPERATE.ON.FILES 130215 . 130900)) (130903 179088 (
|
||||
FB.UPDATECOMMAND 130913 . 131138) (FB.FIX-DIRECTORY-DATES 131140 . 132163) (FB.MAYBE.EXPUNGE 132165 .
|
||||
133226) (FB.UPDATEBROWSERITEMS 133228 . 146443) (FB.DATE 146445 . 147086) (FB.ADJUST.DATE.WIDTH 147088
|
||||
. 150056) (FB.SET.BROWSER.TITLE 150058 . 151060) (FB.MAYBE.WIDEN.NAMES 151062 . 153181) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 153183 . 154547) (FB.CREATE.FILEBUCKET 154549 . 161769) (
|
||||
FB.CHECK.NAME.LENGTH 161771 . 164192) (FB.ADD.FILEGROUP 164194 . 165721) (FB.INSERT.DIRECTORY 165723
|
||||
. 165961) (FB.MAKE.SUBDIRECTORY.ITEM 165963 . 167372) (FB.ADD.FILE 167374 . 167987) (FB.INSERT.FILE
|
||||
167989 . 171401) (FB.ANALYZE.PATTERN 171403 . 176667) (FB.CANONICALIZE.PATTERN 176669 . 177981) (
|
||||
FB.GETALLFILEINFO 177983 . 179086)) (179089 187248 (FB.SORT.VERSIONS 179099 . 181870) (
|
||||
FB.DECREASING.VERSION 181872 . 182541) (FB.INCREASING.VERSION 182543 . 183164) (
|
||||
FB.NAMES.DECREASING.VERSION 183166 . 184201) (FB.NAMES.INCREASING.VERSION 184203 . 185200) (
|
||||
FB.DECREASING.NUMERIC.ATTR 185202 . 185882) (FB.INCREASING.NUMERIC.ATTR 185884 . 186558) (
|
||||
FB.ALPHABETIC.ATTR 186560 . 187246)) (187249 197091 (FB.SORTCOMMAND 187259 . 194089) (
|
||||
FB.INSERT.SUBDIRECTORIES 194091 . 194888) (FB.GET.SORT.MENU 194890 . 197089)) (197092 213313 (
|
||||
FB.EXPUNGECOMMAND 197102 . 199687) (FB.NEWPATTERNCOMMAND 199689 . 200087) (FB.NEWINFOCOMMAND 200089 .
|
||||
202921) (FB.DEPTHCOMMAND 202923 . 204698) (FB.SHAPECOMMAND 204700 . 208042) (FB.REMOVE.FILE 208044 .
|
||||
209865) (FB.COUNT.FILE.CHANGE 209867 . 211312) (FB.SETNEWPATTERN 211314 . 212484) (FB.GET.NEWPATTERN
|
||||
212486 . 213070) (FB.OPTIONSCOMMAND 213072 . 213311)) (213348 214401 (FB.GETWINDOW 213358 . 214399)) (
|
||||
214402 215414 (FB.INFOMENU.SHADEINITIALSELECTIONS 214412 . 215059) (FB.INFO.ITEM.NAMED 215061 . 215412
|
||||
)) (215415 224947 (FB.MAKECOUNTERWINDOW 215425 . 216953) (FB.COUNTERW.REDISPLAYFN 216955 . 217542) (
|
||||
FB.UPDATE.COUNTERS 217544 . 219616) (FB.DISPLAY.COUNTERS 219618 . 224678) (FB.COUNTER.STRING 224680 .
|
||||
224945)) (224948 229657 (FB.MAKEHEADINGWINDOW 224958 . 226572) (FB.HEADINGW.REDISPLAYFN 226574 .
|
||||
226840) (FB.HEADINGW.RESHAPEFN 226842 . 227218) (FB.HEADINGW.DISPLAY 227220 . 229655)) (229658 233841
|
||||
(FB.ICONFN 229668 . 230015) (FB.INFOMENU.WHENSELECTEDFN 230017 . 230747) (FB.CLOSEFN 230749 . 231952)
|
||||
(FB.EXPUNGE?.MENU 231954 . 232366) (FB.AFTERCLOSEFN 232368 . 232729) (FB.CLOSE&EXPUNGE 232731 . 233839
|
||||
)) (233842 245900 (FB.HARDCOPY.DIRECTORY 233852 . 244209) (FB.HARDCOPY.PRINT.TITLE 244211 . 244537) (
|
||||
FB.HARDCOPY.MAXWIDTH 244539 . 245898)))))
|
||||
(FILEMAP (NIL (32375 55256 (FB 32385 . 33520) (FB.COPYBINARYCOMMAND 33522 . 33868) (FB.COPYTEXTCOMMAND
|
||||
33870 . 34212) (FILEBROWSER 34214 . 47320) (FB.TABLEBROWSER 47322 . 47539) (FB.SELECTEDFILES 47541 .
|
||||
48178) (FB.FETCHFILENAME 48180 . 48572) (FB.DIRECTORYP 48574 . 48968) (FB.PROMPTWPRINT 48970 . 50016)
|
||||
(FB.PROMPTW.FORMAT 50018 . 50755) (FB.PROMPTFORINPUT 50757 . 53009) (FB.YES-OR-NO-P 53011 . 54045) (
|
||||
FB.ALLOW.ABORT 54047 . 54901) (\\FB.HARDCOPY.TOFILE.EXTENSION 54903 . 55254)) (55280 56233 (FB.STARTUP
|
||||
55290 . 55805) (FB.MAKERIGIDWINDOW 55807 . 56231)) (56234 61606 (FB.PRINTFN 56244 . 61397) (FB.COPYFN
|
||||
61399 . 61604)) (61656 67996 (FB.MENU.WHENSELECTEDFN 61666 . 62024) (FB.COMMANDSELECTEDFN 62026 .
|
||||
63565) (FB.SUBITEMP 63567 . 64168) (FB.MAKE.BROWSER.BUSY 64170 . 64974) (FB.FINISH.COMMAND 64976 .
|
||||
67007) (FB.HANDLE.ABORT.BUTTON 67009 . 67994)) (67997 73513 (FB.DELETECOMMAND 68007 . 68288) (
|
||||
FB.DELVERCOMMAND 68290 . 71483) (FB.IS.NOT.SUBDIRECTORY.ITEM 71485 . 71666) (FB.DELVER.FILES 71668 .
|
||||
72757) (FB.DELETE.FILE 72759 . 73511)) (73514 74839 (FB.UNDELETECOMMAND 73524 . 73809) (
|
||||
FB.UNDELETEALLCOMMAND 73811 . 74090) (FB.UNDELETE.FILE 74092 . 74837)) (74840 99021 (FB.COPYCOMMAND
|
||||
74850 . 75119) (FB.RENAMECOMMAND 75121 . 75396) (FB.COPY/RENAME.COMMAND 75398 . 76321) (
|
||||
FB.COPY/RENAME.ONE 76323 . 78645) (FB.COPY/RENAME.MANY 78647 . 84867) (FB.MERGE.DIRECTORIES 84869 .
|
||||
85287) (FB.GREATEST.PREFIX 85289 . 86645) (FB.MAYBE.INSERT.FILE 86647 . 94087) (FB.GET.NEW.FILE.SPEC
|
||||
94089 . 97920) (FB.CANONICAL.DIRECTORY 97922 . 99019)) (99022 106806 (FB.HARDCOPYCOMMAND 99032 .
|
||||
100162) (FB.HARDCOPY.TOFILE 100164 . 106804)) (106807 117006 (FB.EDITCOMMAND 106817 . 107684) (
|
||||
FB.EDITCOMMAND.ONEFILE 107686 . 111090) (FB.EDITLISPFILE 111092 . 112197) (FB.BROWSECOMMAND 112199 .
|
||||
117004)) (117007 128928 (FB.FASTSEECOMMAND 117017 . 120467) (FB.FASTSEE.ONEFILE 120469 . 123626) (
|
||||
FB.SEEFULLFN 123628 . 127759) (FB.SEEBUTTONFN 127761 . 128926)) (128929 130675 (FB.LOADCOMMAND 128939
|
||||
. 129446) (FB.COMPILECOMMAND 129448 . 129986) (FB.OPERATE.ON.FILES 129988 . 130673)) (130676 178861 (
|
||||
FB.UPDATECOMMAND 130686 . 130911) (FB.FIX-DIRECTORY-DATES 130913 . 131936) (FB.MAYBE.EXPUNGE 131938 .
|
||||
132999) (FB.UPDATEBROWSERITEMS 133001 . 146216) (FB.DATE 146218 . 146859) (FB.ADJUST.DATE.WIDTH 146861
|
||||
. 149829) (FB.SET.BROWSER.TITLE 149831 . 150833) (FB.MAYBE.WIDEN.NAMES 150835 . 152954) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 152956 . 154320) (FB.CREATE.FILEBUCKET 154322 . 161542) (
|
||||
FB.CHECK.NAME.LENGTH 161544 . 163965) (FB.ADD.FILEGROUP 163967 . 165494) (FB.INSERT.DIRECTORY 165496
|
||||
. 165734) (FB.MAKE.SUBDIRECTORY.ITEM 165736 . 167145) (FB.ADD.FILE 167147 . 167760) (FB.INSERT.FILE
|
||||
167762 . 171174) (FB.ANALYZE.PATTERN 171176 . 176440) (FB.CANONICALIZE.PATTERN 176442 . 177754) (
|
||||
FB.GETALLFILEINFO 177756 . 178859)) (178862 187021 (FB.SORT.VERSIONS 178872 . 181643) (
|
||||
FB.DECREASING.VERSION 181645 . 182314) (FB.INCREASING.VERSION 182316 . 182937) (
|
||||
FB.NAMES.DECREASING.VERSION 182939 . 183974) (FB.NAMES.INCREASING.VERSION 183976 . 184973) (
|
||||
FB.DECREASING.NUMERIC.ATTR 184975 . 185655) (FB.INCREASING.NUMERIC.ATTR 185657 . 186331) (
|
||||
FB.ALPHABETIC.ATTR 186333 . 187019)) (187022 196864 (FB.SORTCOMMAND 187032 . 193862) (
|
||||
FB.INSERT.SUBDIRECTORIES 193864 . 194661) (FB.GET.SORT.MENU 194663 . 196862)) (196865 213086 (
|
||||
FB.EXPUNGECOMMAND 196875 . 199460) (FB.NEWPATTERNCOMMAND 199462 . 199860) (FB.NEWINFOCOMMAND 199862 .
|
||||
202694) (FB.DEPTHCOMMAND 202696 . 204471) (FB.SHAPECOMMAND 204473 . 207815) (FB.REMOVE.FILE 207817 .
|
||||
209638) (FB.COUNT.FILE.CHANGE 209640 . 211085) (FB.SETNEWPATTERN 211087 . 212257) (FB.GET.NEWPATTERN
|
||||
212259 . 212843) (FB.OPTIONSCOMMAND 212845 . 213084)) (213121 214174 (FB.GETWINDOW 213131 . 214172)) (
|
||||
214175 215187 (FB.INFOMENU.SHADEINITIALSELECTIONS 214185 . 214832) (FB.INFO.ITEM.NAMED 214834 . 215185
|
||||
)) (215188 224720 (FB.MAKECOUNTERWINDOW 215198 . 216726) (FB.COUNTERW.REDISPLAYFN 216728 . 217315) (
|
||||
FB.UPDATE.COUNTERS 217317 . 219389) (FB.DISPLAY.COUNTERS 219391 . 224451) (FB.COUNTER.STRING 224453 .
|
||||
224718)) (224721 229430 (FB.MAKEHEADINGWINDOW 224731 . 226345) (FB.HEADINGW.REDISPLAYFN 226347 .
|
||||
226613) (FB.HEADINGW.RESHAPEFN 226615 . 226991) (FB.HEADINGW.DISPLAY 226993 . 229428)) (229431 233614
|
||||
(FB.ICONFN 229441 . 229788) (FB.INFOMENU.WHENSELECTEDFN 229790 . 230520) (FB.CLOSEFN 230522 . 231725)
|
||||
(FB.EXPUNGE?.MENU 231727 . 232139) (FB.AFTERCLOSEFN 232141 . 232502) (FB.CLOSE&EXPUNGE 232504 . 233612
|
||||
)) (233615 245673 (FB.HARDCOPY.DIRECTORY 233625 . 243982) (FB.HARDCOPY.PRINT.TITLE 243984 . 244310) (
|
||||
FB.HARDCOPY.MAXWIDTH 244312 . 245671)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,15 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 8-Oct-92 16:50:21" "{Pele:mv:envos}<LispCore>library>HRULE.;11" 23325
|
||||
|
||||
changes to%: (FNS VRULE.CREATE VRULE.GETFN2)
|
||||
(FILECREATED "25-Jul-2022 15:09:26" {DSK}<Users>kaplan>Local>medley3.5>working-medley>library>HRULE.;4 23801
|
||||
|
||||
previous date%: "29-Sep-92 21:06:13" "{Pele:mv:envos}<LispCore>library>HRULE.;10")
|
||||
:CHANGES-TO (VARS HRULECOMS)
|
||||
|
||||
:PREVIOUS-DATE "25-Jul-2022 15:07:00"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>HRULE.;3)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1985, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1985, 1990-1992 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT HRULECOMS)
|
||||
@@ -33,7 +35,10 @@ Copyright (c) 1985, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights r
|
||||
(FUNCTION NILL)
|
||||
(FUNCTION NILL)
|
||||
(FUNCTION HRULE.WHENOPERATEDONFN)
|
||||
(FUNCTION NILL]
|
||||
(FUNCTION (LAMBDA (OBJ)
|
||||
(CONCAT (CHARACTER (CHARCODE EOL))
|
||||
(ALLOCSTRING 20 "-")
|
||||
(CHARACTER (CHARCODE EOL]
|
||||
[COMS
|
||||
(* ;; "Vertical rules")
|
||||
|
||||
@@ -200,11 +205,11 @@ Copyright (c) 1985, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights r
|
||||
|
||||
(RPAQ? HRULE.DEFAULT.WIDTH 2)
|
||||
|
||||
(RPAQQ HRULEFNS (HRULE.CREATE HRULE.DISPLAYFN HRULE.GETFN HRULE.IMAGEBOXFN HRULE.PUTFN
|
||||
HRULE.COPYFN HRULE.WHENOPERATEDONFN))
|
||||
(RPAQQ HRULEFNS (HRULE.CREATE HRULE.DISPLAYFN HRULE.GETFN HRULE.IMAGEBOXFN HRULE.PUTFN HRULE.COPYFN
|
||||
HRULE.WHENOPERATEDONFN))
|
||||
|
||||
(RPAQ HRULE.IMAGEFNS
|
||||
(IMAGEFNSCREATE (FUNCTION HRULE.DISPLAYFN)
|
||||
[IMAGEFNSCREATE (FUNCTION HRULE.DISPLAYFN)
|
||||
(FUNCTION HRULE.IMAGEBOXFN)
|
||||
(FUNCTION HRULE.PUTFN)
|
||||
(FUNCTION HRULE.GETFN)
|
||||
@@ -216,7 +221,10 @@ Copyright (c) 1985, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights r
|
||||
(FUNCTION NILL)
|
||||
(FUNCTION NILL)
|
||||
(FUNCTION HRULE.WHENOPERATEDONFN)
|
||||
(FUNCTION NILL)))
|
||||
(FUNCTION (LAMBDA (OBJ)
|
||||
(CONCAT (CHARACTER (CHARCODE EOL))
|
||||
(ALLOCSTRING 20 "-")
|
||||
(CHARACTER (CHARCODE EOL])
|
||||
|
||||
|
||||
|
||||
@@ -502,12 +510,12 @@ Copyright (c) 1985, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights r
|
||||
(FUNCTION NILL)))
|
||||
(PUTPROPS HRULE COPYRIGHT ("Venue & Xerox Corporation" 1985 1990 1991 1992))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4225 10404 (HRULE.CREATE 4235 . 5657) (HRULE.DISPLAYFN 5659 . 8228) (HRULE.GETFN 8230
|
||||
. 8550) (HRULE.IMAGEBOXFN 8552 . 9354) (HRULE.PUTFN 9356 . 9734) (HRULE.COPYFN 9736 . 10200) (
|
||||
HRULE.WHENOPERATEDONFN 10202 . 10402)) (11107 17312 (VRULE.CREATE 11117 . 13116) (VRULE.DISPLAYFN
|
||||
13118 . 15312) (VRULE.GETFN 15314 . 15535) (VRULE.GETFN2 15537 . 15873) (VRULE.IMAGEBOXFN 15875 .
|
||||
16303) (VRULE.PUTFN 16305 . 16703) (VRULE.COPYFN 16705 . 17108) (VRULE.WHENOPERATEDONFN 17110 . 17310)
|
||||
) (17951 22601 (CROPMARK.CREATE 17961 . 19228) (CROPMARK.DISPLAYFN 19230 . 20730) (CROPMARK.GETFN
|
||||
20732 . 21026) (CROPMARK.IMAGEBOXFN 21028 . 21729) (CROPMARK.PUTFN 21731 . 22009) (CROPMARK.COPYFN
|
||||
22011 . 22394) (CROPMARK.WHENOPERATEDONFN 22396 . 22599)))))
|
||||
(FILEMAP (NIL (4512 10691 (HRULE.CREATE 4522 . 5944) (HRULE.DISPLAYFN 5946 . 8515) (HRULE.GETFN 8517
|
||||
. 8837) (HRULE.IMAGEBOXFN 8839 . 9641) (HRULE.PUTFN 9643 . 10021) (HRULE.COPYFN 10023 . 10487) (
|
||||
HRULE.WHENOPERATEDONFN 10489 . 10689)) (11583 17788 (VRULE.CREATE 11593 . 13592) (VRULE.DISPLAYFN
|
||||
13594 . 15788) (VRULE.GETFN 15790 . 16011) (VRULE.GETFN2 16013 . 16349) (VRULE.IMAGEBOXFN 16351 .
|
||||
16779) (VRULE.PUTFN 16781 . 17179) (VRULE.COPYFN 17181 . 17584) (VRULE.WHENOPERATEDONFN 17586 . 17786)
|
||||
) (18427 23077 (CROPMARK.CREATE 18437 . 19704) (CROPMARK.DISPLAYFN 19706 . 21206) (CROPMARK.GETFN
|
||||
21208 . 21502) (CROPMARK.IMAGEBOXFN 21504 . 22205) (CROPMARK.PUTFN 22207 . 22485) (CROPMARK.COPYFN
|
||||
22487 . 22870) (CROPMARK.WHENOPERATEDONFN 22872 . 23075)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
313
library/SKETCH
313
library/SKETCH
@@ -1,11 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 1-Feb-2022 09:17:12" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>SKETCH.;2 490756
|
||||
(FILECREATED " 4-Aug-2022 09:58:03" {DSK}<home>larry>medley>library>SKETCH.;2 491064
|
||||
|
||||
:CHANGES-TO (FNS SKETCH.PUT)
|
||||
:CHANGES-TO (FNS SKETCH.COMMANDMENU.ITEMS)
|
||||
|
||||
:PREVIOUS-DATE "21-Jan-93 11:59:03"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>SKETCH.;1)
|
||||
:PREVIOUS-DATE " 1-Feb-2022 09:17:12" {DSK}<home>larry>medley>library>SKETCH.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -1358,10 +1357,9 @@ This will be slow for arcs and curves."]
|
||||
TITLE _ TITLE])
|
||||
|
||||
(SKETCH.COMMANDMENU.ITEMS
|
||||
[LAMBDA (ADDFIXITEM ELEMENTTYPES VIEWER) (* rrb "24-Sep-86 18:11")
|
||||
|
||||
(* returns a list of the items that are in the sketch command menu.)
|
||||
|
||||
[LAMBDA (ADDFIXITEM ELEMENTTYPES VIEWER) (* rrb "24-Sep-86 18:11")
|
||||
(* returns a list of the items that
|
||||
are in the sketch command menu.)
|
||||
(APPEND '[(Delete SK.DELETE.ELT "Deletes one or more elements from the sketch."
|
||||
(SUBITEMS ("Delete element(s)" SK.DELETE.ELT
|
||||
"Deletes one or more elements from the sketch.")
|
||||
@@ -1388,15 +1386,18 @@ This will be slow for arcs and curves."]
|
||||
(Combined SK.SET.MOVE.MODE.COMBINED
|
||||
"MOVE command will move points if a single point is clicked; elements otherwise"
|
||||
]
|
||||
'[(Copy SK.COPY.ELT "Copies a piece of the sketch." (SUBITEMS ("Copy elements" SK.COPY.ELT
|
||||
'[(Copy SK.COPY.ELT "Copies a piece of the sketch." (SUBITEMS ("Copy elements" SK.COPY.ELT
|
||||
|
||||
"copies one or more elements of the sketch."
|
||||
)
|
||||
("Copy w/2 pt trans"
|
||||
SK.COPY.AND.TWO.PT.TRANSFORM.ELTS
|
||||
SK.COPY.AND.TWO.PT.TRANSFORM.ELTS
|
||||
|
||||
"Copies one or more sketch elements with a two point transformation."
|
||||
)
|
||||
("Copy w/3 pt trans"
|
||||
SK.COPY.AND.THREE.PT.TRANSFORM.ELTS
|
||||
SK.COPY.AND.THREE.PT.TRANSFORM.ELTS
|
||||
|
||||
"Copies one or more sketch elements with a three point transformation."
|
||||
]
|
||||
'[(Align SK.ALIGN.POINTS.LEFT "Aligns a collection of points with the leftmost one."
|
||||
@@ -8763,149 +8764,149 @@ Otherwise, type '^'.")
|
||||
)
|
||||
(PUTPROPS SKETCH COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1992 1993))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (22155 85518 (SKETCH 22165 . 24270) (SKETCH.FROM.A.FILE 24272 . 24587) (SKETCHW.CREATE
|
||||
24589 . 29163) (SKETCH.RESET 29165 . 30687) (SKETCHW.FIG.CHANGED 30689 . 31029) (SK.WINDOW.TITLE 31031
|
||||
. 31418) (EDITSLIDE 31420 . 31826) (EDITSKETCH 31828 . 32152) (SK.PUT.ON.FILE 32154 . 33606) (
|
||||
SK.OUTPUT.FILE.NAME 33608 . 33982) (SKETCH.PUT 33984 . 36882) (SK.GET.FROM.FILE 36884 . 37777) (
|
||||
SK.INCLUDE.FILE 37779 . 40287) (SK.GET.IMAGEOBJ.FROM.FILE 40289 . 42492) (SKETCH.GET 42494 . 42801) (
|
||||
ADD.SKETCH.TO.VIEWER 42803 . 45389) (FILENAMELESSVERSION 45391 . 45667) (SK.ADD.ELEMENTS.TO.SKETCH
|
||||
45669 . 46183) (SKETCH.SET.A.DEFAULT 46185 . 53343) (SK.POPUP.SELECTIONFN 53345 . 53887) (
|
||||
GETSKETCHWREGION 53889 . 54095) (SK.ADD.ELEMENT 54097 . 55676) (SK.ADD.PRIORITY.ELEMENT.TO.SKETCH
|
||||
55678 . 57072) (SK.ELTS.BY.PRIORITY 57074 . 57370) (SK.ORDER.ELEMENTS 57372 . 57639) (
|
||||
SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 57641 . 59135) (SK.ADD.ELEMENTS 59137 . 59661) (
|
||||
SK.CHECK.WHENADDEDFN 59663 . 60393) (SK.APPLY.MENU.COMMAND 60395 . 61193) (SK.DELETE.ELEMENT1 61195 .
|
||||
62773) (SK.MARK.DIRTY 62775 . 63441) (SK.MARK.UNDIRTY 63443 . 63774) (SK.MENU.AND.RETURN.FIELD 63776
|
||||
. 64441) (SKETCH.SET.BRUSH.SHAPE 64443 . 65028) (SKETCH.SET.BRUSH.SIZE 65030 . 65536) (
|
||||
SKETCHW.CLOSEFN 65538 . 67329) (SK.CONFIRM.DESTRUCTION 67331 . 68330) (SKETCHW.OUTFN 68332 . 68596) (
|
||||
SKETCHW.REOPENFN 68598 . 69010) (MAKE.LOCAL.SKETCH 69012 . 69742) (MAP.SKETCHSPEC.INTO.VIEWER 69744 .
|
||||
70954) (SKETCHW.REPAINTFN 70956 . 71784) (SKETCHW.REPAINTFN1 71786 . 72725) (SK.DRAWFIGURE.IF 72727 .
|
||||
73249) (SKETCHW.SCROLLFN 73251 . 77444) (SKETCHW.RESHAPEFN 77446 . 79704) (SK.UPDATE.EVENT.SELECTION
|
||||
79706 . 81761) (LIGHTGRAYWINDOW 81763 . 81926) (SK.ADD.SPACES 81928 . 82674) (SK.SKETCH.MENU 82676 .
|
||||
82998) (SK.CHECK.IMAGEOBJ.WHENDELETEDFN 83000 . 83852) (SK.APPLY.IMAGEOBJ.WHENDELETEDFN 83854 . 84814)
|
||||
(SK.RETURN.TTY 84816 . 85184) (SK.TAKE.TTY 85186 . 85516)) (85572 108565 (SKETCH.COMMANDMENU 85582 .
|
||||
85919) (SKETCH.COMMANDMENU.ITEMS 85921 . 105669) (CREATE.SKETCHW.COMMANDMENU 105671 . 106091) (
|
||||
SKETCHW.SELECTIONFN 106093 . 107196) (SKETCH.MONITORLOCK 107198 . 107669) (SK.EVAL.AS.PROCESS 107671
|
||||
. 108284) (SK.EVAL.WITH.LOCK 108286 . 108563)) (108566 116370 (SK.FIX.MENU 108576 . 109670) (
|
||||
SK.SET.UP.MENUS 109672 . 111973) (SK.INSURE.HAS.MENU 111975 . 112637) (SK.CREATE.STANDARD.MENU 112639
|
||||
. 113084) (SK.ADD.ITEM.TO.MENU 113086 . 113761) (SK.GET.VIEWER.POPUP.MENU 113763 . 115964) (
|
||||
SK.CLEAR.POPUP.MENU 115966 . 116368)) (116426 125248 (SKETCH.CREATE 116436 . 117222) (GETSKETCHPROP
|
||||
117224 . 120281) (PUTSKETCHPROP 120283 . 124215) (CREATE.DEFAULT.SKETCH.CONTEXT 124217 . 125246)) (
|
||||
125414 148310 (SK.COPY.BUTTONEVENTFN 125424 . 136652) (SK.BUTTONEVENT.MARK 136654 . 137037) (
|
||||
SK.BUILD.IMAGEOBJ 137039 . 146954) (SK.BUTTONEVENT.OVERP 146956 . 147579) (SK.BUTTONEVENT.SAME.KEYS
|
||||
147581 . 148308)) (148589 174404 (SK.SEL.AND.CHANGE 148599 . 148891) (SK.CHECK.WHENCHANGEDFN 148893 .
|
||||
149599) (SK.CHECK.PRECHANGEFN 149601 . 150202) (SK.CHANGE.ELT 150204 . 150396) (SK.CHANGE.THING 150398
|
||||
. 151649) (SKETCH.CHANGE.ELEMENTS 151651 . 152834) (SK.APPLY.SINGLE.CHANGEFN 152836 . 153409) (
|
||||
SK.DO.CHANGESPECS 153411 . 155070) (SK.VIEWER.FROM.SKETCH.ARG 155072 . 155514) (SK.DO.CHANGESPEC1
|
||||
155516 . 157391) (SK.CHANGEFN 157393 . 157973) (SK.READCHANGEFN 157975 . 158434) (SK.DEFAULT.CHANGEFN
|
||||
158436 . 160908) (CHANGEABLEFIELDITEMS 160910 . 161557) (SK.APPLY.CHANGE.COMMAND 161559 . 162176) (
|
||||
SK.DO.AND.RECORD.CHANGES 162178 . 163575) (SK.APPLY.CHANGE.COMMAND1 163577 . 165065) (
|
||||
SK.ELEMENTS.CHANGEFN 165067 . 167391) (READ.POINT.TO.ADD 167393 . 168337) (GLOBAL.KNOT.FROM.LOCAL
|
||||
168339 . 168799) (SK.ADD.KNOT.TO.ELEMENT 168801 . 169745) (SK.GROUP.CHANGEFN 169747 . 170959) (
|
||||
SK.GROUP.CHANGEFN1 170961 . 174402)) (174571 188304 (ADD.ELEMENT.TO.SKETCH 174581 . 176287) (
|
||||
ADD.SKETCH.VIEWER 176289 . 176957) (REMOVE.SKETCH.VIEWER 176959 . 177572) (ALL.SKETCH.VIEWERS 177574
|
||||
. 177814) (SKETCH.ALL.VIEWERS 177816 . 178076) (VIEWER.BUCKET 178078 . 178229) (ELT.INSIDE.REGION?
|
||||
178231 . 178558) (ELT.INSIDE.SKWP 178560 . 178851) (SCALE.FROM.SKW 178853 . 179103) (
|
||||
SK.ADDELT.TO.WINDOW 179105 . 179965) (SK.CALC.REGION.VIEWED 179967 . 180345) (SK.DRAWFIGURE 180347 .
|
||||
181636) (SK.DRAWFIGURE1 181638 . 182022) (SK.LOCAL.FROM.GLOBAL 182024 . 183259) (SKETCH.REGION.VIEWED
|
||||
183261 . 185948) (SKETCH.VIEW.FROM.NAME 185950 . 186380) (SK.UPDATE.REGION.VIEWED 186382 . 186774) (
|
||||
SKETCH.ADD.AND.DISPLAY 186776 . 187184) (SKETCH.ADD.AND.DISPLAY1 187186 . 187624) (SK.ADD.ITEM 187626
|
||||
. 187958) (SKETCHW.ADD.INSTANCE 187960 . 188302)) (188345 201533 (SK.SEL.AND.DELETE 188355 . 188743)
|
||||
(SK.ERASE.AND.DELETE.ITEM 188745 . 189164) (REMOVE.ELEMENT.FROM.SKETCH 189166 . 190277) (
|
||||
SK.DELETE.ELEMENT 190279 . 190837) (SK.DELETE.ELEMENT2 190839 . 191500) (SK.DELETE.KNOT 191502 .
|
||||
191793) (SK.SEL.AND.DELETE.KNOT 191795 . 192920) (SK.DELETE.ELEMENT.KNOT 192922 . 196129) (
|
||||
SK.CHECK.WHENDELETEDFN 196131 . 196911) (SK.CHECK.PREEDITFN 196913 . 197397) (
|
||||
SK.CHECK.END.INITIAL.EDIT 197399 . 197933) (SK.CHECK.WHENPOINTDELETEDFN 197935 . 198731) (SK.ERASE.ELT
|
||||
198733 . 199069) (SK.DELETE.ELT 199071 . 199446) (SK.DELETE.ITEM 199448 . 199856) (DELFROMTCONC
|
||||
199858 . 201531)) (201572 215406 (SK.COPY.ELT 201582 . 201952) (SK.SEL.AND.COPY 201954 . 202337) (
|
||||
SK.COPY.ELEMENTS 202339 . 207967) (SK.ADD.COPY.OF.ELEMENTS 207969 . 209736) (
|
||||
SK.GLOBAL.FROM.LOCAL.ELEMENTS 209738 . 209978) (SK.COPY.ITEM 209980 . 210777) (SK.INSERT.SKETCH 210779
|
||||
. 215404)) (215446 245467 (SK.MOVE.ELT 215456 . 215731) (SK.MOVE.ELT.OR.PT 215733 . 216046) (
|
||||
SK.APPLY.DEFAULT.MOVE 216048 . 216482) (SK.SEL.AND.MOVE 216484 . 217031) (SK.MOVE.ELEMENTS 217033 .
|
||||
227905) (SKETCH.MOVE.ELEMENTS 227907 . 229838) (SKETCH.COPY.ELEMENTS 229840 . 231887) (
|
||||
\SKETCH.COPY.ELEMENT 231889 . 232614) (SK.TRANSLATE.ELEMENT 232616 . 233099) (SK.COPY.GLOBAL.ELEMENT
|
||||
233101 . 233312) (SK.MAKE.ELEMENT.MOVE.ARG 233314 . 233934) (SK.MAKE.ELEMENTS.MOVE.ARG 233936 . 234458
|
||||
) (SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 234460 . 235529) (SK.SHOW.FIG.FROM.INFO 235531 . 235899) (
|
||||
SK.MOVE.THING 235901 . 236807) (UPDATE.ELEMENT.IN.SKETCH 236809 . 238864) (SK.UPDATE.ELEMENT 238866 .
|
||||
240425) (SK.UPDATE.ELEMENTS 240427 . 241146) (SK.UPDATE.ELEMENT1 241148 . 245048) (
|
||||
SK.MOVE.ELEMENT.POINT 245050 . 245465)) (245530 267819 (SK.MOVE.POINTS 245540 . 245827) (
|
||||
SK.SEL.AND.MOVE.POINTS 245829 . 246134) (SK.DO.MOVE.ELEMENT.POINTS 246136 . 254793) (
|
||||
SK.MOVE.ITEM.POINTS 254795 . 256466) (SK.TRANSLATEPTSFN 256468 . 256852) (SK.TRANSLATE.POINTS 256854
|
||||
. 257755) (SK.SELECT.MULTIPLE.POINTS 257757 . 263397) (SK.CONTROL.POINTS.IN.REGION 263399 . 264820) (
|
||||
SK.ADD.PT.SELECTION 264822 . 265286) (SK.REMOVE.PT.SELECTION 265288 . 265905) (SK.ADD.POINT 265907 .
|
||||
266530) (SK.ELTS.CONTAINING.PTS 266532 . 267157) (SK.HOTSPOTS.NOT.ON.LIST 267159 . 267817)) (267977
|
||||
270773 (SK.SET.MOVE.MODE 267987 . 268658) (SK.SET.MOVE.MODE.POINTS 268660 . 268999) (
|
||||
SK.SET.MOVE.MODE.ELEMENTS 269001 . 269345) (SK.SET.MOVE.MODE.COMBINED 269347 . 269697) (READMOVEMODE
|
||||
269699 . 270771)) (270774 289529 (SK.ALIGN.POINTS 270784 . 271074) (SK.SEL.AND.ALIGN.POINTS 271076 .
|
||||
271385) (SK.ALIGN.POINTS.LEFT 271387 . 271690) (SK.ALIGN.POINTS.RIGHT 271692 . 271997) (
|
||||
SK.ALIGN.POINTS.TOP 271999 . 272300) (SK.ALIGN.POINTS.BOTTOM 272302 . 272609) (
|
||||
SK.EVEN.SPACE.POINTS.IN.X 272611 . 272931) (SK.EVEN.SPACE.POINTS.IN.Y 272933 . 273253) (
|
||||
SK.DO.ALIGN.POINTS 273255 . 283877) (SK.NTH.CONTROL.POINT 283879 . 284340) (
|
||||
SK.GET.SELECTED.ELEMENT.STRUCTURE 284342 . 285008) (SK.CORRESPONDING.CONTROL.PT 285010 . 285564) (
|
||||
SK.CONTROL.POINT.NUMBER 285566 . 285936) (SK.DO.ALIGN.SETVALUE 285938 . 289527)) (289593 303025 (
|
||||
SKETCH.CREATE.GROUP 289603 . 290092) (SK.CREATE.GROUP1 290094 . 290641) (SK.UPDATE.GROUP.AFTER.CHANGE
|
||||
290643 . 291432) (SK.GROUP.ELTS 291434 . 291715) (SK.SEL.AND.GROUP 291717 . 292103) (SK.GROUP.ELEMENTS
|
||||
292105 . 293754) (SK.UNGROUP.ELT 293756 . 294040) (SK.SEL.AND.UNGROUP 294042 . 295711) (
|
||||
SK.UNGROUP.ELEMENT 295713 . 296649) (SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 296651 . 297573) (
|
||||
SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 297575 . 298586) (SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 298588 .
|
||||
299928) (SK.UNIONREGIONS 299930 . 302296) (SKETCH.REGION.OF.SKETCH 302298 . 302714) (SK.FLASHREGION
|
||||
302716 . 303023)) (303026 316497 (INIT.GROUP.ELEMENT 303036 . 303908) (GROUP.DRAWFN 303910 . 304360) (
|
||||
GROUP.EXPANDFN 304362 . 305925) (GROUP.INSIDEFN 305927 . 306336) (GROUP.REGIONFN 306338 . 306733) (
|
||||
GROUP.GLOBALREGIONFN 306735 . 307053) (GROUP.TRANSLATEFN 307055 . 309087) (GROUP.TRANSFORMFN 309089 .
|
||||
312569) (GROUP.READCHANGEFN 312571 . 316495)) (316498 317506 (REGION.CENTER 316508 . 317109) (
|
||||
REMOVE.LAST 317111 . 317504)) (317559 322666 (SK.MOVE.GROUP.CONTROL.PT 317569 . 317860) (
|
||||
SK.SEL.AND.MOVE.CONTROL.PT 317862 . 319266) (SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 319268 . 321341) (
|
||||
SK.READ.NEW.GROUP.CONTROL.PT 321343 . 322664)) (322925 327549 (SK.DO.GROUP 322935 . 324387) (
|
||||
SK.CHECK.WHENGROUPEDFN 324389 . 325099) (SK.DO.UNGROUP 325101 . 326306) (SK.CHECK.WHENUNGROUPEDFN
|
||||
326308 . 326895) (SK.GROUP.UNDO 326897 . 327220) (SK.UNGROUP.UNDO 327222 . 327547)) (327790 332712 (
|
||||
SK.FREEZE.ELTS 327800 . 328084) (SK.SEL.AND.FREEZE 328086 . 328476) (SK.FREEZE.ELEMENTS 328478 .
|
||||
329029) (SK.UNFREEZE.ELT 329031 . 329320) (SK.SEL.AND.UNFREEZE 329322 . 330858) (SK.UNFREEZE.ELEMENTS
|
||||
330860 . 331419) (SK.FREEZE.UNDO 331421 . 331666) (SK.UNFREEZE.UNDO 331668 . 331915) (SK.DO.FREEZE
|
||||
331917 . 332310) (SK.DO.UNFREEZE 332312 . 332710)) (332942 342752 (SKETCH.ELEMENTS.OF.SKETCH 332952 .
|
||||
333787) (SKETCH.LIST.OF.ELEMENTS 333789 . 334507) (SKETCH.ADD.ELEMENT 334509 . 335584) (
|
||||
SKETCH.DELETE.ELEMENT 335586 . 337318) (DELFROMGROUPELT 337320 . 338120) (SKETCH.ELEMENT.TYPE 338122
|
||||
. 338471) (SKETCH.ELEMENT.CHANGED 338473 . 340041) (SK.ELEMENT.CHANGED1 340043 . 340694) (
|
||||
SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 340696 . 342750)) (342806 347418 (INSURE.SKETCH 342816 . 345431)
|
||||
(LOCALSPECS.FROM.VIEWER 345433 . 345793) (SK.LOCAL.ELT.FROM.GLOBALPART 345795 . 346263) (
|
||||
SKETCH.FROM.VIEWER 346265 . 346499) (INSPECT.SKETCH 346501 . 346826) (ELT.INSIDE.SKETCHWP 346828 .
|
||||
347101) (SK.INSIDE.REGION 347103 . 347416)) (347419 351749 (MAPSKETCHSPECS 347429 . 348050) (
|
||||
MAPCOLLECTSKETCHSPECS 348052 . 348801) (MAPSKETCHSPECSUNTIL 348803 . 349611) (MAPGLOBALSKETCHSPECS
|
||||
349613 . 350314) (MAPGLOBALSKETCHELEMENTS 350316 . 351747)) (351811 377703 (SK.ADD.SELECTION 351821 .
|
||||
352561) (SK.COPY.INSERTFN 352563 . 356194) (SCREENELEMENTP 356196 . 356669) (SK.ITEM.REGION 356671 .
|
||||
357158) (SK.ELEMENT.GLOBAL.REGION 357160 . 357688) (SK.LOCAL.ITEMS.IN.REGION 357690 . 359669) (
|
||||
SK.REGIONFN 359671 . 359993) (SK.GLOBAL.REGIONFN 359995 . 360353) (SK.REMOVE.SELECTION 360355 . 361083
|
||||
) (SK.SELECT.MULTIPLE.ITEMS 361085 . 371527) (SKETCH.GET.ELEMENTS 371529 . 372952) (SK.PUT.MARKS.UP
|
||||
372954 . 373293) (SK.TAKE.MARKS.DOWN 373295 . 373634) (SK.TRANSLATE.GLOBALPART 373636 . 375763) (
|
||||
SK.TRANSLATE.ITEM 375765 . 376692) (SK.TRANSLATEFN 376694 . 376890) (TRANSLATE.SKETCH 376892 . 377701)
|
||||
) (377969 380876 (SK.INPUT.SCALE 377979 . 378826) (SK.UPDATE.SKETCHCONTEXT 378828 . 379425) (
|
||||
SK.SET.INPUT.SCALE 379427 . 380076) (SK.SET.INPUT.SCALE.CURRENT 380078 . 380369) (
|
||||
SK.SET.INPUT.SCALE.VALUE 380371 . 380874)) (380927 382839 (SK.SET.FEEDBACK.MODE 380937 . 382243) (
|
||||
SK.SET.FEEDBACK.POINT 382245 . 382413) (SK.SET.FEEDBACK.VERBOSE 382415 . 382584) (
|
||||
SK.SET.FEEDBACK.ALWAYS 382586 . 382837)) (382990 384267 (SKETCH.TITLE 383000 . 383263) (
|
||||
SK.SHRINK.ICONCREATE 383265 . 384265)) (389957 392771 (READBRUSHSHAPE 389967 . 390426) (READ.FUNCTION
|
||||
390428 . 390943) (READBRUSHSIZE 390945 . 391403) (READANGLE 391405 . 391897) (READARCDIRECTION 391899
|
||||
. 392769)) (392772 403183 (SK.CHANGE.DASHING 392782 . 396730) (READ.AND.SAVE.NEW.DASHING 396732 .
|
||||
398500) (READ.NEW.DASHING 398502 . 400242) (READ.DASHING.CHANGE 400244 . 401719) (SK.CACHE.DASHING
|
||||
401721 . 402723) (SK.DASHING.LABEL 402725 . 403181)) (403184 406889 (READ.FILLING.CHANGE 403194 .
|
||||
405175) (SK.CACHE.FILLING 405177 . 405895) (READ.AND.SAVE.NEW.FILLING 405897 . 406495) (
|
||||
SK.FILLING.LABEL 406497 . 406887)) (407273 443526 (SK.GETGLOBALPOSITION 407283 . 407588) (
|
||||
SKETCH.TRACK.ELEMENTS 407590 . 411110) (SK.PICKOUT.WHOLE.MOVE.ELEMENTS 411112 . 411671) (
|
||||
MAP.SKETCH.ELEMENTS.INTO.VIEWER 411673 . 412065) (MAP.GLOBAL.POSITION.INTO.VIEWER 412067 . 412447) (
|
||||
SKETCH.TO.VIEWER.POSITION 412449 . 412808) (SKETCH.TRACK.IMAGE 412810 . 413664) (SK.TRACK.IMAGE1
|
||||
413666 . 415078) (MAP.VIEWER.XY.INTO.GLOBAL 415080 . 416074) (SK.SET.POSITION 416076 . 416412) (
|
||||
MAP.VIEWER.PT.INTO.GLOBAL 416414 . 417520) (VIEWER.TO.SKETCH.POSITION 417522 . 418157) (
|
||||
SK.INSURE.SCALE 418159 . 418419) (SKETCH.TO.VIEWER.REGION 418421 . 419227) (VIEWER.TO.SKETCH.REGION
|
||||
419229 . 419567) (SK.READ.POINT.WITH.FEEDBACK 419569 . 430572) (SKETCH.GET.POSITION 430574 . 432454) (
|
||||
\CLOBBER.POSITION 432456 . 432904) (NEAREST.HOT.SPOT 432906 . 434434) (GETWREGION 434436 . 435197) (
|
||||
GET.BITMAP.POSITION 435199 . 435983) (SK.TRACK.BITMAP1 435985 . 443524)) (444095 474981 (
|
||||
SK.BRING.UP.POSITION.PAD 444105 . 449965) (SK.PAD.READER.POSITION 449967 . 451616) (
|
||||
SK.POSITION.READER.REPAINTFN 451618 . 453402) (SK.POSITION.PAD.FROM.VIEWER 453404 . 454746) (
|
||||
SK.INIT.POSITION.NUMBER.PAD.MENU 454748 . 455098) (SK.READ.POSITION.PAD.HANDLER 455100 . 460832) (
|
||||
DISPLAY.POSITION.READER.TOTAL 460834 . 463132) (POSITION.PAD.READER.HANDLER 463134 . 471177) (
|
||||
POSITIONPAD.HELDFN 471179 . 472663) (\POSITION.PAD.ADD.DIGIT.MENU 472665 . 474244) (
|
||||
\POSITION.READER.NUMBERPAD 474246 . 474979)) (476607 479285 (SK.DRAWFN 476617 . 476983) (
|
||||
SK.TRANSFORMFN 476985 . 477366) (SK.EXPANDFN 477368 . 477645) (SK.INPUT 477647 . 478028) (SK.INSIDEFN
|
||||
478030 . 478670) (SK.UPDATEFN 478672 . 479283)) (484857 488802 (SK.CHECK.SKETCH.VERSION 484867 .
|
||||
486107) (SK.INSURE.RECORD.LENGTH 486109 . 487592) (SK.INSURE.HAS.LENGTH 487594 . 488332) (
|
||||
SK.RECORD.LENGTH 488334 . 488508) (SK.SET.RECORD.LENGTHS 488510 . 488800)) (489543 490430 (
|
||||
SK.ADD.EDIT.COMMAND.TO.FILE.BROWSER 489553 . 490428)))))
|
||||
(FILEMAP (NIL (22128 85491 (SKETCH 22138 . 24243) (SKETCH.FROM.A.FILE 24245 . 24560) (SKETCHW.CREATE
|
||||
24562 . 29136) (SKETCH.RESET 29138 . 30660) (SKETCHW.FIG.CHANGED 30662 . 31002) (SK.WINDOW.TITLE 31004
|
||||
. 31391) (EDITSLIDE 31393 . 31799) (EDITSKETCH 31801 . 32125) (SK.PUT.ON.FILE 32127 . 33579) (
|
||||
SK.OUTPUT.FILE.NAME 33581 . 33955) (SKETCH.PUT 33957 . 36855) (SK.GET.FROM.FILE 36857 . 37750) (
|
||||
SK.INCLUDE.FILE 37752 . 40260) (SK.GET.IMAGEOBJ.FROM.FILE 40262 . 42465) (SKETCH.GET 42467 . 42774) (
|
||||
ADD.SKETCH.TO.VIEWER 42776 . 45362) (FILENAMELESSVERSION 45364 . 45640) (SK.ADD.ELEMENTS.TO.SKETCH
|
||||
45642 . 46156) (SKETCH.SET.A.DEFAULT 46158 . 53316) (SK.POPUP.SELECTIONFN 53318 . 53860) (
|
||||
GETSKETCHWREGION 53862 . 54068) (SK.ADD.ELEMENT 54070 . 55649) (SK.ADD.PRIORITY.ELEMENT.TO.SKETCH
|
||||
55651 . 57045) (SK.ELTS.BY.PRIORITY 57047 . 57343) (SK.ORDER.ELEMENTS 57345 . 57612) (
|
||||
SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 57614 . 59108) (SK.ADD.ELEMENTS 59110 . 59634) (
|
||||
SK.CHECK.WHENADDEDFN 59636 . 60366) (SK.APPLY.MENU.COMMAND 60368 . 61166) (SK.DELETE.ELEMENT1 61168 .
|
||||
62746) (SK.MARK.DIRTY 62748 . 63414) (SK.MARK.UNDIRTY 63416 . 63747) (SK.MENU.AND.RETURN.FIELD 63749
|
||||
. 64414) (SKETCH.SET.BRUSH.SHAPE 64416 . 65001) (SKETCH.SET.BRUSH.SIZE 65003 . 65509) (
|
||||
SKETCHW.CLOSEFN 65511 . 67302) (SK.CONFIRM.DESTRUCTION 67304 . 68303) (SKETCHW.OUTFN 68305 . 68569) (
|
||||
SKETCHW.REOPENFN 68571 . 68983) (MAKE.LOCAL.SKETCH 68985 . 69715) (MAP.SKETCHSPEC.INTO.VIEWER 69717 .
|
||||
70927) (SKETCHW.REPAINTFN 70929 . 71757) (SKETCHW.REPAINTFN1 71759 . 72698) (SK.DRAWFIGURE.IF 72700 .
|
||||
73222) (SKETCHW.SCROLLFN 73224 . 77417) (SKETCHW.RESHAPEFN 77419 . 79677) (SK.UPDATE.EVENT.SELECTION
|
||||
79679 . 81734) (LIGHTGRAYWINDOW 81736 . 81899) (SK.ADD.SPACES 81901 . 82647) (SK.SKETCH.MENU 82649 .
|
||||
82971) (SK.CHECK.IMAGEOBJ.WHENDELETEDFN 82973 . 83825) (SK.APPLY.IMAGEOBJ.WHENDELETEDFN 83827 . 84787)
|
||||
(SK.RETURN.TTY 84789 . 85157) (SK.TAKE.TTY 85159 . 85489)) (85545 108873 (SKETCH.COMMANDMENU 85555 .
|
||||
85892) (SKETCH.COMMANDMENU.ITEMS 85894 . 105977) (CREATE.SKETCHW.COMMANDMENU 105979 . 106399) (
|
||||
SKETCHW.SELECTIONFN 106401 . 107504) (SKETCH.MONITORLOCK 107506 . 107977) (SK.EVAL.AS.PROCESS 107979
|
||||
. 108592) (SK.EVAL.WITH.LOCK 108594 . 108871)) (108874 116678 (SK.FIX.MENU 108884 . 109978) (
|
||||
SK.SET.UP.MENUS 109980 . 112281) (SK.INSURE.HAS.MENU 112283 . 112945) (SK.CREATE.STANDARD.MENU 112947
|
||||
. 113392) (SK.ADD.ITEM.TO.MENU 113394 . 114069) (SK.GET.VIEWER.POPUP.MENU 114071 . 116272) (
|
||||
SK.CLEAR.POPUP.MENU 116274 . 116676)) (116734 125556 (SKETCH.CREATE 116744 . 117530) (GETSKETCHPROP
|
||||
117532 . 120589) (PUTSKETCHPROP 120591 . 124523) (CREATE.DEFAULT.SKETCH.CONTEXT 124525 . 125554)) (
|
||||
125722 148618 (SK.COPY.BUTTONEVENTFN 125732 . 136960) (SK.BUTTONEVENT.MARK 136962 . 137345) (
|
||||
SK.BUILD.IMAGEOBJ 137347 . 147262) (SK.BUTTONEVENT.OVERP 147264 . 147887) (SK.BUTTONEVENT.SAME.KEYS
|
||||
147889 . 148616)) (148897 174712 (SK.SEL.AND.CHANGE 148907 . 149199) (SK.CHECK.WHENCHANGEDFN 149201 .
|
||||
149907) (SK.CHECK.PRECHANGEFN 149909 . 150510) (SK.CHANGE.ELT 150512 . 150704) (SK.CHANGE.THING 150706
|
||||
. 151957) (SKETCH.CHANGE.ELEMENTS 151959 . 153142) (SK.APPLY.SINGLE.CHANGEFN 153144 . 153717) (
|
||||
SK.DO.CHANGESPECS 153719 . 155378) (SK.VIEWER.FROM.SKETCH.ARG 155380 . 155822) (SK.DO.CHANGESPEC1
|
||||
155824 . 157699) (SK.CHANGEFN 157701 . 158281) (SK.READCHANGEFN 158283 . 158742) (SK.DEFAULT.CHANGEFN
|
||||
158744 . 161216) (CHANGEABLEFIELDITEMS 161218 . 161865) (SK.APPLY.CHANGE.COMMAND 161867 . 162484) (
|
||||
SK.DO.AND.RECORD.CHANGES 162486 . 163883) (SK.APPLY.CHANGE.COMMAND1 163885 . 165373) (
|
||||
SK.ELEMENTS.CHANGEFN 165375 . 167699) (READ.POINT.TO.ADD 167701 . 168645) (GLOBAL.KNOT.FROM.LOCAL
|
||||
168647 . 169107) (SK.ADD.KNOT.TO.ELEMENT 169109 . 170053) (SK.GROUP.CHANGEFN 170055 . 171267) (
|
||||
SK.GROUP.CHANGEFN1 171269 . 174710)) (174879 188612 (ADD.ELEMENT.TO.SKETCH 174889 . 176595) (
|
||||
ADD.SKETCH.VIEWER 176597 . 177265) (REMOVE.SKETCH.VIEWER 177267 . 177880) (ALL.SKETCH.VIEWERS 177882
|
||||
. 178122) (SKETCH.ALL.VIEWERS 178124 . 178384) (VIEWER.BUCKET 178386 . 178537) (ELT.INSIDE.REGION?
|
||||
178539 . 178866) (ELT.INSIDE.SKWP 178868 . 179159) (SCALE.FROM.SKW 179161 . 179411) (
|
||||
SK.ADDELT.TO.WINDOW 179413 . 180273) (SK.CALC.REGION.VIEWED 180275 . 180653) (SK.DRAWFIGURE 180655 .
|
||||
181944) (SK.DRAWFIGURE1 181946 . 182330) (SK.LOCAL.FROM.GLOBAL 182332 . 183567) (SKETCH.REGION.VIEWED
|
||||
183569 . 186256) (SKETCH.VIEW.FROM.NAME 186258 . 186688) (SK.UPDATE.REGION.VIEWED 186690 . 187082) (
|
||||
SKETCH.ADD.AND.DISPLAY 187084 . 187492) (SKETCH.ADD.AND.DISPLAY1 187494 . 187932) (SK.ADD.ITEM 187934
|
||||
. 188266) (SKETCHW.ADD.INSTANCE 188268 . 188610)) (188653 201841 (SK.SEL.AND.DELETE 188663 . 189051)
|
||||
(SK.ERASE.AND.DELETE.ITEM 189053 . 189472) (REMOVE.ELEMENT.FROM.SKETCH 189474 . 190585) (
|
||||
SK.DELETE.ELEMENT 190587 . 191145) (SK.DELETE.ELEMENT2 191147 . 191808) (SK.DELETE.KNOT 191810 .
|
||||
192101) (SK.SEL.AND.DELETE.KNOT 192103 . 193228) (SK.DELETE.ELEMENT.KNOT 193230 . 196437) (
|
||||
SK.CHECK.WHENDELETEDFN 196439 . 197219) (SK.CHECK.PREEDITFN 197221 . 197705) (
|
||||
SK.CHECK.END.INITIAL.EDIT 197707 . 198241) (SK.CHECK.WHENPOINTDELETEDFN 198243 . 199039) (SK.ERASE.ELT
|
||||
199041 . 199377) (SK.DELETE.ELT 199379 . 199754) (SK.DELETE.ITEM 199756 . 200164) (DELFROMTCONC
|
||||
200166 . 201839)) (201880 215714 (SK.COPY.ELT 201890 . 202260) (SK.SEL.AND.COPY 202262 . 202645) (
|
||||
SK.COPY.ELEMENTS 202647 . 208275) (SK.ADD.COPY.OF.ELEMENTS 208277 . 210044) (
|
||||
SK.GLOBAL.FROM.LOCAL.ELEMENTS 210046 . 210286) (SK.COPY.ITEM 210288 . 211085) (SK.INSERT.SKETCH 211087
|
||||
. 215712)) (215754 245775 (SK.MOVE.ELT 215764 . 216039) (SK.MOVE.ELT.OR.PT 216041 . 216354) (
|
||||
SK.APPLY.DEFAULT.MOVE 216356 . 216790) (SK.SEL.AND.MOVE 216792 . 217339) (SK.MOVE.ELEMENTS 217341 .
|
||||
228213) (SKETCH.MOVE.ELEMENTS 228215 . 230146) (SKETCH.COPY.ELEMENTS 230148 . 232195) (
|
||||
\SKETCH.COPY.ELEMENT 232197 . 232922) (SK.TRANSLATE.ELEMENT 232924 . 233407) (SK.COPY.GLOBAL.ELEMENT
|
||||
233409 . 233620) (SK.MAKE.ELEMENT.MOVE.ARG 233622 . 234242) (SK.MAKE.ELEMENTS.MOVE.ARG 234244 . 234766
|
||||
) (SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 234768 . 235837) (SK.SHOW.FIG.FROM.INFO 235839 . 236207) (
|
||||
SK.MOVE.THING 236209 . 237115) (UPDATE.ELEMENT.IN.SKETCH 237117 . 239172) (SK.UPDATE.ELEMENT 239174 .
|
||||
240733) (SK.UPDATE.ELEMENTS 240735 . 241454) (SK.UPDATE.ELEMENT1 241456 . 245356) (
|
||||
SK.MOVE.ELEMENT.POINT 245358 . 245773)) (245838 268127 (SK.MOVE.POINTS 245848 . 246135) (
|
||||
SK.SEL.AND.MOVE.POINTS 246137 . 246442) (SK.DO.MOVE.ELEMENT.POINTS 246444 . 255101) (
|
||||
SK.MOVE.ITEM.POINTS 255103 . 256774) (SK.TRANSLATEPTSFN 256776 . 257160) (SK.TRANSLATE.POINTS 257162
|
||||
. 258063) (SK.SELECT.MULTIPLE.POINTS 258065 . 263705) (SK.CONTROL.POINTS.IN.REGION 263707 . 265128) (
|
||||
SK.ADD.PT.SELECTION 265130 . 265594) (SK.REMOVE.PT.SELECTION 265596 . 266213) (SK.ADD.POINT 266215 .
|
||||
266838) (SK.ELTS.CONTAINING.PTS 266840 . 267465) (SK.HOTSPOTS.NOT.ON.LIST 267467 . 268125)) (268285
|
||||
271081 (SK.SET.MOVE.MODE 268295 . 268966) (SK.SET.MOVE.MODE.POINTS 268968 . 269307) (
|
||||
SK.SET.MOVE.MODE.ELEMENTS 269309 . 269653) (SK.SET.MOVE.MODE.COMBINED 269655 . 270005) (READMOVEMODE
|
||||
270007 . 271079)) (271082 289837 (SK.ALIGN.POINTS 271092 . 271382) (SK.SEL.AND.ALIGN.POINTS 271384 .
|
||||
271693) (SK.ALIGN.POINTS.LEFT 271695 . 271998) (SK.ALIGN.POINTS.RIGHT 272000 . 272305) (
|
||||
SK.ALIGN.POINTS.TOP 272307 . 272608) (SK.ALIGN.POINTS.BOTTOM 272610 . 272917) (
|
||||
SK.EVEN.SPACE.POINTS.IN.X 272919 . 273239) (SK.EVEN.SPACE.POINTS.IN.Y 273241 . 273561) (
|
||||
SK.DO.ALIGN.POINTS 273563 . 284185) (SK.NTH.CONTROL.POINT 284187 . 284648) (
|
||||
SK.GET.SELECTED.ELEMENT.STRUCTURE 284650 . 285316) (SK.CORRESPONDING.CONTROL.PT 285318 . 285872) (
|
||||
SK.CONTROL.POINT.NUMBER 285874 . 286244) (SK.DO.ALIGN.SETVALUE 286246 . 289835)) (289901 303333 (
|
||||
SKETCH.CREATE.GROUP 289911 . 290400) (SK.CREATE.GROUP1 290402 . 290949) (SK.UPDATE.GROUP.AFTER.CHANGE
|
||||
290951 . 291740) (SK.GROUP.ELTS 291742 . 292023) (SK.SEL.AND.GROUP 292025 . 292411) (SK.GROUP.ELEMENTS
|
||||
292413 . 294062) (SK.UNGROUP.ELT 294064 . 294348) (SK.SEL.AND.UNGROUP 294350 . 296019) (
|
||||
SK.UNGROUP.ELEMENT 296021 . 296957) (SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 296959 . 297881) (
|
||||
SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 297883 . 298894) (SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 298896 .
|
||||
300236) (SK.UNIONREGIONS 300238 . 302604) (SKETCH.REGION.OF.SKETCH 302606 . 303022) (SK.FLASHREGION
|
||||
303024 . 303331)) (303334 316805 (INIT.GROUP.ELEMENT 303344 . 304216) (GROUP.DRAWFN 304218 . 304668) (
|
||||
GROUP.EXPANDFN 304670 . 306233) (GROUP.INSIDEFN 306235 . 306644) (GROUP.REGIONFN 306646 . 307041) (
|
||||
GROUP.GLOBALREGIONFN 307043 . 307361) (GROUP.TRANSLATEFN 307363 . 309395) (GROUP.TRANSFORMFN 309397 .
|
||||
312877) (GROUP.READCHANGEFN 312879 . 316803)) (316806 317814 (REGION.CENTER 316816 . 317417) (
|
||||
REMOVE.LAST 317419 . 317812)) (317867 322974 (SK.MOVE.GROUP.CONTROL.PT 317877 . 318168) (
|
||||
SK.SEL.AND.MOVE.CONTROL.PT 318170 . 319574) (SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 319576 . 321649) (
|
||||
SK.READ.NEW.GROUP.CONTROL.PT 321651 . 322972)) (323233 327857 (SK.DO.GROUP 323243 . 324695) (
|
||||
SK.CHECK.WHENGROUPEDFN 324697 . 325407) (SK.DO.UNGROUP 325409 . 326614) (SK.CHECK.WHENUNGROUPEDFN
|
||||
326616 . 327203) (SK.GROUP.UNDO 327205 . 327528) (SK.UNGROUP.UNDO 327530 . 327855)) (328098 333020 (
|
||||
SK.FREEZE.ELTS 328108 . 328392) (SK.SEL.AND.FREEZE 328394 . 328784) (SK.FREEZE.ELEMENTS 328786 .
|
||||
329337) (SK.UNFREEZE.ELT 329339 . 329628) (SK.SEL.AND.UNFREEZE 329630 . 331166) (SK.UNFREEZE.ELEMENTS
|
||||
331168 . 331727) (SK.FREEZE.UNDO 331729 . 331974) (SK.UNFREEZE.UNDO 331976 . 332223) (SK.DO.FREEZE
|
||||
332225 . 332618) (SK.DO.UNFREEZE 332620 . 333018)) (333250 343060 (SKETCH.ELEMENTS.OF.SKETCH 333260 .
|
||||
334095) (SKETCH.LIST.OF.ELEMENTS 334097 . 334815) (SKETCH.ADD.ELEMENT 334817 . 335892) (
|
||||
SKETCH.DELETE.ELEMENT 335894 . 337626) (DELFROMGROUPELT 337628 . 338428) (SKETCH.ELEMENT.TYPE 338430
|
||||
. 338779) (SKETCH.ELEMENT.CHANGED 338781 . 340349) (SK.ELEMENT.CHANGED1 340351 . 341002) (
|
||||
SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 341004 . 343058)) (343114 347726 (INSURE.SKETCH 343124 . 345739)
|
||||
(LOCALSPECS.FROM.VIEWER 345741 . 346101) (SK.LOCAL.ELT.FROM.GLOBALPART 346103 . 346571) (
|
||||
SKETCH.FROM.VIEWER 346573 . 346807) (INSPECT.SKETCH 346809 . 347134) (ELT.INSIDE.SKETCHWP 347136 .
|
||||
347409) (SK.INSIDE.REGION 347411 . 347724)) (347727 352057 (MAPSKETCHSPECS 347737 . 348358) (
|
||||
MAPCOLLECTSKETCHSPECS 348360 . 349109) (MAPSKETCHSPECSUNTIL 349111 . 349919) (MAPGLOBALSKETCHSPECS
|
||||
349921 . 350622) (MAPGLOBALSKETCHELEMENTS 350624 . 352055)) (352119 378011 (SK.ADD.SELECTION 352129 .
|
||||
352869) (SK.COPY.INSERTFN 352871 . 356502) (SCREENELEMENTP 356504 . 356977) (SK.ITEM.REGION 356979 .
|
||||
357466) (SK.ELEMENT.GLOBAL.REGION 357468 . 357996) (SK.LOCAL.ITEMS.IN.REGION 357998 . 359977) (
|
||||
SK.REGIONFN 359979 . 360301) (SK.GLOBAL.REGIONFN 360303 . 360661) (SK.REMOVE.SELECTION 360663 . 361391
|
||||
) (SK.SELECT.MULTIPLE.ITEMS 361393 . 371835) (SKETCH.GET.ELEMENTS 371837 . 373260) (SK.PUT.MARKS.UP
|
||||
373262 . 373601) (SK.TAKE.MARKS.DOWN 373603 . 373942) (SK.TRANSLATE.GLOBALPART 373944 . 376071) (
|
||||
SK.TRANSLATE.ITEM 376073 . 377000) (SK.TRANSLATEFN 377002 . 377198) (TRANSLATE.SKETCH 377200 . 378009)
|
||||
) (378277 381184 (SK.INPUT.SCALE 378287 . 379134) (SK.UPDATE.SKETCHCONTEXT 379136 . 379733) (
|
||||
SK.SET.INPUT.SCALE 379735 . 380384) (SK.SET.INPUT.SCALE.CURRENT 380386 . 380677) (
|
||||
SK.SET.INPUT.SCALE.VALUE 380679 . 381182)) (381235 383147 (SK.SET.FEEDBACK.MODE 381245 . 382551) (
|
||||
SK.SET.FEEDBACK.POINT 382553 . 382721) (SK.SET.FEEDBACK.VERBOSE 382723 . 382892) (
|
||||
SK.SET.FEEDBACK.ALWAYS 382894 . 383145)) (383298 384575 (SKETCH.TITLE 383308 . 383571) (
|
||||
SK.SHRINK.ICONCREATE 383573 . 384573)) (390265 393079 (READBRUSHSHAPE 390275 . 390734) (READ.FUNCTION
|
||||
390736 . 391251) (READBRUSHSIZE 391253 . 391711) (READANGLE 391713 . 392205) (READARCDIRECTION 392207
|
||||
. 393077)) (393080 403491 (SK.CHANGE.DASHING 393090 . 397038) (READ.AND.SAVE.NEW.DASHING 397040 .
|
||||
398808) (READ.NEW.DASHING 398810 . 400550) (READ.DASHING.CHANGE 400552 . 402027) (SK.CACHE.DASHING
|
||||
402029 . 403031) (SK.DASHING.LABEL 403033 . 403489)) (403492 407197 (READ.FILLING.CHANGE 403502 .
|
||||
405483) (SK.CACHE.FILLING 405485 . 406203) (READ.AND.SAVE.NEW.FILLING 406205 . 406803) (
|
||||
SK.FILLING.LABEL 406805 . 407195)) (407581 443834 (SK.GETGLOBALPOSITION 407591 . 407896) (
|
||||
SKETCH.TRACK.ELEMENTS 407898 . 411418) (SK.PICKOUT.WHOLE.MOVE.ELEMENTS 411420 . 411979) (
|
||||
MAP.SKETCH.ELEMENTS.INTO.VIEWER 411981 . 412373) (MAP.GLOBAL.POSITION.INTO.VIEWER 412375 . 412755) (
|
||||
SKETCH.TO.VIEWER.POSITION 412757 . 413116) (SKETCH.TRACK.IMAGE 413118 . 413972) (SK.TRACK.IMAGE1
|
||||
413974 . 415386) (MAP.VIEWER.XY.INTO.GLOBAL 415388 . 416382) (SK.SET.POSITION 416384 . 416720) (
|
||||
MAP.VIEWER.PT.INTO.GLOBAL 416722 . 417828) (VIEWER.TO.SKETCH.POSITION 417830 . 418465) (
|
||||
SK.INSURE.SCALE 418467 . 418727) (SKETCH.TO.VIEWER.REGION 418729 . 419535) (VIEWER.TO.SKETCH.REGION
|
||||
419537 . 419875) (SK.READ.POINT.WITH.FEEDBACK 419877 . 430880) (SKETCH.GET.POSITION 430882 . 432762) (
|
||||
\CLOBBER.POSITION 432764 . 433212) (NEAREST.HOT.SPOT 433214 . 434742) (GETWREGION 434744 . 435505) (
|
||||
GET.BITMAP.POSITION 435507 . 436291) (SK.TRACK.BITMAP1 436293 . 443832)) (444403 475289 (
|
||||
SK.BRING.UP.POSITION.PAD 444413 . 450273) (SK.PAD.READER.POSITION 450275 . 451924) (
|
||||
SK.POSITION.READER.REPAINTFN 451926 . 453710) (SK.POSITION.PAD.FROM.VIEWER 453712 . 455054) (
|
||||
SK.INIT.POSITION.NUMBER.PAD.MENU 455056 . 455406) (SK.READ.POSITION.PAD.HANDLER 455408 . 461140) (
|
||||
DISPLAY.POSITION.READER.TOTAL 461142 . 463440) (POSITION.PAD.READER.HANDLER 463442 . 471485) (
|
||||
POSITIONPAD.HELDFN 471487 . 472971) (\POSITION.PAD.ADD.DIGIT.MENU 472973 . 474552) (
|
||||
\POSITION.READER.NUMBERPAD 474554 . 475287)) (476915 479593 (SK.DRAWFN 476925 . 477291) (
|
||||
SK.TRANSFORMFN 477293 . 477674) (SK.EXPANDFN 477676 . 477953) (SK.INPUT 477955 . 478336) (SK.INSIDEFN
|
||||
478338 . 478978) (SK.UPDATEFN 478980 . 479591)) (485165 489110 (SK.CHECK.SKETCH.VERSION 485175 .
|
||||
486415) (SK.INSURE.RECORD.LENGTH 486417 . 487900) (SK.INSURE.HAS.LENGTH 487902 . 488640) (
|
||||
SK.RECORD.LENGTH 488642 . 488816) (SK.SET.RECORD.LENGTHS 488818 . 489108)) (489851 490738 (
|
||||
SK.ADD.EDIT.COMMAND.TO.FILE.BROWSER 489861 . 490736)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,9 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "21-Aug-2021 20:49:42" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;2 554230
|
||||
|
||||
changes to%: (FNS \SK.PUT.ARROWHEADS)
|
||||
(FILECREATED " 4-Aug-2022 09:57:43" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;2 554099
|
||||
|
||||
previous date%: "31-Dec-2000 10:58:28" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;1)
|
||||
:CHANGES-TO (FNS CREATE.SKETCH.ELEMENT.TYPE)
|
||||
|
||||
:PREVIOUS-DATE "21-Aug-2021 20:49:42" {DSK}<home>larry>medley>library>SKETCHELEMENTS.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -14,7 +15,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(RPAQQ SKETCHELEMENTSCOMS
|
||||
( (* ;
|
||||
"contains the functions need to implement the sketch basic element types")
|
||||
"contains the functions need to implement the sketch basic element types")
|
||||
(FNS INIT.SKETCH.ELEMENTS CREATE.SKETCH.ELEMENT.TYPE SKETCH.ELEMENT.TYPEP
|
||||
SKETCH.ELEMENT.NAMEP \CURSOR.IN.MIDDLE.MENU)
|
||||
(COMS (* ; "color and filling stuff")
|
||||
@@ -43,9 +44,9 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
(CURSORS CIRCLE.CENTER CIRCLE.EDGE)
|
||||
(INITVARS [SK.DEFAULT.BRUSH (CONS 'ROUND (CONS 1 (CONS 'BLACK NIL]
|
||||
(* ;
|
||||
"Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).")
|
||||
"Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).")
|
||||
(* ;
|
||||
"Changed by yabu.fx, for SUNLOADUP without DWIM.")
|
||||
"Changed by yabu.fx, for SUNLOADUP without DWIM.")
|
||||
(SK.DEFAULT.DASHING)
|
||||
(SK.DEFAULT.TEXTURE))
|
||||
(GLOBALVARS SK.DEFAULT.BRUSH SK.DEFAULT.DASHING SK.DEFAULT.TEXTURE))
|
||||
@@ -113,7 +114,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
(INITVARS (SK.ARROW.END.MENU)
|
||||
(SK.ARROW.EDIT.MENU)))
|
||||
(COMS (* ;
|
||||
"stuff to support the text element type.")
|
||||
"stuff to support the text element type.")
|
||||
(FNS SKETCH.CREATE.TEXT TEXT.CHANGEFN TEXT.READCHANGEFN \SK.READ.FONT.SIZE1
|
||||
SK.TEXT.ELT.WITH.SAME.FIELDS SK.READFONTFAMILY CLOSE.PROMPT.WINDOW TEXT.DRAWFN
|
||||
TEXT.DRAWFN1 TEXT.INSIDEFN TEXT.EXPANDFN SK.TEXT.LINE.REGIONS
|
||||
@@ -142,7 +143,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
(GLOBALVARS SKETCH.TERMTABLE SK.DEFAULT.TEXT.ALIGNMENT INDICATE.TEXT.SHADE \FONTSONFILE
|
||||
SK.HORIZONTAL.STYLES SK.VERTICAL.STYLES))
|
||||
(COMS (* ;
|
||||
"stuff for supporting the TEXTBOX sketch element.")
|
||||
"stuff for supporting the TEXTBOX sketch element.")
|
||||
(FNS SKETCH.CREATE.TEXTBOX SK.COMPUTE.TEXTBOX.REGION.FOR.STRING SK.BREAK.INTO.LINES
|
||||
SK.BRUSH.SIZE SK.TEXTBOX.CREATE SK.TEXTBOX.CREATE1 SK.UPDATE.TEXTBOX.AFTER.CHANGE
|
||||
SK.TEXTBOX.POSITION.IN.BOX TEXTBOX.CHANGEFN TEXTBOX.DRAWFN
|
||||
@@ -153,13 +154,13 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
SK.TEXTBOX.FROM.TEXT ADD.EOLS)
|
||||
(DECLARE%: DONTCOPY (RECORDS LOCALTEXTBOX TEXTBOX))
|
||||
(COMS (* ;
|
||||
"stuff to handle default alignment for text boxes")
|
||||
"stuff to handle default alignment for text boxes")
|
||||
(FNS SK.SET.TEXTBOX.VERT.ALIGN SK.SET.TEXTBOX.HORIZ.ALIGN)
|
||||
(VARS TEXTBOXICON)
|
||||
[INITVARS (SK.DEFAULT.TEXTBOX.ALIGNMENT '(CENTER CENTER]
|
||||
(GLOBALVARS SK.DEFAULT.TEXTBOX.ALIGNMENT)))
|
||||
(COMS (* ;
|
||||
"functions to implement the box sketch element.")
|
||||
"functions to implement the box sketch element.")
|
||||
(FNS SKETCH.CREATE.BOX SK.BOX.DRAWFN BOX.DRAWFN1 KNOTS.OF.REGION SK.DRAWAREABOX
|
||||
SK.DRAWBOX SK.BOX.EXPANDFN SK.BOX.GETREGIONFN BOX.SET.SCALES SK.BOX.INPUTFN
|
||||
SK.BOX.CREATE SK.UPDATE.BOX.AFTER.CHANGE SK.BOX.INSIDEFN SK.BOX.REGIONFN
|
||||
@@ -170,7 +171,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
(DECLARE%: DONTCOPY (RECORDS BOX LOCALBOX))
|
||||
(UGLYVARS BOXICON))
|
||||
(COMS (* ;
|
||||
"fns for the arc sketch element type")
|
||||
"fns for the arc sketch element type")
|
||||
(FNS SKETCH.CREATE.ARC ARC.DRAWFN ARC.EXPANDFN ARC.INPUTFN SK.INVERT.CIRCLE
|
||||
SK.READ.ARC.ANGLE.POINT SK.SHOW.ARC ARC.CREATE SK.UPDATE.ARC.AFTER.CHANGE
|
||||
ARC.MOVEFN ARC.TRANSLATEPTS ARC.INSIDEFN ARC.REGIONFN ARC.GLOBALREGIONFN
|
||||
@@ -185,7 +186,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
(CURSORS ARC.RADIUS.CURSOR ARC.ANGLE.CURSOR CW.ARC.ANGLE.CURSOR CW.ARC.RADIUS.CURSOR)
|
||||
(UGLYVARS ARCICON))
|
||||
(COMS (* ;
|
||||
"property getting and setting stuff")
|
||||
"property getting and setting stuff")
|
||||
(FNS GETSKETCHELEMENTPROP \SK.GET.ARC.ANGLEPT \GETSKETCHELEMENTPROP1 \SK.GET.BRUSH
|
||||
\SK.GET.FILLING \SK.GET.ARROWHEADS \SK.GET.FONT \SK.GET.JUSTIFICATION
|
||||
\SK.GET.DIRECTION \SK.GET.DASHING PUTSKETCHELEMENTPROP \SK.PUT.FILLING
|
||||
@@ -375,7 +376,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(CREATE.SKETCH.ELEMENT.TYPE
|
||||
[LAMBDA (SKETCHTYPE LABEL DOCSTR DRAWFN EXPANDFN OBSOLETE CHANGEFN INPUTFN INSIDEFN REGIONFN
|
||||
TRANSLATEFN UPDATEFN READCHANGEFN TRANSFORMFN TRANSLATEPTSFN GLOBALREGIONFN)
|
||||
TRANSLATEFN UPDATEFN READCHANGEFN TRANSFORMFN TRANSLATEPTSFN GLOBALREGIONFN)
|
||||
(* rrb "18-Oct-85 17:18")
|
||||
(* creates a new sketch element type.)
|
||||
(COND
|
||||
@@ -1124,17 +1125,16 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR)
|
||||
BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1)
|
||||
BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD LOCALCIRCLE ((CENTERPOSITION RADIUSPOSITION)
|
||||
LOCALHOTREGION RADIUS LOCALCIRCLEBRUSH LOCALCIRCLEFILLING LOCALCIRCLEDASHING
|
||||
))
|
||||
LOCALHOTREGION RADIUS LOCALCIRCLEBRUSH LOCALCIRCLEFILLING LOCALCIRCLEDASHING))
|
||||
|
||||
(TYPERECORD CIRCLE (CENTERLATLON RADIUSLATLON BRUSH DASHING CIRCLEINITSCALE CIRCLEFILLING
|
||||
CIRCLEREGION))
|
||||
CIRCLEREGION))
|
||||
)
|
||||
)
|
||||
|
||||
@@ -1645,11 +1645,11 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation.
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD LOCALELLIPSE ((ELLIPSECENTER MINORRADIUSPOSITION MAJORRADIUSPOSITION)
|
||||
LOCALHOTREGION SEMIMINORRADIUS SEMIMAJORRADIUS LOCALELLIPSEBRUSH
|
||||
LOCALELLIPSEDASHING LOCALELLIPSEFILLING))
|
||||
LOCALHOTREGION SEMIMINORRADIUS SEMIMAJORRADIUS LOCALELLIPSEBRUSH
|
||||
LOCALELLIPSEDASHING LOCALELLIPSEFILLING))
|
||||
|
||||
(TYPERECORD ELLIPSE (ELLIPSECENTERLATLON SEMIMINORLATLON SEMIMAJORLATLON ORIENTATION BRUSH
|
||||
DASHING ELLIPSEINITSCALE ELLIPSEFILLING ELLIPSEREGION))
|
||||
(TYPERECORD ELLIPSE (ELLIPSECENTERLATLON SEMIMINORLATLON SEMIMAJORLATLON ORIENTATION BRUSH DASHING
|
||||
ELLIPSEINITSCALE ELLIPSEFILLING ELLIPSEREGION))
|
||||
)
|
||||
)
|
||||
|
||||
@@ -2710,14 +2710,14 @@ Click outside the window to stop.")
|
||||
|
||||
(RECORD LOCALCURVE (KNOTS LOCALHOTREGION ARROWHEADPTS LOCALCURVEBRUSH LOCALCURVEDASHING))
|
||||
|
||||
(TYPERECORD OPENCURVE (LATLONKNOTS BRUSH DASHING CURVEARROWHEADS OPENCURVEINITSCALE
|
||||
OPENCURVEREGION OPENCURVEARROWHEADPOINTS))
|
||||
(TYPERECORD OPENCURVE (LATLONKNOTS BRUSH DASHING CURVEARROWHEADS OPENCURVEINITSCALE OPENCURVEREGION
|
||||
OPENCURVEARROWHEADPOINTS))
|
||||
|
||||
(TYPERECORD CLOSEDCURVE (LATLONKNOTS BRUSH DASHING CLOSEDCURVEINITSCALE CLOSEDCURVEFILLING
|
||||
CLOSEDCURVEREGION))
|
||||
CLOSEDCURVEREGION))
|
||||
|
||||
(RECORD LOCALCLOSEDCURVE (LOCALCLOSEDCURVEKNOTS LOCALCLOSEDCURVEHOTREGION LOCALCLOSEDCURVEBRUSH
|
||||
LOCALCLOSEDCURVEFILLING LOCALCLOSEDCURVEDASHING))
|
||||
LOCALCLOSEDCURVEFILLING LOCALCLOSEDCURVEDASHING))
|
||||
|
||||
(RECORD LOCALCLOSEDWIRE (KNOTS LOCALHOTREGION LOCALCLOSEDWIREBRUSH LOCALCLOSEDWIREFILLING))
|
||||
)
|
||||
@@ -4311,11 +4311,11 @@ Click outside the window to stop.")
|
||||
|
||||
(RECORD LOCALWIRE (KNOTS LOCALHOTREGION ARROWHEADPTS LOCALOPENWIREBRUSH LOCALWIREDASHING))
|
||||
|
||||
(TYPERECORD WIRE (LATLONKNOTS BRUSH WIREARROWHEADS OPENWIREDASHING OPENWIREINITSCALE
|
||||
OPENWIREREGION OPENWIREARROWHEADPOINTS))
|
||||
(TYPERECORD WIRE (LATLONKNOTS BRUSH WIREARROWHEADS OPENWIREDASHING OPENWIREINITSCALE OPENWIREREGION
|
||||
OPENWIREARROWHEADPOINTS))
|
||||
|
||||
(TYPERECORD CLOSEDWIRE (LATLONKNOTS BRUSH CLOSEDWIREDASHING CLOSEDWIREINITSCALE CLOSEDWIREFILLING
|
||||
CLOSEDWIREREGION))
|
||||
(TYPERECORD CLOSEDWIRE (LATLONKNOTS BRUSH CLOSEDWIREDASHING CLOSEDWIREINITSCALE CLOSEDWIREFILLING
|
||||
CLOSEDWIREREGION))
|
||||
|
||||
(RECORD LOCALCLOSEDWIRE (KNOTS LOCALHOTREGION LOCALCLOSEDWIREBRUSH LOCALCLOSEDWIREFILLING))
|
||||
)
|
||||
@@ -5743,11 +5743,11 @@ Click outside the window to stop.")
|
||||
(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(TYPERECORD TEXT (LOCATIONLATLON LISTOFCHARACTERS INITIALSCALE TEXTSTYLE FONT LISTOFREGIONS
|
||||
TEXTCOLOR))
|
||||
(TYPERECORD TEXT (LOCATIONLATLON LISTOFCHARACTERS INITIALSCALE TEXTSTYLE FONT LISTOFREGIONS TEXTCOLOR
|
||||
))
|
||||
|
||||
(RECORD LOCALTEXT ((DISPLAYPOSITION)
|
||||
LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS))
|
||||
LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS))
|
||||
)
|
||||
)
|
||||
(DEFINEQ
|
||||
@@ -6985,12 +6985,11 @@ No more font sizes found.")))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD LOCALTEXTBOX ((TEXTBOXLL TEXTBOXUR)
|
||||
LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS
|
||||
LOCALTEXTBOXREGION LOCALTEXTBOXBRUSH LOCALTEXTBOXFILLING
|
||||
LOCALTEXTBOXDASHING))
|
||||
LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS LOCALTEXTBOXREGION
|
||||
LOCALTEXTBOXBRUSH LOCALTEXTBOXFILLING LOCALTEXTBOXDASHING))
|
||||
|
||||
(TYPERECORD TEXTBOX (TEXTBOXREGION LISTOFCHARACTERS INITIALSCALE TEXTSTYLE FONT LISTOFREGIONS
|
||||
TEXTCOLOR TEXTBOXBRUSH TEXTBOXDASHING TEXTBOXFILLING))
|
||||
TEXTCOLOR TEXTBOXBRUSH TEXTBOXDASHING TEXTBOXFILLING))
|
||||
)
|
||||
)
|
||||
|
||||
@@ -7822,7 +7821,7 @@ No more font sizes found.")))
|
||||
(TYPERECORD BOX (GLOBALREGION BRUSH BOXDASHING BOXINITSCALE BOXFILLING))
|
||||
|
||||
(RECORD LOCALBOX ((BOXLL BOXUR)
|
||||
LOCALHOTREGION LOCALREGION LOCALBOXBRUSH LOCALBOXFILLING LOCALBOXDASHING))
|
||||
LOCALHOTREGION LOCALREGION LOCALBOXBRUSH LOCALBOXFILLING LOCALBOXDASHING))
|
||||
)
|
||||
)
|
||||
|
||||
@@ -8468,12 +8467,11 @@ No more font sizes found.")))
|
||||
(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(TYPERECORD ARC (ARCCENTERPT ARCRADIUSPT ARCBRUSH ARCDASHING ARCINITSCALE ARCARROWHEADS
|
||||
ARCANGLEPT ARCDIRECTION ARCREGION ARCARROWHEADPOINTS))
|
||||
(TYPERECORD ARC (ARCCENTERPT ARCRADIUSPT ARCBRUSH ARCDASHING ARCINITSCALE ARCARROWHEADS ARCANGLEPT
|
||||
ARCDIRECTION ARCREGION ARCARROWHEADPOINTS))
|
||||
|
||||
(RECORD LOCALARC ((LOCALARCCENTERPT LOCALARCRADIUSPT LOCALARCANGLEPT)
|
||||
LOCALHOTREGION LOCALARCARROWHEADPTS LOCALARCBRUSH LOCALARCKNOTS LOCALARCDASHING
|
||||
))
|
||||
LOCALHOTREGION LOCALARCARROWHEADPTS LOCALARCBRUSH LOCALARCKNOTS LOCALARCDASHING))
|
||||
)
|
||||
)
|
||||
(RPAQ ARC.RADIUS.CURSOR (CURSORCREATE (QUOTE #*(16 16)@@@L@@@D@@@F@@@B@@@C@@LA@@OA@@CMOOOO@@CL@@O@@@L@@@@@@@@@@@@@@@@@
|
||||
@@ -9284,137 +9282,137 @@ No more font sizes found.")))
|
||||
(PUTPROPS SKETCHELEMENTS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1992 1993
|
||||
2000 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (14335 24749 (INIT.SKETCH.ELEMENTS 14345 . 21908) (CREATE.SKETCH.ELEMENT.TYPE 21910 .
|
||||
23436) (SKETCH.ELEMENT.TYPEP 23438 . 23826) (SKETCH.ELEMENT.NAMEP 23828 . 24091) (
|
||||
\CURSOR.IN.MIDDLE.MENU 24093 . 24747)) (24790 25467 (SKETCHINCOLORP 24800 . 25120) (READ.COLOR.CHANGE
|
||||
25122 . 25465)) (25976 28755 (SK.CREATE.DEFAULT.FILLING 25986 . 26287) (SKFILLINGP 26289 . 26922) (
|
||||
SK.INSURE.FILLING 26924 . 28352) (SK.INSURE.COLOR 28354 . 28753)) (28756 34366 (SK.TRANSLATE.MODE
|
||||
28766 . 29548) (SK.CHANGE.FILLING.MODE 29550 . 33133) (READ.FILLING.MODE 33135 . 34364)) (34367 65041
|
||||
(SKETCH.CREATE.CIRCLE 34377 . 35189) (CIRCLE.EXPANDFN 35191 . 38563) (CIRCLE.DRAWFN 38565 . 41566) (
|
||||
\CIRCLE.DRAWFN1 41568 . 44163) (CIRCLE.INPUTFN 44165 . 46014) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46016 .
|
||||
46375) (SK.READ.CIRCLE.POINT 46377 . 46848) (SK.SHOW.CIRCLE 46850 . 47496) (CIRCLE.INSIDEFN 47498 .
|
||||
47763) (CIRCLE.REGIONFN 47765 . 49446) (CIRCLE.GLOBALREGIONFN 49448 . 50966) (CIRCLE.TRANSLATE 50968
|
||||
. 52829) (CIRCLE.READCHANGEFN 52831 . 57447) (CIRCLE.TRANSFORMFN 57449 . 59302) (CIRCLE.TRANSLATEPTS
|
||||
59304 . 60918) (SK.CIRCLE.CREATE 60920 . 61763) (SET.CIRCLE.SCALE 61765 . 62531) (SK.BRUSH.READCHANGE
|
||||
62533 . 65039)) (65042 65771 (SK.INSURE.BRUSH 65052 . 65446) (SK.INSURE.DASHING 65448 . 65769)) (67023
|
||||
96517 (SKETCH.CREATE.ELLIPSE 67033 . 67632) (ELLIPSE.EXPANDFN 67634 . 71246) (ELLIPSE.DRAWFN 71248 .
|
||||
75425) (ELLIPSE.INPUTFN 75427 . 77867) (SK.READ.ELLIPSE.MAJOR.PT 77869 . 78448) (
|
||||
SK.SHOW.ELLIPSE.MAJOR.RADIUS 78450 . 79205) (SK.READ.ELLIPSE.MINOR.PT 79207 . 79900) (
|
||||
SK.SHOW.ELLIPSE.MINOR.RADIUS 79902 . 80734) (ELLIPSE.INSIDEFN 80736 . 81006) (ELLIPSE.CREATE 81008 .
|
||||
82383) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82385 . 82753) (ELLIPSE.REGIONFN 82755 . 84955) (
|
||||
ELLIPSE.GLOBALREGIONFN 84957 . 86770) (ELLIPSE.TRANSLATEFN 86772 . 89318) (ELLIPSE.TRANSFORMFN 89320
|
||||
. 90597) (ELLIPSE.TRANSLATEPTS 90599 . 92640) (MARK.SPOT 92642 . 93893) (DISTANCEBETWEEN 93895 .
|
||||
94490) (SK.DISTANCE.TO 94492 . 94877) (SQUARE 94879 . 94921) (COMPUTE.ELLIPSE.ORIENTATION 94923 .
|
||||
95642) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95644 . 96515)) (97642 138698 (SKETCH.CREATE.OPEN.CURVE
|
||||
97652 . 98205) (OPENCURVE.INPUTFN 98207 . 99075) (SK.CURVE.CREATE 99077 . 100822) (MAXXEXTENT 100824
|
||||
. 101683) (MAXYEXTENT 101685 . 102545) (KNOT.SET.SCALE.FIELD 102547 . 103349) (OPENCURVE.DRAWFN
|
||||
103351 . 104482) (OPENCURVE.EXPANDFN 104484 . 107799) (OPENCURVE.READCHANGEFN 107801 . 111003) (
|
||||
OPENCURVE.TRANSFORMFN 111005 . 113503) (OPENCURVE.TRANSLATEFN 113505 . 113927) (
|
||||
OPENCURVE.TRANSLATEPTSFN 113929 . 115310) (SKETCH.CREATE.CLOSED.CURVE 115312 . 115818) (
|
||||
CLOSEDCURVE.DRAWFN 115820 . 116604) (CLOSEDCURVE.EXPANDFN 116606 . 119719) (CLOSEDCURVE.REGIONFN
|
||||
119721 . 120518) (CLOSEDCURVE.GLOBALREGIONFN 120520 . 121953) (READ.LIST.OF.POINTS 121955 . 123934) (
|
||||
CLOSEDCURVE.INPUTFN 123936 . 124581) (CLOSEDCURVE.READCHANGEFN 124583 . 127478) (
|
||||
CLOSEDCURVE.TRANSFORMFN 127480 . 129280) (CLOSEDCURVE.TRANSLATEPTSFN 129282 . 130627) (INVISIBLEPARTP
|
||||
130629 . 130982) (SHOWSKETCHPOINT 130984 . 131289) (SHOWSKETCHXY 131291 . 131809) (KNOTS.REGIONFN
|
||||
131811 . 132712) (OPENWIRE.GLOBALREGIONFN 132714 . 133578) (CURVE.REGIONFN 133580 . 134521) (
|
||||
OPENCURVE.GLOBALREGIONFN 134523 . 135930) (KNOTS.TRANSLATEFN 135932 . 136975) (REGION.CONTAINING.PTS
|
||||
136977 . 138696)) (138699 160975 (CHANGE.ELTS.BRUSH.SIZE 138709 . 139319) (CHANGE.ELTS.BRUSH 139321 .
|
||||
139838) (CHANGE.ELTS.BRUSH.SHAPE 139840 . 140241) (SK.CHANGE.BRUSH.SHAPE 140243 . 143755) (
|
||||
SK.CHANGE.BRUSH.COLOR 143757 . 148203) (SK.CHANGE.BRUSH.SIZE 148205 . 153163) (SK.CHANGE.ANGLE 153165
|
||||
. 156145) (SK.CHANGE.ARC.DIRECTION 156147 . 158526) (SK.SET.DEFAULT.BRUSH.SIZE 158528 . 159227) (
|
||||
READSIZECHANGE 159229 . 160973)) (160976 162595 (SK.CHANGE.ELEMENT.KNOTS 160986 . 162593)) (162596
|
||||
163243 (SK.INSURE.POINT.LIST 162606 . 163059) (SK.INSURE.POSITION 163061 . 163241)) (164623 196946 (
|
||||
SKETCH.CREATE.WIRE 164633 . 165123) (CLOSEDWIRE.EXPANDFN 165125 . 167813) (KNOTS.INSIDEFN 167815 .
|
||||
168536) (OPEN.WIRE.DRAWFN 168538 . 169130) (WIRE.EXPANDFN 169132 . 172379) (
|
||||
SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172381 . 172902) (OPENWIRE.READCHANGEFN 172904 . 175397) (
|
||||
OPENWIRE.TRANSFORMFN 175399 . 177522) (OPENWIRE.TRANSLATEFN 177524 . 177948) (OPENWIRE.TRANSLATEPTSFN
|
||||
177950 . 179229) (WIRE.INPUTFN 179231 . 180862) (SK.READ.WIRE.POINTS 180864 . 181395) (
|
||||
SK.READ.POINTS.WITH.FEEDBACK 181397 . 184164) (OPENWIRE.FEEDBACKFN 184166 . 184920) (
|
||||
CLOSEDWIRE.FEEDBACKFN 184922 . 186278) (CLOSEDWIRE.REGIONFN 186280 . 187265) (
|
||||
CLOSEDWIRE.GLOBALREGIONFN 187267 . 188319) (SK.WIRE.CREATE 188321 . 190084) (WIRE.ADD.POINT.TO.END
|
||||
190086 . 191002) (READ.ARROW.CHANGE 191004 . 196480) (CHANGE.ELTS.ARROWHEADS 196482 . 196944)) (196947
|
||||
207953 (SKETCH.CREATE.CLOSED.WIRE 196957 . 197518) (CLOSED.WIRE.INPUTFN 197520 . 197875) (
|
||||
CLOSED.WIRE.DRAWFN 197877 . 199922) (CLOSEDWIRE.READCHANGEFN 199924 . 204829) (CLOSEDWIRE.TRANSFORMFN
|
||||
204831 . 206625) (CLOSEDWIRE.TRANSLATEPTSFN 206627 . 207951)) (207954 260660 (SK.EXPAND.ARROWHEADS
|
||||
207964 . 208314) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208316 . 209697) (ARC.ARROWHEAD.POINTS 209699 .
|
||||
210922) (SET.ARC.ARROWHEAD.POINTS 210924 . 211905) (SET.OPENCURVE.ARROWHEAD.POINTS 211907 . 212808) (
|
||||
SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212810 . 214080) (SET.WIRE.ARROWHEAD.POINTS 214082 . 214835) (
|
||||
SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214837 . 216102) (SK.EXPAND.ARROWHEAD 216104 . 217287) (CHANGED.ARROW
|
||||
217289 . 220461) (SK.CHANGE.ARROWHEAD 220463 . 220916) (SK.CHANGE.ARROWHEAD1 220918 . 226173) (
|
||||
SK.CREATE.ARROWHEAD 226175 . 226695) (SK.ARROWHEAD.CREATE 226697 . 228271) (SK.ARROWHEAD.END.TEST
|
||||
228273 . 229197) (READ.ARROWHEAD.END 229199 . 231224) (ARROW.HEAD.POSITIONS 231226 . 233066) (
|
||||
ARROWHEAD.POINTS.LIST 233068 . 237040) (CURVE.ARROWHEAD.POINTS 237042 . 237905) (LEFT.MOST.IS.BEGINP
|
||||
237907 . 238788) (WIRE.ARROWHEAD.POINTS 238790 . 240316) (DRAWARROWHEADS 240318 . 242688) (
|
||||
\SK.DRAW.TRIANGLE.ARROWHEAD 242690 . 244350) (\SK.ENDPT.OF.ARROW 244352 . 246609) (
|
||||
\SK.ADJUST.FOR.ARROWHEADS 246611 . 249116) (SK.SET.ARROWHEAD.LENGTH 249118 . 250262) (
|
||||
SK.SET.ARROWHEAD.ANGLE 250264 . 251360) (SK.SET.ARROWHEAD.TYPE 251362 . 254651) (SK.SET.LINE.ARROWHEAD
|
||||
254653 . 257066) (SK.UPDATE.ARROWHEAD.FORMAT 257068 . 259178) (SK.SET.LINE.LENGTH.MODE 259180 .
|
||||
260658)) (260661 262462 (SK.INSURE.ARROWHEADS 260671 . 261853) (SK.ARROWHEADP 261855 . 262460)) (
|
||||
265266 327592 (SKETCH.CREATE.TEXT 265276 . 265790) (TEXT.CHANGEFN 265792 . 266184) (TEXT.READCHANGEFN
|
||||
266186 . 274257) (\SK.READ.FONT.SIZE1 274259 . 276155) (SK.TEXT.ELT.WITH.SAME.FIELDS 276157 . 277797)
|
||||
(SK.READFONTFAMILY 277799 . 279345) (CLOSE.PROMPT.WINDOW 279347 . 279771) (TEXT.DRAWFN 279773 . 280494
|
||||
) (TEXT.DRAWFN1 280496 . 283998) (TEXT.INSIDEFN 284000 . 284389) (TEXT.EXPANDFN 284391 . 286516) (
|
||||
SK.TEXT.LINE.REGIONS 286518 . 288392) (TEXT.UPDATE.GLOBAL.REGIONS 288394 . 289626) (REL.MOVE.REGION
|
||||
289628 . 290165) (LTEXT.LINE.REGIONS 290167 . 293585) (TEXT.INPUTFN 293587 . 294097) (READ.TEXT 294099
|
||||
. 294847) (TEXT.POSITION.AND.CREATE 294849 . 297160) (CREATE.TEXT.ELEMENT 297162 . 297980) (
|
||||
SK.UPDATE.TEXT.AFTER.CHANGE 297982 . 298384) (SK.TEXT.FROM.TEXTBOX 298386 . 302192) (
|
||||
TEXT.SET.GLOBAL.REGIONS 302194 . 303487) (TEXT.REGIONFN 303489 . 304259) (TEXT.GLOBALREGIONFN 304261
|
||||
. 304949) (TEXT.TRANSLATEFN 304951 . 306266) (TEXT.TRANSFORMFN 306268 . 307391) (TEXT.TRANSLATEPTSFN
|
||||
307393 . 307910) (TEXT.UPDATEFN 307912 . 312568) (SK.CHANGE.TEXT 312570 . 325658) (TEXT.SET.SCALES
|
||||
325660 . 326628) (BREAK.AT.CARRIAGE.RETURNS 326630 . 327590)) (327593 346117 (ADD.KNOWN.SKETCH.FONT
|
||||
327603 . 328594) (SK.PICK.FONT 328596 . 334128) (SK.CHOOSE.TEXT.FONT 334130 . 338078) (SK.NEXTSIZEFONT
|
||||
338080 . 339347) (SK.DECREASING.FONT.LIST 339349 . 341222) (SK.GUESS.FONTSAVAILABLE 341224 . 346115))
|
||||
(346544 360687 (SK.SET.FONT 346554 . 348121) (SK.SET.TEXT.FONT 348123 . 349125) (SK.SET.TEXT.SIZE
|
||||
349127 . 349814) (SK.SET.TEXT.HORIZ.ALIGN 349816 . 351390) (SK.READFONTSIZE 351392 . 353622) (
|
||||
SK.COLLECT.FONT.SIZES 353624 . 356542) (SK.SET.TEXT.VERT.ALIGN 356544 . 358586) (SK.SET.TEXT.LOOKS
|
||||
358588 . 360045) (SK.SET.DEFAULT.TEXT.FACE 360047 . 360685)) (360688 361274 (CREATE.SKETCH.TERMTABLE
|
||||
360698 . 361272)) (361275 363041 (SK.FONT.LIST 361285 . 361611) (SK.INSURE.FONT 361613 . 362135) (
|
||||
SK.INSURE.STYLE 362137 . 362655) (SK.INSURE.TEXT 362657 . 363039)) (363611 420904 (
|
||||
SKETCH.CREATE.TEXTBOX 363621 . 365263) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365265 . 367342) (
|
||||
SK.BREAK.INTO.LINES 367344 . 378530) (SK.BRUSH.SIZE 378532 . 378913) (SK.TEXTBOX.CREATE 378915 .
|
||||
379712) (SK.TEXTBOX.CREATE1 379714 . 380778) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380780 . 381320) (
|
||||
SK.TEXTBOX.POSITION.IN.BOX 381322 . 383233) (TEXTBOX.CHANGEFN 383235 . 383709) (TEXTBOX.DRAWFN 383711
|
||||
. 385747) (SK.TEXTURE.AROUND.REGIONS 385749 . 391822) (ALL.EMPTY.REGIONS 391824 . 392314) (
|
||||
TEXTBOX.EXPANDFN 392316 . 399472) (TEXTBOX.INPUTFN 399474 . 401087) (TEXTBOX.INSIDEFN 401089 . 401502)
|
||||
(TEXTBOX.REGIONFN 401504 . 402358) (TEXTBOX.GLOBALREGIONFN 402360 . 402688) (
|
||||
TEXTBOX.SET.GLOBAL.REGIONS 402690 . 404021) (TEXTBOX.TRANSLATEFN 404023 . 405864) (
|
||||
TEXTBOX.TRANSLATEPTSFN 405866 . 408649) (TEXTBOX.TRANSFORMFN 408651 . 410319) (TEXTBOX.UPDATEFN 410321
|
||||
. 412214) (TEXTBOX.READCHANGEFN 412216 . 417105) (SK.TEXTBOX.TEXT.POSITION 417107 . 417528) (
|
||||
SK.TEXTBOX.FROM.TEXT 417530 . 420135) (ADD.EOLS 420137 . 420902)) (421472 424973 (
|
||||
SK.SET.TEXTBOX.VERT.ALIGN 421482 . 423362) (SK.SET.TEXTBOX.HORIZ.ALIGN 423364 . 424971)) (425356
|
||||
469831 (SKETCH.CREATE.BOX 425366 . 425849) (SK.BOX.DRAWFN 425851 . 427010) (BOX.DRAWFN1 427012 .
|
||||
429851) (KNOTS.OF.REGION 429853 . 431087) (SK.DRAWAREABOX 431089 . 437690) (SK.DRAWBOX 437692 . 438881
|
||||
) (SK.BOX.EXPANDFN 438883 . 442631) (SK.BOX.GETREGIONFN 442633 . 443819) (BOX.SET.SCALES 443821 .
|
||||
445061) (SK.BOX.INPUTFN 445063 . 446996) (SK.BOX.CREATE 446998 . 447699) (SK.UPDATE.BOX.AFTER.CHANGE
|
||||
447701 . 448212) (SK.BOX.INSIDEFN 448214 . 448604) (SK.BOX.REGIONFN 448606 . 449319) (
|
||||
SK.BOX.GLOBALREGIONFN 449321 . 450059) (SK.BOX.READCHANGEFN 450061 . 453782) (SK.CHANGE.FILLING 453784
|
||||
. 457732) (SK.CHANGE.FILLING.COLOR 457734 . 461390) (SK.BOX.TRANSLATEFN 461392 . 462571) (
|
||||
SK.BOX.TRANSFORMFN 462573 . 463518) (SK.BOX.TRANSLATEPTSFN 463520 . 465888) (UNSCALE.REGION.TO.GRID
|
||||
465890 . 466815) (INCREASEREGION 466817 . 467408) (INSUREREGIONSIZE 467410 . 468581) (EXPANDREGION
|
||||
468583 . 469463) (REGION.FROM.COORDINATES 469465 . 469829)) (470371 496726 (SKETCH.CREATE.ARC 470381
|
||||
. 471190) (ARC.DRAWFN 471192 . 472919) (ARC.EXPANDFN 472921 . 475254) (ARC.INPUTFN 475256 . 479474) (
|
||||
SK.INVERT.CIRCLE 479476 . 480336) (SK.READ.ARC.ANGLE.POINT 480338 . 480845) (SK.SHOW.ARC 480847 .
|
||||
481457) (ARC.CREATE 481459 . 482814) (SK.UPDATE.ARC.AFTER.CHANGE 482816 . 483156) (ARC.MOVEFN 483158
|
||||
. 484741) (ARC.TRANSLATEPTS 484743 . 486628) (ARC.INSIDEFN 486630 . 486880) (ARC.REGIONFN 486882 .
|
||||
488018) (ARC.GLOBALREGIONFN 488020 . 489742) (ARC.TRANSLATE 489744 . 490726) (ARC.TRANSFORMFN 490728
|
||||
. 493678) (ARC.READCHANGEFN 493680 . 496724)) (496727 505806 (SK.COMPUTE.ARC.ANGLE.PT 496737 . 497663
|
||||
) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497665 . 498658) (SK.COMPUTE.ARC.PTS 498660 . 502232) (
|
||||
SK.SET.ARC.DIRECTION 502234 . 502808) (SK.SET.ARC.DIRECTION.CW 502810 . 502984) (
|
||||
SK.SET.ARC.DIRECTION.CCW 502986 . 503259) (SK.COMPUTE.SLOPE.OF.LINE 503261 . 503753) (
|
||||
SK.CREATE.ARC.USING 503755 . 504992) (SET.ARC.SCALES 504994 . 505804)) (505807 506252 (
|
||||
SK.INSURE.DIRECTION 505817 . 506250)) (507654 553513 (GETSKETCHELEMENTPROP 507664 . 508972) (
|
||||
\SK.GET.ARC.ANGLEPT 508974 . 509535) (\GETSKETCHELEMENTPROP1 509537 . 509791) (\SK.GET.BRUSH 509793 .
|
||||
510717) (\SK.GET.FILLING 510719 . 511817) (\SK.GET.ARROWHEADS 511819 . 512598) (\SK.GET.FONT 512600 .
|
||||
513080) (\SK.GET.JUSTIFICATION 513082 . 513606) (\SK.GET.DIRECTION 513608 . 514085) (\SK.GET.DASHING
|
||||
514087 . 515106) (PUTSKETCHELEMENTPROP 515108 . 517377) (\SK.PUT.FILLING 517379 . 518649) (
|
||||
ADDSKETCHELEMENTPROP 518651 . 519456) (REMOVESKETCHELEMENTPROP 519458 . 520247) (\SK.PUT.FONT 520249
|
||||
. 521063) (\SK.PUT.JUSTIFICATION 521065 . 522076) (\SK.PUT.DIRECTION 522078 . 522685) (
|
||||
\SK.PUT.DASHING 522687 . 524022) (\SK.PUT.BRUSH 524024 . 525943) (\SK.PUT.ARROWHEADS 525945 . 527911)
|
||||
(SK.COPY.ELEMENT.PROPERTY.LIST 527913 . 528489) (SKETCH.UPDATE 528491 . 529221) (SKETCH.UPDATE1 529223
|
||||
. 530511) (\SKELT.GET.SCALE 530513 . 531501) (\SKELT.PUT.SCALE 531503 . 532810) (\SKELT.PUT.DATA
|
||||
532812 . 534609) (SK.REPLACE.TEXT.IN.ELEMENT 534611 . 535564) (\SKELT.GET.DATA 535566 . 536633) (
|
||||
\SK.GET.1STCONTROLPT 536635 . 538147) (\SK.PUT.1STCONTROLPT 538149 . 543622) (\SK.GET.2NDCONTROLPT
|
||||
543624 . 544539) (\SK.PUT.2NDCONTROLPT 544541 . 548729) (\SK.GET.3RDCONTROLPT 548731 . 549609) (
|
||||
\SK.PUT.3RDCONTROLPT 549611 . 553511)) (553514 554095 (LOWERLEFTCORNER 553524 . 553770) (
|
||||
UPPERRIGHTCORNER 553772 . 554093)))))
|
||||
(FILEMAP (NIL (14359 24769 (INIT.SKETCH.ELEMENTS 14369 . 21932) (CREATE.SKETCH.ELEMENT.TYPE 21934 .
|
||||
23456) (SKETCH.ELEMENT.TYPEP 23458 . 23846) (SKETCH.ELEMENT.NAMEP 23848 . 24111) (
|
||||
\CURSOR.IN.MIDDLE.MENU 24113 . 24767)) (24810 25487 (SKETCHINCOLORP 24820 . 25140) (READ.COLOR.CHANGE
|
||||
25142 . 25485)) (25996 28775 (SK.CREATE.DEFAULT.FILLING 26006 . 26307) (SKFILLINGP 26309 . 26942) (
|
||||
SK.INSURE.FILLING 26944 . 28372) (SK.INSURE.COLOR 28374 . 28773)) (28776 34386 (SK.TRANSLATE.MODE
|
||||
28786 . 29568) (SK.CHANGE.FILLING.MODE 29570 . 33153) (READ.FILLING.MODE 33155 . 34384)) (34387 65061
|
||||
(SKETCH.CREATE.CIRCLE 34397 . 35209) (CIRCLE.EXPANDFN 35211 . 38583) (CIRCLE.DRAWFN 38585 . 41586) (
|
||||
\CIRCLE.DRAWFN1 41588 . 44183) (CIRCLE.INPUTFN 44185 . 46034) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46036 .
|
||||
46395) (SK.READ.CIRCLE.POINT 46397 . 46868) (SK.SHOW.CIRCLE 46870 . 47516) (CIRCLE.INSIDEFN 47518 .
|
||||
47783) (CIRCLE.REGIONFN 47785 . 49466) (CIRCLE.GLOBALREGIONFN 49468 . 50986) (CIRCLE.TRANSLATE 50988
|
||||
. 52849) (CIRCLE.READCHANGEFN 52851 . 57467) (CIRCLE.TRANSFORMFN 57469 . 59322) (CIRCLE.TRANSLATEPTS
|
||||
59324 . 60938) (SK.CIRCLE.CREATE 60940 . 61783) (SET.CIRCLE.SCALE 61785 . 62551) (SK.BRUSH.READCHANGE
|
||||
62553 . 65059)) (65062 65791 (SK.INSURE.BRUSH 65072 . 65466) (SK.INSURE.DASHING 65468 . 65789)) (67005
|
||||
96499 (SKETCH.CREATE.ELLIPSE 67015 . 67614) (ELLIPSE.EXPANDFN 67616 . 71228) (ELLIPSE.DRAWFN 71230 .
|
||||
75407) (ELLIPSE.INPUTFN 75409 . 77849) (SK.READ.ELLIPSE.MAJOR.PT 77851 . 78430) (
|
||||
SK.SHOW.ELLIPSE.MAJOR.RADIUS 78432 . 79187) (SK.READ.ELLIPSE.MINOR.PT 79189 . 79882) (
|
||||
SK.SHOW.ELLIPSE.MINOR.RADIUS 79884 . 80716) (ELLIPSE.INSIDEFN 80718 . 80988) (ELLIPSE.CREATE 80990 .
|
||||
82365) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82367 . 82735) (ELLIPSE.REGIONFN 82737 . 84937) (
|
||||
ELLIPSE.GLOBALREGIONFN 84939 . 86752) (ELLIPSE.TRANSLATEFN 86754 . 89300) (ELLIPSE.TRANSFORMFN 89302
|
||||
. 90579) (ELLIPSE.TRANSLATEPTS 90581 . 92622) (MARK.SPOT 92624 . 93875) (DISTANCEBETWEEN 93877 .
|
||||
94472) (SK.DISTANCE.TO 94474 . 94859) (SQUARE 94861 . 94903) (COMPUTE.ELLIPSE.ORIENTATION 94905 .
|
||||
95624) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95626 . 96497)) (97612 138668 (SKETCH.CREATE.OPEN.CURVE
|
||||
97622 . 98175) (OPENCURVE.INPUTFN 98177 . 99045) (SK.CURVE.CREATE 99047 . 100792) (MAXXEXTENT 100794
|
||||
. 101653) (MAXYEXTENT 101655 . 102515) (KNOT.SET.SCALE.FIELD 102517 . 103319) (OPENCURVE.DRAWFN
|
||||
103321 . 104452) (OPENCURVE.EXPANDFN 104454 . 107769) (OPENCURVE.READCHANGEFN 107771 . 110973) (
|
||||
OPENCURVE.TRANSFORMFN 110975 . 113473) (OPENCURVE.TRANSLATEFN 113475 . 113897) (
|
||||
OPENCURVE.TRANSLATEPTSFN 113899 . 115280) (SKETCH.CREATE.CLOSED.CURVE 115282 . 115788) (
|
||||
CLOSEDCURVE.DRAWFN 115790 . 116574) (CLOSEDCURVE.EXPANDFN 116576 . 119689) (CLOSEDCURVE.REGIONFN
|
||||
119691 . 120488) (CLOSEDCURVE.GLOBALREGIONFN 120490 . 121923) (READ.LIST.OF.POINTS 121925 . 123904) (
|
||||
CLOSEDCURVE.INPUTFN 123906 . 124551) (CLOSEDCURVE.READCHANGEFN 124553 . 127448) (
|
||||
CLOSEDCURVE.TRANSFORMFN 127450 . 129250) (CLOSEDCURVE.TRANSLATEPTSFN 129252 . 130597) (INVISIBLEPARTP
|
||||
130599 . 130952) (SHOWSKETCHPOINT 130954 . 131259) (SHOWSKETCHXY 131261 . 131779) (KNOTS.REGIONFN
|
||||
131781 . 132682) (OPENWIRE.GLOBALREGIONFN 132684 . 133548) (CURVE.REGIONFN 133550 . 134491) (
|
||||
OPENCURVE.GLOBALREGIONFN 134493 . 135900) (KNOTS.TRANSLATEFN 135902 . 136945) (REGION.CONTAINING.PTS
|
||||
136947 . 138666)) (138669 160945 (CHANGE.ELTS.BRUSH.SIZE 138679 . 139289) (CHANGE.ELTS.BRUSH 139291 .
|
||||
139808) (CHANGE.ELTS.BRUSH.SHAPE 139810 . 140211) (SK.CHANGE.BRUSH.SHAPE 140213 . 143725) (
|
||||
SK.CHANGE.BRUSH.COLOR 143727 . 148173) (SK.CHANGE.BRUSH.SIZE 148175 . 153133) (SK.CHANGE.ANGLE 153135
|
||||
. 156115) (SK.CHANGE.ARC.DIRECTION 156117 . 158496) (SK.SET.DEFAULT.BRUSH.SIZE 158498 . 159197) (
|
||||
READSIZECHANGE 159199 . 160943)) (160946 162565 (SK.CHANGE.ELEMENT.KNOTS 160956 . 162563)) (162566
|
||||
163213 (SK.INSURE.POINT.LIST 162576 . 163029) (SK.INSURE.POSITION 163031 . 163211)) (164581 196904 (
|
||||
SKETCH.CREATE.WIRE 164591 . 165081) (CLOSEDWIRE.EXPANDFN 165083 . 167771) (KNOTS.INSIDEFN 167773 .
|
||||
168494) (OPEN.WIRE.DRAWFN 168496 . 169088) (WIRE.EXPANDFN 169090 . 172337) (
|
||||
SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172339 . 172860) (OPENWIRE.READCHANGEFN 172862 . 175355) (
|
||||
OPENWIRE.TRANSFORMFN 175357 . 177480) (OPENWIRE.TRANSLATEFN 177482 . 177906) (OPENWIRE.TRANSLATEPTSFN
|
||||
177908 . 179187) (WIRE.INPUTFN 179189 . 180820) (SK.READ.WIRE.POINTS 180822 . 181353) (
|
||||
SK.READ.POINTS.WITH.FEEDBACK 181355 . 184122) (OPENWIRE.FEEDBACKFN 184124 . 184878) (
|
||||
CLOSEDWIRE.FEEDBACKFN 184880 . 186236) (CLOSEDWIRE.REGIONFN 186238 . 187223) (
|
||||
CLOSEDWIRE.GLOBALREGIONFN 187225 . 188277) (SK.WIRE.CREATE 188279 . 190042) (WIRE.ADD.POINT.TO.END
|
||||
190044 . 190960) (READ.ARROW.CHANGE 190962 . 196438) (CHANGE.ELTS.ARROWHEADS 196440 . 196902)) (196905
|
||||
207911 (SKETCH.CREATE.CLOSED.WIRE 196915 . 197476) (CLOSED.WIRE.INPUTFN 197478 . 197833) (
|
||||
CLOSED.WIRE.DRAWFN 197835 . 199880) (CLOSEDWIRE.READCHANGEFN 199882 . 204787) (CLOSEDWIRE.TRANSFORMFN
|
||||
204789 . 206583) (CLOSEDWIRE.TRANSLATEPTSFN 206585 . 207909)) (207912 260618 (SK.EXPAND.ARROWHEADS
|
||||
207922 . 208272) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208274 . 209655) (ARC.ARROWHEAD.POINTS 209657 .
|
||||
210880) (SET.ARC.ARROWHEAD.POINTS 210882 . 211863) (SET.OPENCURVE.ARROWHEAD.POINTS 211865 . 212766) (
|
||||
SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212768 . 214038) (SET.WIRE.ARROWHEAD.POINTS 214040 . 214793) (
|
||||
SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214795 . 216060) (SK.EXPAND.ARROWHEAD 216062 . 217245) (CHANGED.ARROW
|
||||
217247 . 220419) (SK.CHANGE.ARROWHEAD 220421 . 220874) (SK.CHANGE.ARROWHEAD1 220876 . 226131) (
|
||||
SK.CREATE.ARROWHEAD 226133 . 226653) (SK.ARROWHEAD.CREATE 226655 . 228229) (SK.ARROWHEAD.END.TEST
|
||||
228231 . 229155) (READ.ARROWHEAD.END 229157 . 231182) (ARROW.HEAD.POSITIONS 231184 . 233024) (
|
||||
ARROWHEAD.POINTS.LIST 233026 . 236998) (CURVE.ARROWHEAD.POINTS 237000 . 237863) (LEFT.MOST.IS.BEGINP
|
||||
237865 . 238746) (WIRE.ARROWHEAD.POINTS 238748 . 240274) (DRAWARROWHEADS 240276 . 242646) (
|
||||
\SK.DRAW.TRIANGLE.ARROWHEAD 242648 . 244308) (\SK.ENDPT.OF.ARROW 244310 . 246567) (
|
||||
\SK.ADJUST.FOR.ARROWHEADS 246569 . 249074) (SK.SET.ARROWHEAD.LENGTH 249076 . 250220) (
|
||||
SK.SET.ARROWHEAD.ANGLE 250222 . 251318) (SK.SET.ARROWHEAD.TYPE 251320 . 254609) (SK.SET.LINE.ARROWHEAD
|
||||
254611 . 257024) (SK.UPDATE.ARROWHEAD.FORMAT 257026 . 259136) (SK.SET.LINE.LENGTH.MODE 259138 .
|
||||
260616)) (260619 262420 (SK.INSURE.ARROWHEADS 260629 . 261811) (SK.ARROWHEADP 261813 . 262418)) (
|
||||
265217 327543 (SKETCH.CREATE.TEXT 265227 . 265741) (TEXT.CHANGEFN 265743 . 266135) (TEXT.READCHANGEFN
|
||||
266137 . 274208) (\SK.READ.FONT.SIZE1 274210 . 276106) (SK.TEXT.ELT.WITH.SAME.FIELDS 276108 . 277748)
|
||||
(SK.READFONTFAMILY 277750 . 279296) (CLOSE.PROMPT.WINDOW 279298 . 279722) (TEXT.DRAWFN 279724 . 280445
|
||||
) (TEXT.DRAWFN1 280447 . 283949) (TEXT.INSIDEFN 283951 . 284340) (TEXT.EXPANDFN 284342 . 286467) (
|
||||
SK.TEXT.LINE.REGIONS 286469 . 288343) (TEXT.UPDATE.GLOBAL.REGIONS 288345 . 289577) (REL.MOVE.REGION
|
||||
289579 . 290116) (LTEXT.LINE.REGIONS 290118 . 293536) (TEXT.INPUTFN 293538 . 294048) (READ.TEXT 294050
|
||||
. 294798) (TEXT.POSITION.AND.CREATE 294800 . 297111) (CREATE.TEXT.ELEMENT 297113 . 297931) (
|
||||
SK.UPDATE.TEXT.AFTER.CHANGE 297933 . 298335) (SK.TEXT.FROM.TEXTBOX 298337 . 302143) (
|
||||
TEXT.SET.GLOBAL.REGIONS 302145 . 303438) (TEXT.REGIONFN 303440 . 304210) (TEXT.GLOBALREGIONFN 304212
|
||||
. 304900) (TEXT.TRANSLATEFN 304902 . 306217) (TEXT.TRANSFORMFN 306219 . 307342) (TEXT.TRANSLATEPTSFN
|
||||
307344 . 307861) (TEXT.UPDATEFN 307863 . 312519) (SK.CHANGE.TEXT 312521 . 325609) (TEXT.SET.SCALES
|
||||
325611 . 326579) (BREAK.AT.CARRIAGE.RETURNS 326581 . 327541)) (327544 346068 (ADD.KNOWN.SKETCH.FONT
|
||||
327554 . 328545) (SK.PICK.FONT 328547 . 334079) (SK.CHOOSE.TEXT.FONT 334081 . 338029) (SK.NEXTSIZEFONT
|
||||
338031 . 339298) (SK.DECREASING.FONT.LIST 339300 . 341173) (SK.GUESS.FONTSAVAILABLE 341175 . 346066))
|
||||
(346487 360630 (SK.SET.FONT 346497 . 348064) (SK.SET.TEXT.FONT 348066 . 349068) (SK.SET.TEXT.SIZE
|
||||
349070 . 349757) (SK.SET.TEXT.HORIZ.ALIGN 349759 . 351333) (SK.READFONTSIZE 351335 . 353565) (
|
||||
SK.COLLECT.FONT.SIZES 353567 . 356485) (SK.SET.TEXT.VERT.ALIGN 356487 . 358529) (SK.SET.TEXT.LOOKS
|
||||
358531 . 359988) (SK.SET.DEFAULT.TEXT.FACE 359990 . 360628)) (360631 361217 (CREATE.SKETCH.TERMTABLE
|
||||
360641 . 361215)) (361218 362984 (SK.FONT.LIST 361228 . 361554) (SK.INSURE.FONT 361556 . 362078) (
|
||||
SK.INSURE.STYLE 362080 . 362598) (SK.INSURE.TEXT 362600 . 362982)) (363554 420847 (
|
||||
SKETCH.CREATE.TEXTBOX 363564 . 365206) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365208 . 367285) (
|
||||
SK.BREAK.INTO.LINES 367287 . 378473) (SK.BRUSH.SIZE 378475 . 378856) (SK.TEXTBOX.CREATE 378858 .
|
||||
379655) (SK.TEXTBOX.CREATE1 379657 . 380721) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380723 . 381263) (
|
||||
SK.TEXTBOX.POSITION.IN.BOX 381265 . 383176) (TEXTBOX.CHANGEFN 383178 . 383652) (TEXTBOX.DRAWFN 383654
|
||||
. 385690) (SK.TEXTURE.AROUND.REGIONS 385692 . 391765) (ALL.EMPTY.REGIONS 391767 . 392257) (
|
||||
TEXTBOX.EXPANDFN 392259 . 399415) (TEXTBOX.INPUTFN 399417 . 401030) (TEXTBOX.INSIDEFN 401032 . 401445)
|
||||
(TEXTBOX.REGIONFN 401447 . 402301) (TEXTBOX.GLOBALREGIONFN 402303 . 402631) (
|
||||
TEXTBOX.SET.GLOBAL.REGIONS 402633 . 403964) (TEXTBOX.TRANSLATEFN 403966 . 405807) (
|
||||
TEXTBOX.TRANSLATEPTSFN 405809 . 408592) (TEXTBOX.TRANSFORMFN 408594 . 410262) (TEXTBOX.UPDATEFN 410264
|
||||
. 412157) (TEXTBOX.READCHANGEFN 412159 . 417048) (SK.TEXTBOX.TEXT.POSITION 417050 . 417471) (
|
||||
SK.TEXTBOX.FROM.TEXT 417473 . 420078) (ADD.EOLS 420080 . 420845)) (421376 424877 (
|
||||
SK.SET.TEXTBOX.VERT.ALIGN 421386 . 423266) (SK.SET.TEXTBOX.HORIZ.ALIGN 423268 . 424875)) (425260
|
||||
469735 (SKETCH.CREATE.BOX 425270 . 425753) (SK.BOX.DRAWFN 425755 . 426914) (BOX.DRAWFN1 426916 .
|
||||
429755) (KNOTS.OF.REGION 429757 . 430991) (SK.DRAWAREABOX 430993 . 437594) (SK.DRAWBOX 437596 . 438785
|
||||
) (SK.BOX.EXPANDFN 438787 . 442535) (SK.BOX.GETREGIONFN 442537 . 443723) (BOX.SET.SCALES 443725 .
|
||||
444965) (SK.BOX.INPUTFN 444967 . 446900) (SK.BOX.CREATE 446902 . 447603) (SK.UPDATE.BOX.AFTER.CHANGE
|
||||
447605 . 448116) (SK.BOX.INSIDEFN 448118 . 448508) (SK.BOX.REGIONFN 448510 . 449223) (
|
||||
SK.BOX.GLOBALREGIONFN 449225 . 449963) (SK.BOX.READCHANGEFN 449965 . 453686) (SK.CHANGE.FILLING 453688
|
||||
. 457636) (SK.CHANGE.FILLING.COLOR 457638 . 461294) (SK.BOX.TRANSLATEFN 461296 . 462475) (
|
||||
SK.BOX.TRANSFORMFN 462477 . 463422) (SK.BOX.TRANSLATEPTSFN 463424 . 465792) (UNSCALE.REGION.TO.GRID
|
||||
465794 . 466719) (INCREASEREGION 466721 . 467312) (INSUREREGIONSIZE 467314 . 468485) (EXPANDREGION
|
||||
468487 . 469367) (REGION.FROM.COORDINATES 469369 . 469733)) (470271 496626 (SKETCH.CREATE.ARC 470281
|
||||
. 471090) (ARC.DRAWFN 471092 . 472819) (ARC.EXPANDFN 472821 . 475154) (ARC.INPUTFN 475156 . 479374) (
|
||||
SK.INVERT.CIRCLE 479376 . 480236) (SK.READ.ARC.ANGLE.POINT 480238 . 480745) (SK.SHOW.ARC 480747 .
|
||||
481357) (ARC.CREATE 481359 . 482714) (SK.UPDATE.ARC.AFTER.CHANGE 482716 . 483056) (ARC.MOVEFN 483058
|
||||
. 484641) (ARC.TRANSLATEPTS 484643 . 486528) (ARC.INSIDEFN 486530 . 486780) (ARC.REGIONFN 486782 .
|
||||
487918) (ARC.GLOBALREGIONFN 487920 . 489642) (ARC.TRANSLATE 489644 . 490626) (ARC.TRANSFORMFN 490628
|
||||
. 493578) (ARC.READCHANGEFN 493580 . 496624)) (496627 505706 (SK.COMPUTE.ARC.ANGLE.PT 496637 . 497563
|
||||
) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497565 . 498558) (SK.COMPUTE.ARC.PTS 498560 . 502132) (
|
||||
SK.SET.ARC.DIRECTION 502134 . 502708) (SK.SET.ARC.DIRECTION.CW 502710 . 502884) (
|
||||
SK.SET.ARC.DIRECTION.CCW 502886 . 503159) (SK.COMPUTE.SLOPE.OF.LINE 503161 . 503653) (
|
||||
SK.CREATE.ARC.USING 503655 . 504892) (SET.ARC.SCALES 504894 . 505704)) (505707 506152 (
|
||||
SK.INSURE.DIRECTION 505717 . 506150)) (507523 553382 (GETSKETCHELEMENTPROP 507533 . 508841) (
|
||||
\SK.GET.ARC.ANGLEPT 508843 . 509404) (\GETSKETCHELEMENTPROP1 509406 . 509660) (\SK.GET.BRUSH 509662 .
|
||||
510586) (\SK.GET.FILLING 510588 . 511686) (\SK.GET.ARROWHEADS 511688 . 512467) (\SK.GET.FONT 512469 .
|
||||
512949) (\SK.GET.JUSTIFICATION 512951 . 513475) (\SK.GET.DIRECTION 513477 . 513954) (\SK.GET.DASHING
|
||||
513956 . 514975) (PUTSKETCHELEMENTPROP 514977 . 517246) (\SK.PUT.FILLING 517248 . 518518) (
|
||||
ADDSKETCHELEMENTPROP 518520 . 519325) (REMOVESKETCHELEMENTPROP 519327 . 520116) (\SK.PUT.FONT 520118
|
||||
. 520932) (\SK.PUT.JUSTIFICATION 520934 . 521945) (\SK.PUT.DIRECTION 521947 . 522554) (
|
||||
\SK.PUT.DASHING 522556 . 523891) (\SK.PUT.BRUSH 523893 . 525812) (\SK.PUT.ARROWHEADS 525814 . 527780)
|
||||
(SK.COPY.ELEMENT.PROPERTY.LIST 527782 . 528358) (SKETCH.UPDATE 528360 . 529090) (SKETCH.UPDATE1 529092
|
||||
. 530380) (\SKELT.GET.SCALE 530382 . 531370) (\SKELT.PUT.SCALE 531372 . 532679) (\SKELT.PUT.DATA
|
||||
532681 . 534478) (SK.REPLACE.TEXT.IN.ELEMENT 534480 . 535433) (\SKELT.GET.DATA 535435 . 536502) (
|
||||
\SK.GET.1STCONTROLPT 536504 . 538016) (\SK.PUT.1STCONTROLPT 538018 . 543491) (\SK.GET.2NDCONTROLPT
|
||||
543493 . 544408) (\SK.PUT.2NDCONTROLPT 544410 . 548598) (\SK.GET.3RDCONTROLPT 548600 . 549478) (
|
||||
\SK.PUT.3RDCONTROLPT 549480 . 553380)) (553383 553964 (LOWERLEFTCORNER 553393 . 553639) (
|
||||
UPPERRIGHTCORNER 553641 . 553962)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,51 +1,51 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "20-Feb-2021 23:02:39"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;4 57889
|
||||
|
||||
changes to%: (VARS TABLEBROWSERCOMS)
|
||||
(FILECREATED " 6-Aug-2022 18:06:57" {DSK}<home>larry>medley>library>TABLEBROWSER.;8 63740
|
||||
|
||||
previous date%: " 1-Dec-2018 17:25:13"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;3)
|
||||
:CHANGES-TO (VARS TABLEBROWSERCOMS)
|
||||
(RECORDS TABLEBROWSER TABLEITEM)
|
||||
|
||||
:PREVIOUS-DATE " 4-Aug-2022 09:32:17" {DSK}<home>larry>medley>library>TABLEBROWSER.;7)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
||||
Copyright (c) 1985-1988, 1990, 1993-1995, 1999, 2018, 2021-2022 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT TABLEBROWSERCOMS)
|
||||
|
||||
(RPAQQ TABLEBROWSERCOMS
|
||||
((COMS (* ; "Entries")
|
||||
((COMS (* ; "Entries")
|
||||
(FNS TB.MAKE.BROWSER TB.REPLACE.ITEMS)
|
||||
(FNS TB.DELETE.ITEM TB.UNDELETE.ITEM TB.INSERT.ITEM TB.REMOVE.ITEM TB.NORMALIZE.ITEM
|
||||
TB.REDISPLAY.ITEMS TB.SELECT.ITEM TB.UNSELECT.ITEM TB.UNSELECT.ALL.ITEMS)
|
||||
(FNS TB.NUMBER.OF.ITEMS TB.NTH.ITEM TB.COLLECT.ITEMS TB.MAP.ITEMS TB.MAP.DELETED.ITEMS
|
||||
TB.MAP.SELECTED.ITEMS TB.FIND.ITEM TB.ITEM.SELECTED? TB.ITEM.DELETED?)
|
||||
(FNS TB.CLEAR.LINE TB.USERDATA TB.WINDOW))
|
||||
(COMS (* ; "Display")
|
||||
(COMS (* ; "Display")
|
||||
(FNS TB.REPAINTFN TB.RESHAPEFN TB.SCROLLFN TB.DISPLAY.LINES TB.PRINT.LINE
|
||||
TB.FIRST.VISIBLE.ITEM# TB.LAST.VISIBLE.ITEM# TB.ITEM.VISIBLE? TB.ITEM.FROM.YCOORD
|
||||
TB.BOTTOM.OF.ITEM TB.SHOW.DELETION TB.SHOW.SELECTION TB.UPDATE.DISPLAY
|
||||
TB.ITEM.UPDATABLE?))
|
||||
(COMS (* ; "Selection")
|
||||
(COMS (* ; "Selection")
|
||||
(FNS TB.BUTTONEVENTFN TB.DO.UNLESS.BUSY TB.DO.ITEM.SELECTION TB.CONTIGUOUS.SELP
|
||||
TB.DECONSIDERRANGE TB.CONSIDERRANGE TB.DESELECTRANGE TB.RECONSIDERRANGE
|
||||
TB.SELECTRANGE TB.UNDOSELECTION TB.FIND.SELECTED.ITEM TB.REV.FIND.SELECTED.ITEM)
|
||||
(FNS TB.COPYBUTTONEVENTFN TB.SHOW.COPY.SELECTION))
|
||||
(COMS (* ; "Misc state change")
|
||||
(COMS (* ; "Misc state change")
|
||||
(FNS TB.BROWSER.BUSY TB.CLOSE/SHRINK TB.CLOSEFN TB.FINISH.CLOSE TB.FLUSH.WINDOW
|
||||
TB.SET.FONT TB.SHRINKFN TB.EXPANDFN TB.FIND.PREVIOUS.TAIL TB.RENUMBER.TAIL))
|
||||
(COMS (* ; "Misc")
|
||||
(COMS (* ; "Misc")
|
||||
(FNS TB.PROCESS)
|
||||
(INITVARS (TB.DELETEDLINEHEIGHT 1))
|
||||
(VARS TB.SELECTION.BITMAP)
|
||||
(CURSORS TB.CROSSCURSOR)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||
TABLEBROWSERDECLS)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS TB.LEFT.MARGIN)
|
||||
(CONSTANTS * TOCSTATES)
|
||||
(MACROS .COPYKEYDOWNP.)
|
||||
(GLOBALVARS TB.CROSSCURSOR TB.SELECTION.BITMAP TB.DELETEDLINEHEIGHT)
|
||||
(LOCALVARS . T)))
|
||||
(LOCALVARS . T)
|
||||
(RECORDS TABLEBROWSER TABLEITEM)))
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
||||
(NLAML)
|
||||
(LAMA TB.USERDATA)))
|
||||
@@ -375,19 +375,23 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b
|
||||
(RPAQ TB.CROSSCURSOR (CURSORCREATE (QUOTE #*(16 16)L@@CN@@GG@@NCHALALCH@NG@@GN@@CL@@CL@@GN@@NG@ALCHCHALG@@NN@@GL@@C
|
||||
) (QUOTE NIL) 8 8))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(FILESLOAD (SOURCE)
|
||||
TABLEBROWSERDECLS)
|
||||
(RPAQQ TB.LEFT.MARGIN 8)
|
||||
|
||||
|
||||
(CONSTANTS TB.LEFT.MARGIN)
|
||||
)
|
||||
|
||||
|
||||
(RPAQQ TOCSTATES ((TS.IDLE 0)
|
||||
(TS.REPLACING 1)
|
||||
(TS.ADDING 2)
|
||||
(TS.REMOVING 3)
|
||||
(TS.EXTENDING.HI 4)
|
||||
(TS.EXTENDING.LO 5)
|
||||
(TS.SHRINKING.HI 6)
|
||||
(TS.SHRINKING.LO 7)))
|
||||
(TS.REPLACING 1)
|
||||
(TS.ADDING 2)
|
||||
(TS.REMOVING 3)
|
||||
(TS.EXTENDING.HI 4)
|
||||
(TS.EXTENDING.LO 5)
|
||||
(TS.SHRINKING.HI 6)
|
||||
(TS.SHRINKING.LO 7)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ TS.IDLE 0)
|
||||
@@ -420,8 +424,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS .COPYKEYDOWNP. MACRO [NIL (OR (KEYDOWNP 'LSHIFT)
|
||||
(KEYDOWNP 'RSHIFT)
|
||||
(KEYDOWNP 'COPY])
|
||||
(KEYDOWNP 'RSHIFT)
|
||||
(KEYDOWNP 'COPY])
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -433,30 +437,80 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b
|
||||
|
||||
(LOCALVARS . T)
|
||||
)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA )
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
(DATATYPE TABLEBROWSER ((TBREADY FLAG)
|
||||
(TBHEIGHTEXPLICIT FLAG) (* ;
|
||||
"True if creator set explicit item height or baseline")
|
||||
(TBITEMS POINTER) (* ; "List of items in this browser")
|
||||
(TB#ITEMS WORD) (* ; "Number of items")
|
||||
(TB#DELETED WORD) (* ; "Number of items marked deleted")
|
||||
(TB#LINESPERITEM WORD) (* ;
|
||||
"Number of lines occupied by each item, normally 1 (dunno if any other values work)")
|
||||
(TBFIRSTSELECTEDITEM WORD) (* ;
|
||||
"Number of first selected item. If none selected, is > TB#ITEMS")
|
||||
(TBLASTSELECTEDITEM WORD) (* ;
|
||||
"Number of last selected item. If none selected, is 0")
|
||||
(TBITEMHEIGHT WORD) (* ;
|
||||
"Height of an item, i.e., fontheight*linesperitem")
|
||||
(TBMAXXPOS WORD) (* ;
|
||||
"The largest x-position a user printfn has printed to")
|
||||
(TBFONTHEIGHT WORD) (* ; "Height, ascent, descent of font")
|
||||
(TBFONTASCENT WORD)
|
||||
(TBBASELINE WORD)
|
||||
(TBWINDOW POINTER) (* ;
|
||||
"Pointer to the display window. Need to snap this link when browser is closed")
|
||||
(TBLOCK POINTER) (* ;
|
||||
"Monitor lock guarding some browser operations")
|
||||
(TBUSERDATA POINTER) (* ; "Arbitrary user storage")
|
||||
(TBFONT POINTER) (* ; "Pointer to font used by display")
|
||||
(TBEXTENT POINTER) (* ;
|
||||
"Window's extent, updated as items are added, deleted, or printfn prints farther to right")
|
||||
(TBUPDATEFROMHERE POINTER) (* ;
|
||||
"If changes have occurred while shrunk, this gives the # of first item that needs redisplay")
|
||||
(TBCOLUMNS POINTER) (* ;
|
||||
"Number of columns--not yet implemented")
|
||||
(TBPRINTFN POINTER) (* ;
|
||||
"(Browser Item Window) -- displays Item at current line position in window")
|
||||
(TBCOPYFN POINTER) (* ;
|
||||
"(Browser Item) -- copy selects Item")
|
||||
(TBFONTCHANGEFN POINTER) (* ;
|
||||
"(Browser Window) -- called when tb.set.font changes the font")
|
||||
(TBCLOSEFN POINTER) (* ;
|
||||
"(Browser Window Close/Shrink) -- called when you try to close or shrink window")
|
||||
(TBAFTERCLOSEFN POINTER) (* ;
|
||||
"(Browser Window) -- called to cleanup AFTER a closew")
|
||||
(TBTITLEEVENTFN POINTER) (* ;
|
||||
"(Window Browser) -- handles button event in browser's title")
|
||||
(TBLINETHICKNESS POINTER) (* ;
|
||||
"Thickness of line for deletions (normally 1)")
|
||||
(TBORIGIN POINTER) (* ;
|
||||
"Y position of the top of the first item")
|
||||
(TBTAILHINT POINTER) (* ;
|
||||
"A tail of TBITEMS, used to speed up TB.NTH.ITEM")
|
||||
(TBHEADINGWINDOW POINTER) (* ;
|
||||
"An optional %"header window%" that should be horizontally scrolled in synchrony with this one")
|
||||
(NIL POINTER)))
|
||||
|
||||
(ADDTOVAR LAMA TB.USERDATA)
|
||||
(DATATYPE TABLEITEM ((TISELECTED FLAG)
|
||||
(TIDELETED FLAG)
|
||||
(TIUNDELETABLE FLAG)
|
||||
(TIUNSELECTABLE FLAG)
|
||||
(TIUNCOPYSELECTABLE FLAG)
|
||||
(TIDATA POINTER)
|
||||
(TI# WORD)))
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'TABLEBROWSER
|
||||
'(FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD
|
||||
WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)
|
||||
'(FLAG FLAG POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER
|
||||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||||
POINTER POINTER POINTER POINTER)
|
||||
'((TABLEBROWSER 0 (FLAGBITS . 0))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 16))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 32))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 48))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 64))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 80))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 96))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 112))
|
||||
(TABLEBROWSER 2 POINTER)
|
||||
(TABLEBROWSER 1 (BITS . 15))
|
||||
(TABLEBROWSER 0 POINTER)
|
||||
(TABLEBROWSER 2 (BITS . 15))
|
||||
(TABLEBROWSER 3 (BITS . 15))
|
||||
(TABLEBROWSER 4 (BITS . 15))
|
||||
(TABLEBROWSER 5 (BITS . 15))
|
||||
(TABLEBROWSER 6 (BITS . 15))
|
||||
@@ -465,7 +519,7 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b
|
||||
(TABLEBROWSER 9 (BITS . 15))
|
||||
(TABLEBROWSER 10 (BITS . 15))
|
||||
(TABLEBROWSER 11 (BITS . 15))
|
||||
(TABLEBROWSER 12 (BITS . 15))
|
||||
(TABLEBROWSER 12 POINTER)
|
||||
(TABLEBROWSER 14 POINTER)
|
||||
(TABLEBROWSER 16 POINTER)
|
||||
(TABLEBROWSER 18 POINTER)
|
||||
@@ -482,91 +536,139 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b
|
||||
(TABLEBROWSER 40 POINTER)
|
||||
(TABLEBROWSER 42 POINTER)
|
||||
(TABLEBROWSER 44 POINTER)
|
||||
(TABLEBROWSER 46 POINTER)
|
||||
(TABLEBROWSER 48 POINTER))
|
||||
'50)
|
||||
(TABLEBROWSER 46 POINTER))
|
||||
'48)
|
||||
|
||||
(/DECLAREDATATYPE 'TABLEITEM '(FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD)
|
||||
(/DECLAREDATATYPE 'TABLEITEM '(FLAG FLAG FLAG FLAG FLAG POINTER WORD)
|
||||
'((TABLEITEM 0 (FLAGBITS . 0))
|
||||
(TABLEITEM 0 (FLAGBITS . 16))
|
||||
(TABLEITEM 0 (FLAGBITS . 32))
|
||||
(TABLEITEM 0 (FLAGBITS . 48))
|
||||
(TABLEITEM 0 (FLAGBITS . 64))
|
||||
(TABLEITEM 0 (FLAGBITS . 80))
|
||||
(TABLEITEM 0 (FLAGBITS . 96))
|
||||
(TABLEITEM 0 (FLAGBITS . 112))
|
||||
(TABLEITEM 2 POINTER)
|
||||
(TABLEITEM 1 (BITS . 15))
|
||||
(TABLEITEM 4 (BITS . 15)))
|
||||
'6)
|
||||
(TABLEITEM 1 (BITS . 15)))
|
||||
'4)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA )
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
|
||||
(ADDTOVAR LAMA TB.USERDATA)
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'TABLEBROWSER
|
||||
'(FLAG FLAG POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER
|
||||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||||
POINTER POINTER POINTER POINTER)
|
||||
'((TABLEBROWSER 0 (FLAGBITS . 0))
|
||||
(TABLEBROWSER 0 (FLAGBITS . 16))
|
||||
(TABLEBROWSER 0 POINTER)
|
||||
(TABLEBROWSER 2 (BITS . 15))
|
||||
(TABLEBROWSER 3 (BITS . 15))
|
||||
(TABLEBROWSER 4 (BITS . 15))
|
||||
(TABLEBROWSER 5 (BITS . 15))
|
||||
(TABLEBROWSER 6 (BITS . 15))
|
||||
(TABLEBROWSER 7 (BITS . 15))
|
||||
(TABLEBROWSER 8 (BITS . 15))
|
||||
(TABLEBROWSER 9 (BITS . 15))
|
||||
(TABLEBROWSER 10 (BITS . 15))
|
||||
(TABLEBROWSER 11 (BITS . 15))
|
||||
(TABLEBROWSER 12 POINTER)
|
||||
(TABLEBROWSER 14 POINTER)
|
||||
(TABLEBROWSER 16 POINTER)
|
||||
(TABLEBROWSER 18 POINTER)
|
||||
(TABLEBROWSER 20 POINTER)
|
||||
(TABLEBROWSER 22 POINTER)
|
||||
(TABLEBROWSER 24 POINTER)
|
||||
(TABLEBROWSER 26 POINTER)
|
||||
(TABLEBROWSER 28 POINTER)
|
||||
(TABLEBROWSER 30 POINTER)
|
||||
(TABLEBROWSER 32 POINTER)
|
||||
(TABLEBROWSER 34 POINTER)
|
||||
(TABLEBROWSER 36 POINTER)
|
||||
(TABLEBROWSER 38 POINTER)
|
||||
(TABLEBROWSER 40 POINTER)
|
||||
(TABLEBROWSER 42 POINTER)
|
||||
(TABLEBROWSER 44 POINTER)
|
||||
(TABLEBROWSER 46 POINTER))
|
||||
'48)
|
||||
|
||||
(/DECLAREDATATYPE 'TABLEITEM '(FLAG FLAG FLAG FLAG FLAG POINTER WORD)
|
||||
'((TABLEITEM 0 (FLAGBITS . 0))
|
||||
(TABLEITEM 0 (FLAGBITS . 16))
|
||||
(TABLEITEM 0 (FLAGBITS . 32))
|
||||
(TABLEITEM 0 (FLAGBITS . 48))
|
||||
(TABLEITEM 0 (FLAGBITS . 64))
|
||||
(TABLEITEM 2 POINTER)
|
||||
(TABLEITEM 1 (BITS . 15)))
|
||||
'4)
|
||||
(ADDTOVAR SYSTEMRECLST
|
||||
|
||||
(DATATYPE TABLEBROWSER ((TBREADY FLAG)
|
||||
(TBHEIGHTEXPLICIT FLAG)
|
||||
(NIL 6 FLAG)
|
||||
(TBITEMS POINTER)
|
||||
(TB#ITEMS WORD)
|
||||
(TB#DELETED WORD)
|
||||
(TB#LINESPERITEM WORD)
|
||||
(TBFIRSTSELECTEDITEM WORD)
|
||||
(TBLASTSELECTEDITEM WORD)
|
||||
(TBITEMHEIGHT WORD)
|
||||
(TBMAXXPOS WORD)
|
||||
(TBFONTHEIGHT WORD)
|
||||
(TBFONTASCENT WORD)
|
||||
(TBBASELINE WORD)
|
||||
(TBWINDOW POINTER)
|
||||
(TBLOCK POINTER)
|
||||
(TBUSERDATA POINTER)
|
||||
(TBFONT POINTER)
|
||||
(TBEXTENT POINTER)
|
||||
(TBUPDATEFROMHERE POINTER)
|
||||
(TBCOLUMNS POINTER)
|
||||
(TBPRINTFN POINTER)
|
||||
(TBCOPYFN POINTER)
|
||||
(TBFONTCHANGEFN POINTER)
|
||||
(TBCLOSEFN POINTER)
|
||||
(TBAFTERCLOSEFN POINTER)
|
||||
(TBTITLEEVENTFN POINTER)
|
||||
(TBLINETHICKNESS POINTER)
|
||||
(TBORIGIN POINTER)
|
||||
(TBTAILHINT POINTER)
|
||||
(TBHEADINGWINDOW POINTER)
|
||||
(NIL POINTER)))
|
||||
(TBHEIGHTEXPLICIT FLAG)
|
||||
(TBITEMS POINTER)
|
||||
(TB#ITEMS WORD)
|
||||
(TB#DELETED WORD)
|
||||
(TB#LINESPERITEM WORD)
|
||||
(TBFIRSTSELECTEDITEM WORD)
|
||||
(TBLASTSELECTEDITEM WORD)
|
||||
(TBITEMHEIGHT WORD)
|
||||
(TBMAXXPOS WORD)
|
||||
(TBFONTHEIGHT WORD)
|
||||
(TBFONTASCENT WORD)
|
||||
(TBBASELINE WORD)
|
||||
(TBWINDOW POINTER)
|
||||
(TBLOCK POINTER)
|
||||
(TBUSERDATA POINTER)
|
||||
(TBFONT POINTER)
|
||||
(TBEXTENT POINTER)
|
||||
(TBUPDATEFROMHERE POINTER)
|
||||
(TBCOLUMNS POINTER)
|
||||
(TBPRINTFN POINTER)
|
||||
(TBCOPYFN POINTER)
|
||||
(TBFONTCHANGEFN POINTER)
|
||||
(TBCLOSEFN POINTER)
|
||||
(TBAFTERCLOSEFN POINTER)
|
||||
(TBTITLEEVENTFN POINTER)
|
||||
(TBLINETHICKNESS POINTER)
|
||||
(TBORIGIN POINTER)
|
||||
(TBTAILHINT POINTER)
|
||||
(TBHEADINGWINDOW POINTER)
|
||||
(NIL POINTER)))
|
||||
|
||||
(DATATYPE TABLEITEM ((TISELECTED FLAG)
|
||||
(TIDELETED FLAG)
|
||||
(TIUNDELETABLE FLAG)
|
||||
(TIUNSELECTABLE FLAG)
|
||||
(TIUNCOPYSELECTABLE FLAG)
|
||||
(NIL 3 FLAG)
|
||||
(TIDATA POINTER)
|
||||
(TI# WORD)
|
||||
(NIL WORD)))
|
||||
(TIDELETED FLAG)
|
||||
(TIUNDELETABLE FLAG)
|
||||
(TIUNSELECTABLE FLAG)
|
||||
(TIUNCOPYSELECTABLE FLAG)
|
||||
(TIDATA POINTER)
|
||||
(TI# WORD)))
|
||||
)
|
||||
(PUTPROPS TABLEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1993 1994 1995
|
||||
1999 2018 2021))
|
||||
1999 2018 2021 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3214 7565 (TB.MAKE.BROWSER 3224 . 6340) (TB.REPLACE.ITEMS 6342 . 7563)) (7566 16585 (
|
||||
TB.DELETE.ITEM 7576 . 8010) (TB.UNDELETE.ITEM 8012 . 8591) (TB.INSERT.ITEM 8593 . 10600) (
|
||||
TB.REMOVE.ITEM 10602 . 12134) (TB.NORMALIZE.ITEM 12136 . 12849) (TB.REDISPLAY.ITEMS 12851 . 15170) (
|
||||
TB.SELECT.ITEM 15172 . 15477) (TB.UNSELECT.ITEM 15479 . 15834) (TB.UNSELECT.ALL.ITEMS 15836 . 16583))
|
||||
(16586 21112 (TB.NUMBER.OF.ITEMS 16596 . 17078) (TB.NTH.ITEM 17080 . 18154) (TB.COLLECT.ITEMS 18156 .
|
||||
18527) (TB.MAP.ITEMS 18529 . 18893) (TB.MAP.DELETED.ITEMS 18895 . 19342) (TB.MAP.SELECTED.ITEMS 19344
|
||||
. 19951) (TB.FIND.ITEM 19953 . 20826) (TB.ITEM.SELECTED? 20828 . 20969) (TB.ITEM.DELETED? 20971 .
|
||||
21110)) (21113 21954 (TB.CLEAR.LINE 21123 . 21535) (TB.USERDATA 21537 . 21803) (TB.WINDOW 21805 .
|
||||
21952)) (21979 32237 (TB.REPAINTFN 21989 . 22400) (TB.RESHAPEFN 22402 . 23240) (TB.SCROLLFN 23242 .
|
||||
23793) (TB.DISPLAY.LINES 23795 . 25052) (TB.PRINT.LINE 25054 . 25574) (TB.FIRST.VISIBLE.ITEM# 25576 .
|
||||
26013) (TB.LAST.VISIBLE.ITEM# 26015 . 26488) (TB.ITEM.VISIBLE? 26490 . 27010) (TB.ITEM.FROM.YCOORD
|
||||
27012 . 27322) (TB.BOTTOM.OF.ITEM 27324 . 27737) (TB.SHOW.DELETION 27739 . 28361) (TB.SHOW.SELECTION
|
||||
28363 . 29132) (TB.UPDATE.DISPLAY 29134 . 31419) (TB.ITEM.UPDATABLE? 31421 . 32235)) (32264 43677 (
|
||||
TB.BUTTONEVENTFN 32274 . 32733) (TB.DO.UNLESS.BUSY 32735 . 33042) (TB.DO.ITEM.SELECTION 33044 . 39118)
|
||||
(TB.CONTIGUOUS.SELP 39120 . 39487) (TB.DECONSIDERRANGE 39489 . 39857) (TB.CONSIDERRANGE 39859 . 40430
|
||||
) (TB.DESELECTRANGE 40432 . 41494) (TB.RECONSIDERRANGE 41496 . 41994) (TB.SELECTRANGE 41996 . 42936) (
|
||||
TB.UNDOSELECTION 42938 . 43215) (TB.FIND.SELECTED.ITEM 43217 . 43440) (TB.REV.FIND.SELECTED.ITEM 43442
|
||||
. 43675)) (43678 45177 (TB.COPYBUTTONEVENTFN 43688 . 44908) (TB.SHOW.COPY.SELECTION 44910 . 45175)) (
|
||||
45212 51519 (TB.BROWSER.BUSY 45222 . 45339) (TB.CLOSE/SHRINK 45341 . 45973) (TB.CLOSEFN 45975 . 46076)
|
||||
(TB.FINISH.CLOSE 46078 . 46731) (TB.FLUSH.WINDOW 46733 . 47260) (TB.SET.FONT 47262 . 49560) (
|
||||
TB.SHRINKFN 49562 . 49665) (TB.EXPANDFN 49667 . 50432) (TB.FIND.PREVIOUS.TAIL 50434 . 51176) (
|
||||
TB.RENUMBER.TAIL 51178 . 51517)) (51541 51914 (TB.PROCESS 51551 . 51912)))))
|
||||
(FILEMAP (NIL (3194 7545 (TB.MAKE.BROWSER 3204 . 6320) (TB.REPLACE.ITEMS 6322 . 7543)) (7546 16565 (
|
||||
TB.DELETE.ITEM 7556 . 7990) (TB.UNDELETE.ITEM 7992 . 8571) (TB.INSERT.ITEM 8573 . 10580) (
|
||||
TB.REMOVE.ITEM 10582 . 12114) (TB.NORMALIZE.ITEM 12116 . 12829) (TB.REDISPLAY.ITEMS 12831 . 15150) (
|
||||
TB.SELECT.ITEM 15152 . 15457) (TB.UNSELECT.ITEM 15459 . 15814) (TB.UNSELECT.ALL.ITEMS 15816 . 16563))
|
||||
(16566 21092 (TB.NUMBER.OF.ITEMS 16576 . 17058) (TB.NTH.ITEM 17060 . 18134) (TB.COLLECT.ITEMS 18136 .
|
||||
18507) (TB.MAP.ITEMS 18509 . 18873) (TB.MAP.DELETED.ITEMS 18875 . 19322) (TB.MAP.SELECTED.ITEMS 19324
|
||||
. 19931) (TB.FIND.ITEM 19933 . 20806) (TB.ITEM.SELECTED? 20808 . 20949) (TB.ITEM.DELETED? 20951 .
|
||||
21090)) (21093 21934 (TB.CLEAR.LINE 21103 . 21515) (TB.USERDATA 21517 . 21783) (TB.WINDOW 21785 .
|
||||
21932)) (21959 32217 (TB.REPAINTFN 21969 . 22380) (TB.RESHAPEFN 22382 . 23220) (TB.SCROLLFN 23222 .
|
||||
23773) (TB.DISPLAY.LINES 23775 . 25032) (TB.PRINT.LINE 25034 . 25554) (TB.FIRST.VISIBLE.ITEM# 25556 .
|
||||
25993) (TB.LAST.VISIBLE.ITEM# 25995 . 26468) (TB.ITEM.VISIBLE? 26470 . 26990) (TB.ITEM.FROM.YCOORD
|
||||
26992 . 27302) (TB.BOTTOM.OF.ITEM 27304 . 27717) (TB.SHOW.DELETION 27719 . 28341) (TB.SHOW.SELECTION
|
||||
28343 . 29112) (TB.UPDATE.DISPLAY 29114 . 31399) (TB.ITEM.UPDATABLE? 31401 . 32215)) (32244 43657 (
|
||||
TB.BUTTONEVENTFN 32254 . 32713) (TB.DO.UNLESS.BUSY 32715 . 33022) (TB.DO.ITEM.SELECTION 33024 . 39098)
|
||||
(TB.CONTIGUOUS.SELP 39100 . 39467) (TB.DECONSIDERRANGE 39469 . 39837) (TB.CONSIDERRANGE 39839 . 40410
|
||||
) (TB.DESELECTRANGE 40412 . 41474) (TB.RECONSIDERRANGE 41476 . 41974) (TB.SELECTRANGE 41976 . 42916) (
|
||||
TB.UNDOSELECTION 42918 . 43195) (TB.FIND.SELECTED.ITEM 43197 . 43420) (TB.REV.FIND.SELECTED.ITEM 43422
|
||||
. 43655)) (43658 45157 (TB.COPYBUTTONEVENTFN 43668 . 44888) (TB.SHOW.COPY.SELECTION 44890 . 45155)) (
|
||||
45192 51499 (TB.BROWSER.BUSY 45202 . 45319) (TB.CLOSE/SHRINK 45321 . 45953) (TB.CLOSEFN 45955 . 46056)
|
||||
(TB.FINISH.CLOSE 46058 . 46711) (TB.FLUSH.WINDOW 46713 . 47240) (TB.SET.FONT 47242 . 49540) (
|
||||
TB.SHRINKFN 49542 . 49645) (TB.EXPANDFN 49647 . 50412) (TB.FIND.PREVIOUS.TAIL 50414 . 51156) (
|
||||
TB.RENUMBER.TAIL 51158 . 51497)) (51521 51894 (TB.PROCESS 51531 . 51892)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,10 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "20-Feb-2022 11:10:55" {DSK}<home>larry>medley>library>VTCHAT.;2 21881
|
||||
(FILECREATED " 3-Aug-2022 11:30:53"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>VTCHAT.;3 21940
|
||||
|
||||
:CHANGES-TO (VARS VTCHATCOMS)
|
||||
:CHANGES-TO (RECORDS VT100SAVE)
|
||||
|
||||
:PREVIOUS-DATE "30-Sep-2021 17:41:51" {DSK}<home>larry>medley>library>VTCHAT.;1)
|
||||
:PREVIOUS-DATE "20-Feb-2022 11:10:55"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>VTCHAT.;2)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -151,7 +153,7 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET))
|
||||
(RECORD VT100SAVE (CURSORPOS CHARATTR VTSCHARSET))
|
||||
|
||||
(DATATYPE VT100.STATE ((DINGED FLAG)
|
||||
(EATLF FLAG)
|
||||
@@ -261,10 +263,10 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
|
||||
)
|
||||
(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1675 9741 (VTCHAT.STATE 1685 . 2195) (VTCHAT.HANDLECHARACTER 2197 . 4771) (
|
||||
VTCHAT.SEQUENCE 4773 . 6316) (VTCHAT.DOCOMMAND 6318 . 9739)) (9742 17253 (VTCHAT.ADDRESS 9752 . 10270)
|
||||
(VTCHAT.REVERSE.INDEX 10272 . 10841) (VTCHAT.ATTRIBUTES 10843 . 11229) (VTCHAT.DECLFONT 11231 . 11500
|
||||
) (VTCHAT.CLEARMODES 11502 . 12005) (VTCHAT.SAVE 12007 . 12746) (VTCHAT.RESTORE 12748 . 13455) (
|
||||
VTCHAT.SETMODE 13457 . 14529) (VTCHAT.SETMARGINS 14531 . 15122) (VTCHAT.REPORT 15124 . 15884) (
|
||||
VTCHAT.STATUS 15886 . 17251)))))
|
||||
(FILEMAP (NIL (1731 9797 (VTCHAT.STATE 1741 . 2251) (VTCHAT.HANDLECHARACTER 2253 . 4827) (
|
||||
VTCHAT.SEQUENCE 4829 . 6372) (VTCHAT.DOCOMMAND 6374 . 9795)) (9798 17309 (VTCHAT.ADDRESS 9808 . 10326)
|
||||
(VTCHAT.REVERSE.INDEX 10328 . 10897) (VTCHAT.ATTRIBUTES 10899 . 11285) (VTCHAT.DECLFONT 11287 . 11556
|
||||
) (VTCHAT.CLEARMODES 11558 . 12061) (VTCHAT.SAVE 12063 . 12802) (VTCHAT.RESTORE 12804 . 13511) (
|
||||
VTCHAT.SETMODE 13513 . 14585) (VTCHAT.SETMARGINS 14587 . 15178) (VTCHAT.REPORT 15180 . 15940) (
|
||||
VTCHAT.STATUS 15942 . 17307)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,10 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "14-Jul-2022 17:00:01"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>library>tedit>TEDIT-PCTREE.;1 27141
|
||||
(FILECREATED "26-Jul-2022 10:35:13" {DSK}<home>larry>medley>library>tedit>TEDIT-PCTREE.;2 26909
|
||||
|
||||
:PREVIOUS-DATE "14-Jul-2022 11:08:10"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>library>newtedit>TEDIT-PCTREE.;2)
|
||||
:CHANGES-TO (FNS \INSERTTREE)
|
||||
|
||||
:PREVIOUS-DATE "14-Jul-2022 17:00:01" {DSK}<home>larry>medley>library>tedit>TEDIT-PCTREE.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-PCTREECOMS)
|
||||
@@ -168,8 +168,7 @@
|
||||
1))])
|
||||
|
||||
(\INSERTTREE
|
||||
[LAMBDA (NEW OLD PCNODE NEW-PREVLEN NEW-OLDLEN PREV) (* ; "Edited 21-Jun-2022 23:39 by larry")
|
||||
(* ;
|
||||
[LAMBDA (NEW OLD PCNODE NEW-PREVLEN NEW-OLDLEN PREV) (* ;
|
||||
"Edited 21-Mar-95 15:29 by sybalsky:mv:envos")
|
||||
|
||||
(* ;; "inserts NEW in front of OLD in PCNODE. NEW/OLD are either pieces or tree nodes.")
|
||||
@@ -231,8 +230,6 @@
|
||||
(T (\ILLEGAL.ARG NEW)))
|
||||
(SETQ NEWLEN (for I from 0 to NODE-COUNT as ITEM# from 2 by 4
|
||||
sum (\GETBASEFIXP PCNODE ITEM#)))
|
||||
(IF (TYPE? BIGNUM NEWLEN)
|
||||
THEN (HELP NEWLEN " is bignum"))
|
||||
(replace (BTREENODE TOTLEN) of PCNODE with NEWLEN)
|
||||
|
||||
(* ;; " If adding this piece overflows the tree node, split it.")
|
||||
@@ -542,9 +539,9 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2938 22352 (UPDATEPCNODES 2948 . 3917) (FINDPCNODE 3919 . 4155) (\FIRSTNODE 4157 . 4518
|
||||
) (\DELETETREE 4520 . 6985) (\INSERTTREE 6987 . 11551) (\LASTNODE 11553 . 12090) (\MATCHPCS 12092 .
|
||||
12816) (\SPLITTREE 12818 . 19698) (\TEDIT.UPDATETREE 19700 . 21207) (\TEDIT.PIECE-CHNO 21209 . 21791)
|
||||
(\TEDIT.SET-TOTLEN 21793 . 22350)) (22353 24789 (DISPTREE 22363 . 22819) (TREEGRAPHNODE 22821 . 24787)
|
||||
(FILEMAP (NIL (2918 22120 (UPDATEPCNODES 2928 . 3897) (FINDPCNODE 3899 . 4135) (\FIRSTNODE 4137 . 4498
|
||||
) (\DELETETREE 4500 . 6965) (\INSERTTREE 6967 . 11319) (\LASTNODE 11321 . 11858) (\MATCHPCS 11860 .
|
||||
12584) (\SPLITTREE 12586 . 19466) (\TEDIT.UPDATETREE 19468 . 20975) (\TEDIT.PIECE-CHNO 20977 . 21559)
|
||||
(\TEDIT.SET-TOTLEN 21561 . 22118)) (22121 24557 (DISPTREE 22131 . 22587) (TREEGRAPHNODE 22589 . 24555)
|
||||
))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "20-Jul-2022 08:54:12"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;246 128062
|
||||
(FILECREATED "11-Aug-2022 21:10:25"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;249 128449
|
||||
|
||||
:CHANGES-TO (FNS CDPRINT.COLUMNS)
|
||||
:CHANGES-TO (FNS CDBROWSER.STRINGS)
|
||||
|
||||
:PREVIOUS-DATE "17-Jul-2022 11:04:12"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;245)
|
||||
:PREVIOUS-DATE "25-Jul-2022 15:31:50"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>release-medley>lispusers>COMPAREDIRECTORIES.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -1707,7 +1707,10 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
|
||||
BROWSER)])
|
||||
|
||||
(CDBROWSER.STRINGS
|
||||
[LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS) (* ; "Edited 22-Feb-2022 18:30 by rmk")
|
||||
[LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS) (* ; "Edited 11-Aug-2022 20:23 by rmk")
|
||||
(* ; "Edited 25-Jul-2022 15:31 by rmk")
|
||||
(* ; "Edited 20-Jul-2022 21:14 by rmk")
|
||||
(* ; "Edited 22-Feb-2022 18:30 by rmk")
|
||||
(* ; "Edited 14-Dec-2021 21:03 by rmk")
|
||||
(* ; "Edited 8-Dec-2021 11:22 by rmk")
|
||||
(* ; "Edited 27-Nov-2021 21:37 by rmk:")
|
||||
@@ -1756,7 +1759,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
|
||||
(* ;; "Stick a blank object between")
|
||||
|
||||
(SETQ PAIRS (NCONC (DREVERSE L2R)
|
||||
(LIST "")
|
||||
[APPEND '(("")
|
||||
(""]
|
||||
(DREVERSE R2L)))))
|
||||
(CL:WHEN COLHEADERS
|
||||
(PUSH PAIRS (LIST COLHEADERS)))
|
||||
@@ -2164,11 +2168,11 @@ FIND-UNCOMPILED-FILES 66128 . 69771) (FIND-UNSOURCED-FILES 69773 . 72157) (FIND-
|
||||
76633 . 77061) (FIND-MULTICOMPILED-FILES 77063 . 78643)) (78646 87077 (CREATED-AS 78656 . 83453) (
|
||||
SOURCE-FOR-COMPILED-P 83455 . 86382) (COMPILE-SOURCE-DATE-DIFF 86384 . 87075)) (87078 97384 (
|
||||
FIX-DIRECTORY-DATES 87088 . 90081) (FIX-EQUIV-DATES 90083 . 91608) (COPY-COMPARED-FILES 91610 . 93431)
|
||||
(COPY-MISSING-FILES 93433 . 95590) (COMPILED-ON-SAME-SOURCE 95592 . 97382)) (97578 104924 (CDBROWSER
|
||||
97588 . 101515) (CDBROWSER.STRINGS 101517 . 104922)) (105086 106822 (CD.TABLEITEM 105096 . 105316) (
|
||||
CD.TABLEITEM.PRINTFN 105318 . 105517) (CD.TABLEITEM.COPYFN 105519 . 106577) (
|
||||
CDTABLEBROWSER.HEADING.REPAINTFN 106579 . 106820)) (106823 127478 (CDTABLEBROWSER.WHENSELECTEDFN
|
||||
106833 . 107301) (CD.COMMANDSELECTEDFN 107303 . 112404) (CD-MENUFN 112406 . 116717) (CD-COMPARE-FILES
|
||||
116719 . 120071) (CDBROWSER-COPY 120073 . 123742) (CDBROWSER-DELETE-FILE 123744 . 126957) (CD-SWAPDIRS
|
||||
126959 . 127476)))))
|
||||
(COPY-MISSING-FILES 93433 . 95590) (COMPILED-ON-SAME-SOURCE 95592 . 97382)) (97578 105311 (CDBROWSER
|
||||
97588 . 101515) (CDBROWSER.STRINGS 101517 . 105309)) (105473 107209 (CD.TABLEITEM 105483 . 105703) (
|
||||
CD.TABLEITEM.PRINTFN 105705 . 105904) (CD.TABLEITEM.COPYFN 105906 . 106964) (
|
||||
CDTABLEBROWSER.HEADING.REPAINTFN 106966 . 107207)) (107210 127865 (CDTABLEBROWSER.WHENSELECTEDFN
|
||||
107220 . 107688) (CD.COMMANDSELECTEDFN 107690 . 112791) (CD-MENUFN 112793 . 117104) (CD-COMPARE-FILES
|
||||
117106 . 120458) (CDBROWSER-COPY 120460 . 124129) (CDBROWSER-DELETE-FILE 124131 . 127344) (CD-SWAPDIRS
|
||||
127346 . 127863)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
File diff suppressed because one or more lines are too long
@@ -1,11 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 3-Feb-2022 11:57:39" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>DINFO.;5 65271
|
||||
(FILECREATED " 4-Aug-2022 09:56:25" {DSK}<home>larry>medley>lispusers>DINFO.;2 65548
|
||||
|
||||
:CHANGES-TO (FNS DINFO.UPDATE.TEXT.DISPLAY)
|
||||
:CHANGES-TO (FNS DINFO.UPDATE.FMENU DINFO.UPDATE.MENU.DISPLAY DINFO.UPDATE.HISTORY
|
||||
DINFO.UPDATE.GRAPH.DISPLAY DINFO.LAYOUTGRAPH)
|
||||
|
||||
:PREVIOUS-DATE "21-Jan-2022 23:16:01"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>DINFO.;3)
|
||||
:PREVIOUS-DATE " 3-Feb-2022 11:57:39" {DSK}<home>larry>medley>lispusers>DINFO.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -628,10 +628,10 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
|
||||
(SHOULDNT])
|
||||
|
||||
(DINFO.UPDATE.FMENU
|
||||
[LAMBDA (GRAPH NEW.NODE) (* jow "20-May-86 15:13")
|
||||
|
||||
(* * Update the display of GRAPH's FreeMenu.
|
||||
If NEW.NODE is not specified, use Top node of GRAPH, and change Top node title.)
|
||||
[LAMBDA (GRAPH NEW.NODE) (* jow "20-May-86 15:13")
|
||||
|
||||
(* * Update the display of GRAPH's FreeMenu.
|
||||
If NEW.NODE is not specified, use Top node of GRAPH, and change Top node title.)
|
||||
|
||||
(LET* [(W (fetch (DINFOGRAPH FMENU.WINDOW) of GRAPH))
|
||||
(NODELST (fetch (DINFOGRAPH NODELST) of GRAPH))
|
||||
@@ -712,7 +712,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
|
||||
(DEFINEQ
|
||||
|
||||
(DINFO.UPDATE.MENU.DISPLAY
|
||||
[LAMBDA (GRAPH NODE) (* drc%: "25-Jan-86 18:20")
|
||||
[LAMBDA (GRAPH NODE) (* drc%: "25-Jan-86 18:20")
|
||||
(LET* [(DINFOW (fetch (DINFOGRAPH WINDOW) of GRAPH))
|
||||
(WINDOW (fetch (DINFOGRAPH SUBNODE.MENU.WINDOW) of GRAPH))
|
||||
[CHILDREN (DREVERSE (for ID in (fetch (DINFONODE CHILDREN) of NODE)
|
||||
@@ -764,9 +764,8 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
|
||||
(REDISPLAYW WINDOW)
|
||||
(replace (DINFOGRAPH SUBNODE.MENU.WINDOW) of GRAPH with WINDOW)
|
||||
(LET [(BITS (fetch (REGION BOTTOM) of (WINDOWPROP WINDOW 'REGION]
|
||||
|
||||
(* Slide DINFOW up if our new menu is off the screen)
|
||||
|
||||
(* Slide DINFOW up if our new menu is
|
||||
off the screen)
|
||||
(AND (ILESSP BITS 0)
|
||||
(RELMOVEW DINFOW (create POSITION
|
||||
XCOORD _ 0
|
||||
@@ -780,7 +779,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
|
||||
(CADR ITEM])
|
||||
|
||||
(DINFO.UPDATE.HISTORY
|
||||
[LAMBDA (GRAPH NODE SEL DISPLAY?) (* drc%: "25-Jan-86 18:21")
|
||||
[LAMBDA (GRAPH NODE SEL DISPLAY?) (* drc%: "25-Jan-86 18:21")
|
||||
(LET* ((DINFOW (fetch (DINFOGRAPH WINDOW) of GRAPH))
|
||||
(OLDWINDOW (fetch (DINFOGRAPH HISTORY.MENU.WINDOW) of GRAPH))
|
||||
(OLDITEMS (fetch (DINFOGRAPH HISTORY.ITEMS) of GRAPH))
|
||||
@@ -839,17 +838,15 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
|
||||
(DEFINEQ
|
||||
|
||||
(DINFO.UPDATE.GRAPH.DISPLAY
|
||||
[LAMBDA (DINFO.GRAPH NODE FORCE?) (* drc%: "27-Jan-86 16:19")
|
||||
[LAMBDA (DINFO.GRAPH NODE FORCE?) (* drc%: "27-Jan-86 16:19")
|
||||
(LET [(DINFOW (fetch (DINFOGRAPH WINDOW) of DINFO.GRAPH))
|
||||
(LOCATION (CONS (fetch (DINFONODE PARENT) of NODE)
|
||||
(fetch (DINFONODE CHILDREN) of NODE]
|
||||
(if (AND (NOT FORCE?)
|
||||
(EQUAL LOCATION (fetch (DINFOGRAPH LAST.GRAPH.LOCATION) of DINFO.GRAPH)))
|
||||
then
|
||||
|
||||
(* don't need to relayout grapher display --
|
||||
just change which node is inverted.)
|
||||
|
||||
then (* don't need to relayout grapher
|
||||
display -- just change which node is
|
||||
inverted.)
|
||||
(DINFO.INVERT.NODE (fetch (DINFOGRAPH GRAPH.WINDOW) of DINFO.GRAPH)
|
||||
NODE DINFO.GRAPH)
|
||||
else (DINFO.SHOWGRAPH (DINFO.LAYOUTGRAPH DINFO.GRAPH NODE)
|
||||
@@ -944,7 +941,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
|
||||
else (OPENW WINDOW])
|
||||
|
||||
(DINFO.LAYOUTGRAPH
|
||||
[LAMBDA (DINFO.GRAPH NODE) (* drc%: "25-Jan-86 18:20")
|
||||
[LAMBDA (DINFO.GRAPH NODE) (* drc%: "25-Jan-86 18:20")
|
||||
(LET* [(WINDOW (fetch (DINFOGRAPH WINDOW) of DINFO.GRAPH))
|
||||
(FONT (OR (FONTP (fetch (DINFOGRAPH MENUFONT) of DINFO.GRAPH))
|
||||
MENUFONT))
|
||||
@@ -1115,21 +1112,21 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation.
|
||||
)
|
||||
(PUTPROPS DINFO COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4678 6137 (DINFOGRAPHPROP 4678 . 6137)) (7391 24529 (DINFO 7401 . 9015) (DINFO.UPDATE
|
||||
9017 . 11881) (DINFOGRAPH 11883 . 12301) (DINFO.SPECIAL.UPDATE 12303 . 14001) (DINFO.READ.GRAPH 14003
|
||||
. 15858) (DINFO.WRITE.GRAPH 15860 . 16950) (DINFO.SELECT.GRAPH 16952 . 17859) (DINFO.DEFAULT.MENU
|
||||
17861 . 20385) (DINFO.FIND 20387 . 22973) (DINFO.LOOKUP 22975 . 24527)) (24530 27224 (
|
||||
DINFO.READ.KOTO.GRAPH 24540 . 27222)) (27225 29539 (DINFO.SETUP.WINDOW 27235 . 27916) (DINFO.CLOSEFN
|
||||
27918 . 28351) (DINFO.SHRINKFN 28353 . 28549) (DINFO.EXPANDFN 28551 . 29108) (DINFO.ICONFN 29110 .
|
||||
29537)) (29540 40800 (DINFO.ADD.FMENU 29550 . 30645) (DINFO.CREATE.FMENU 30647 . 34596) (
|
||||
DINFO.FMW.CLOSEFN 34598 . 35443) (DINFO.FMENU.HANDLER 35445 . 36084) (DINFO.UPDATE.FMENU 36086 . 38291
|
||||
) (DINFO.TOGGLE.MENU 38293 . 38883) (DINFO.TOGGLE.GRAPH 38885 . 39384) (DINFO.TOGGLE.HISTORY 39386 .
|
||||
39930) (DINFO.TOGGLE.TEXT 39932 . 40798)) (40801 48499 (DINFO.UPDATE.MENU.DISPLAY 40811 . 44831) (
|
||||
DINFO.UPDATE.FROM.MENU 44833 . 45132) (DINFO.UPDATE.HISTORY 45134 . 47668) (DINFO.HISTORIC.UPDATE
|
||||
47670 . 48497)) (48500 58666 (DINFO.UPDATE.GRAPH.DISPLAY 48510 . 49828) (DINFO.UPDATE.FROM.GRAPH 49830
|
||||
. 50273) (DINFO.GET.GRAPH.WINDOW 50275 . 50860) (DINFO.CREATE.GRAPH.WINDOW 50862 . 51979) (
|
||||
DINFO.SHOWGRAPH 51981 . 53706) (DINFO.INVERT.NODE 53708 . 55096) (DINFO.LAYOUTGRAPH 55098 . 58664)) (
|
||||
58667 64610 (DINFO.UPDATE.TEXT.DISPLAY 58677 . 60625) (DINFO.TITLEMENUFN 60627 . 61752) (
|
||||
DINFO.OPENTEXTSTREAM 61754 . 62970) (DINFO.SHOWSEL 62972 . 63705) (DINFO.GET.FILENAME 63707 . 64608)))
|
||||
(FILEMAP (NIL (4744 6203 (DINFOGRAPHPROP 4744 . 6203)) (7457 24595 (DINFO 7467 . 9081) (DINFO.UPDATE
|
||||
9083 . 11947) (DINFOGRAPH 11949 . 12367) (DINFO.SPECIAL.UPDATE 12369 . 14067) (DINFO.READ.GRAPH 14069
|
||||
. 15924) (DINFO.WRITE.GRAPH 15926 . 17016) (DINFO.SELECT.GRAPH 17018 . 17925) (DINFO.DEFAULT.MENU
|
||||
17927 . 20451) (DINFO.FIND 20453 . 23039) (DINFO.LOOKUP 23041 . 24593)) (24596 27290 (
|
||||
DINFO.READ.KOTO.GRAPH 24606 . 27288)) (27291 29605 (DINFO.SETUP.WINDOW 27301 . 27982) (DINFO.CLOSEFN
|
||||
27984 . 28417) (DINFO.SHRINKFN 28419 . 28615) (DINFO.EXPANDFN 28617 . 29174) (DINFO.ICONFN 29176 .
|
||||
29603)) (29606 40850 (DINFO.ADD.FMENU 29616 . 30711) (DINFO.CREATE.FMENU 30713 . 34662) (
|
||||
DINFO.FMW.CLOSEFN 34664 . 35509) (DINFO.FMENU.HANDLER 35511 . 36150) (DINFO.UPDATE.FMENU 36152 . 38341
|
||||
) (DINFO.TOGGLE.MENU 38343 . 38933) (DINFO.TOGGLE.GRAPH 38935 . 39434) (DINFO.TOGGLE.HISTORY 39436 .
|
||||
39980) (DINFO.TOGGLE.TEXT 39982 . 40848)) (40851 48646 (DINFO.UPDATE.MENU.DISPLAY 40861 . 44982) (
|
||||
DINFO.UPDATE.FROM.MENU 44984 . 45283) (DINFO.UPDATE.HISTORY 45285 . 47815) (DINFO.HISTORIC.UPDATE
|
||||
47817 . 48644)) (48647 58943 (DINFO.UPDATE.GRAPH.DISPLAY 48657 . 50109) (DINFO.UPDATE.FROM.GRAPH 50111
|
||||
. 50554) (DINFO.GET.GRAPH.WINDOW 50556 . 51141) (DINFO.CREATE.GRAPH.WINDOW 51143 . 52260) (
|
||||
DINFO.SHOWGRAPH 52262 . 53987) (DINFO.INVERT.NODE 53989 . 55377) (DINFO.LAYOUTGRAPH 55379 . 58941)) (
|
||||
58944 64887 (DINFO.UPDATE.TEXT.DISPLAY 58954 . 60902) (DINFO.TITLEMENUFN 60904 . 62029) (
|
||||
DINFO.OPENTEXTSTREAM 62031 . 63247) (DINFO.SHOWSEL 63249 . 63982) (DINFO.GET.FILENAME 63984 . 64885)))
|
||||
))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
164
lispusers/GITFNS
164
lispusers/GITFNS
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "18-Jul-2022 21:45:18"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GITFNS.;428 113994
|
||||
(FILECREATED "11-Aug-2022 17:54:59"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>GITFNS.;444 115395
|
||||
|
||||
:CHANGES-TO (FNS GIT-MAKE-BRANCH)
|
||||
:CHANGES-TO (FNS GIT-MAKE-PROJECT GIT-INIT)
|
||||
(VARS GITFNSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "18-Jul-2022 09:53:48"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>GITFNS.;427)
|
||||
:PREVIOUS-DATE "25-Jul-2022 15:14:26"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>release-medley>lispusers>GITFNS.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT GITFNSCOMS)
|
||||
@@ -23,24 +24,29 @@
|
||||
|
||||
(* ;; "GIT projects")
|
||||
|
||||
(COMS (FNS GIT-CLONEP GIT-MAKE-PROJECT GIT-GET-PROJECT GIT-PROJECT-PATH
|
||||
(COMS (FNS GIT-CLONEP GIT-INIT GIT-MAKE-PROJECT GIT-GET-PROJECT GIT-PROJECT-PATH
|
||||
FIND-ANCESTOR-DIRECTORY GIT-FIND-CLONE GIT-MAINBRANCH GIT-MAINBRANCH?)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS GIT-PROJECT))
|
||||
(INITVARS (GIT-DEFAULT-PROJECT 'MEDLEY)
|
||||
[GIT-DEFAULT-PROJECTS '((MEDLEY T T
|
||||
(EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/
|
||||
tmp/ fontsold/ clos/ cltl2/)
|
||||
(greetfiles scripts sources library lispusers
|
||||
internal doctools eooma))
|
||||
(NOTECARDS T T)
|
||||
(LOOPS T T)
|
||||
(TEST T T]
|
||||
(GIT-PROJECTS NIL)))
|
||||
(P (GIT-MAKE-PROJECT 'MEDLEY T T '(EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/ tmp/
|
||||
fontsold/ clos/ cltl2/)
|
||||
'(greetfiles scripts sources library lispusers))
|
||||
(GIT-MAKE-PROJECT 'NOTECARDS T T '(online/))
|
||||
(GIT-MAKE-PROJECT 'LOOPS T T)
|
||||
(GIT-MAKE-PROJECT 'TEST T T))
|
||||
(P (GIT-INIT))
|
||||
(ADDVARS (AROUNDEXITFNS GIT-INIT))
|
||||
|
||||
(* ;; "")
|
||||
|
||||
|
||||
(* ;; "Lisp exec commands")
|
||||
|
||||
(INITVARS (GIT-MERGE-COMPARES T))
|
||||
(INITVARS (GIT-MERGE-COMPARES T)
|
||||
(GIT-CDBROWSER-SEPARATE-DIRECTIONS T))
|
||||
(COMMANDS gwc bbc prc cob b? cdg cdw)
|
||||
|
||||
(* ;; "")
|
||||
@@ -145,8 +151,19 @@
|
||||
THEN NIL
|
||||
ELSE (ERROR "NOT A GIT CLONE" HOST/DIR])
|
||||
|
||||
(GIT-INIT
|
||||
[LAMBDA (EVENT) (* ; "Edited 8-Aug-2022 21:52 by lmm")
|
||||
(SELECTQ EVENT
|
||||
((NIL AFTERLOGOUT AFTERMAKESYS AFTERSYSOUT AFTERSAVEVM)
|
||||
(SETQ GIT-PROJECTS NIL)
|
||||
(for X in GIT-DEFAULT-PROJECTS do (APPLY (FUNCTION GIT-MAKE-PROJECT)
|
||||
X))
|
||||
NIL)
|
||||
NIL])
|
||||
|
||||
(GIT-MAKE-PROJECT
|
||||
[LAMBDA (PROJECTNAME PROJECTPATH WORKINGPATH EXCLUSIONS DEFAULTSUBDIRS)
|
||||
(* ; "Edited 11-Aug-2022 17:54 by rmk")
|
||||
(* ; "Edited 13-Jul-2022 13:47 by rmk")
|
||||
(* ; "Edited 6-Jul-2022 19:34 by rmk")
|
||||
(* ; "Edited 17-May-2022 17:08 by rmk")
|
||||
@@ -172,7 +189,10 @@
|
||||
|
||||
(SETQ PROJECTNAME (U-CASE (MKATOM PROJECTNAME)))
|
||||
(CL:WHEN (MEMB PROJECTPATH '(NIL T))
|
||||
[SETQ PROJECTPATH (OR (GIT-CLONEP (UNIX-GETENV PROJECTNAME)
|
||||
[SETQ PROJECTPATH (OR (GIT-CLONEP (MEDLEYDIR (L-CASE PROJECTNAME)
|
||||
NIL NIL T)
|
||||
T)
|
||||
(GIT-CLONEP (UNIX-GETENV PROJECTNAME)
|
||||
T)
|
||||
(GIT-CLONEP (UNIX-GETENV (PACK* PROJECTNAME 'DIR))
|
||||
T)
|
||||
@@ -191,21 +211,21 @@
|
||||
'DIRECTORY
|
||||
'RETURN))
|
||||
T))
|
||||
(SETQ CLONEPATH (IF (GIT-CLONEP PROJECTPATH T T)
|
||||
ELSEIF (SETQ GITPATH (GIT-PROJECT-PATH PROJECTNAME PROJECTPATH))
|
||||
THEN (SETQ PROJECTPATH GITPATH)
|
||||
(SETQ CLONEPATH (if (GIT-CLONEP PROJECTPATH T T)
|
||||
elseif (SETQ GITPATH (GIT-PROJECT-PATH PROJECTNAME PROJECTPATH))
|
||||
then (SETQ PROJECTPATH GITPATH)
|
||||
(GIT-CLONEP PROJECTPATH NIL T)
|
||||
ELSE (ERROR "Can't find GIT clone for" PROJECTPATH)))
|
||||
else (ERROR "Can't find GIT clone for" PROJECTPATH)))
|
||||
(CL:WHEN (SETQ GITIGNORE (INFILEP (PACKFILENAME.STRING 'NAME ".gitignore" 'BODY
|
||||
CLONEPATH)))
|
||||
(SETQ GITIGNORE (CL:WITH-OPEN-FILE (STREAM GITIGNORE)
|
||||
(BIND L UNTIL (EOFP STREAM)
|
||||
WHILE (SETQ L (CL:READ-LINE STREAM :EOF-ERROR-P NIL
|
||||
(bind L until (EOFP STREAM)
|
||||
while (SETQ L (CL:READ-LINE STREAM :EOF-ERROR-P NIL
|
||||
:EOF-VALUE NIL))
|
||||
UNLESS (OR (EQ 0 (NCHARS L))
|
||||
(STRPOS "#" L)) COLLECT L))))
|
||||
(SETQ EXCLUSIONS (CL:REMOVE-DUPLICATES (APPEND (FOR E INSIDE EXCLUSIONS
|
||||
COLLECT (MKSTRING E))
|
||||
unless (OR (EQ 0 (NCHARS L))
|
||||
(STRPOS "#" L)) collect L))))
|
||||
(SETQ EXCLUSIONS (CL:REMOVE-DUPLICATES (APPEND (for E inside EXCLUSIONS
|
||||
collect (MKSTRING E))
|
||||
GITIGNORE
|
||||
`("deleted/" "*.sysout"))
|
||||
:TEST
|
||||
@@ -248,14 +268,14 @@
|
||||
T)))
|
||||
(DIRECTORYNAME (TRUEFILENAME WORKINGPATH)
|
||||
T)))
|
||||
[SETQ WORKINGPATH (IF WP
|
||||
THEN (UNSLASHIT WP T)
|
||||
ELSEIF (EQ WORKINGPATH T)
|
||||
THEN NIL
|
||||
ELSE (ERROR (CONCAT "Can't find the working directory "
|
||||
[SETQ WORKINGPATH (if WP
|
||||
then (UNSLASHIT WP T)
|
||||
elseif (EQ WORKINGPATH T)
|
||||
then NIL
|
||||
else (ERROR (CONCAT "Can't find the working directory "
|
||||
(OR WORKINGPATH "")
|
||||
" for " PROJECTNAME]
|
||||
(SETQ PROJECT (CREATE GIT-PROJECT
|
||||
(SETQ PROJECT (create GIT-PROJECT
|
||||
PROJECTNAME _ PROJECTNAME
|
||||
GITHOST _ (PACK* "{" (PSEUDOHOST (CONCAT "G" PROJECTNAME)
|
||||
PROJECTPATH)
|
||||
@@ -268,7 +288,7 @@
|
||||
DEFAULTSUBDIRS _ (MKLIST DEFAULTSUBDIRS)
|
||||
CLONEPATH _ CLONEPATH))
|
||||
(/RPLACD [OR (ASSOC PROJECTNAME GIT-PROJECTS)
|
||||
(CAR (PUSH GIT-PROJECTS (CONS PROJECTNAME]
|
||||
(CAR (push GIT-PROJECTS (CONS PROJECTNAME]
|
||||
PROJECT)
|
||||
PROJECTNAME))])
|
||||
|
||||
@@ -366,17 +386,18 @@
|
||||
|
||||
(RPAQ? GIT-DEFAULT-PROJECT 'MEDLEY)
|
||||
|
||||
(RPAQ? GIT-DEFAULT-PROJECTS
|
||||
'((MEDLEY T T (EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/ tmp/ fontsold/ clos/ cltl2/)
|
||||
(greetfiles scripts sources library lispusers internal doctools eooma))
|
||||
(NOTECARDS T T)
|
||||
(LOOPS T T)
|
||||
(TEST T T)))
|
||||
|
||||
(RPAQ? GIT-PROJECTS NIL)
|
||||
|
||||
(GIT-MAKE-PROJECT 'MEDLEY T T '(EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/ tmp/ fontsold/ clos/
|
||||
cltl2/)
|
||||
'(greetfiles scripts sources library lispusers))
|
||||
(GIT-INIT)
|
||||
|
||||
(GIT-MAKE-PROJECT 'NOTECARDS T T '(online/))
|
||||
|
||||
(GIT-MAKE-PROJECT 'LOOPS T T)
|
||||
|
||||
(GIT-MAKE-PROJECT 'TEST T T)
|
||||
(ADDTOVAR AROUNDEXITFNS GIT-INIT)
|
||||
|
||||
|
||||
|
||||
@@ -390,6 +411,8 @@
|
||||
|
||||
(RPAQ? GIT-MERGE-COMPARES T)
|
||||
|
||||
(RPAQ? GIT-CDBROWSER-SEPARATE-DIRECTIONS T)
|
||||
|
||||
(DEFCOMMAND gwc (SUBDIR . OTHERS)
|
||||
|
||||
(* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project")
|
||||
@@ -1572,7 +1595,8 @@
|
||||
(LIST DIR1 DIR2 MAPPINGS))])
|
||||
|
||||
(GIT-BRANCHES-COMPARE-DIRECTORIES
|
||||
[LAMBDA (BRANCH1 BRANCH2 LOCAL PROJECT) (* ; "Edited 22-May-2022 22:47 by rmk")
|
||||
[LAMBDA (BRANCH1 BRANCH2 LOCAL PROJECT) (* ; "Edited 20-Jul-2022 21:18 by rmk")
|
||||
(* ; "Edited 22-May-2022 22:47 by rmk")
|
||||
(* ; "Edited 9-May-2022 15:14 by rmk")
|
||||
(* ; "Edited 3-May-2022 23:04 by rmk")
|
||||
(SETQ PROJECT (GIT-GET-PROJECT PROJECT))
|
||||
@@ -1647,7 +1671,7 @@
|
||||
(LIST SHORT1 SHORT2)
|
||||
`(LABELFN GIT-CD-LABELFN BRANCH1 ,BRANCH1 BRANCH2 ,BRANCH2 PROJECT
|
||||
,PROJECT)
|
||||
NIL
|
||||
GIT-CDBROWSER-SEPARATE-DIRECTIONS
|
||||
`(Compare See))
|
||||
(SETQ NENTRIES (LENGTH (FETCH (CDVALUE CDENTRIES) OF CDVALUE)))
|
||||
(LIST NENTRIES (CL:IF (EQ NENTRIES 1)
|
||||
@@ -1659,6 +1683,8 @@
|
||||
(GIT-WORKING-COMPARE-DIRECTORIES
|
||||
[LAMBDA (SUBDIRS SELECT EXCLUDEDFILES FIXDIRECTORYDATES UPDATE PROJECT)
|
||||
|
||||
(* ;; "Edited 20-Jul-2022 21:18 by rmk")
|
||||
|
||||
(* ;; "Edited 25-Jun-2022 21:37 by rmk")
|
||||
|
||||
(* ;; "Edited 17-May-2022 17:39 by rmk")
|
||||
@@ -1722,7 +1748,7 @@
|
||||
[CDBROWSER CDVAL TITLE `(,WPROJ ,BRANCH2)
|
||||
`(BRANCH1 ,WPROJ BRANCH2 ,BRANCH2 SUBDIR ,SUBDIR LABELFN
|
||||
GIT-CD-LABELFN PROJECT ,PROJECT)
|
||||
NIL
|
||||
GIT-CDBROWSER-SEPARATE-DIRECTIONS
|
||||
`(Compare See "" Copy% <- (|Delete ALL <-| GIT-CD-MENUFN)
|
||||
,@(CL:UNLESS (GIT-MAINBRANCH? BRANCH2 PROJECT T)
|
||||
'("" Copy% -> (Delete% -> GIT-CD-MENUFN)))]
|
||||
@@ -2134,31 +2160,31 @@
|
||||
|
||||
(PUTPROPS GITFNS FILETYPE :TCOMPL)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3603 18135 (GIT-CLONEP 3613 . 4876) (GIT-MAKE-PROJECT 4878 . 12976) (GIT-GET-PROJECT
|
||||
12978 . 14903) (GIT-PROJECT-PATH 14905 . 15949) (FIND-ANCESTOR-DIRECTORY 15951 . 16300) (
|
||||
GIT-FIND-CLONE 16302 . 17383) (GIT-MAINBRANCH 17385 . 17780) (GIT-MAINBRANCH? 17782 . 18133)) (24452
|
||||
27240 (ALLSUBDIRS 24462 . 25748) (MEDLEYSUBDIRS 25750 . 26443) (GITSUBDIRS 26445 . 27238)) (27241
|
||||
32031 (TOGIT 27251 . 28657) (FROMGIT 28659 . 29640) (GIT-DELETE-FILE 29642 . 30488) (
|
||||
MYMEDLEY-DELETE-FILES 30490 . 32029)) (32032 34564 (MYMEDLEYSUBDIR 32042 . 32498) (GITSUBDIR 32500 .
|
||||
32943) (STRIPDIR 32945 . 33316) (STRIPHOST 33318 . 33558) (STRIPNAME 33560 . 34313) (STRIPWHERE 34315
|
||||
. 34562)) (34565 36467 (GFILE4MFILE 34575 . 34938) (MFILE4GFILE 34940 . 35509) (GIT-REPO-FILENAME
|
||||
35511 . 36465)) (36516 46338 (GIT-COMMIT 36526 . 37352) (GIT-PUSH 37354 . 37998) (GIT-PULL 38000 .
|
||||
38612) (GIT-APPROVAL 38614 . 38963) (GIT-GET-FILE 38965 . 40930) (GIT-FILE-EXISTS? 40932 . 41206) (
|
||||
GIT-REMOTE-UPDATE 41208 . 41932) (GIT-REMOTE-ADD 41934 . 42241) (GIT-FILE-DATE 42243 . 43174) (
|
||||
GIT-FILE-HISTORY 43176 . 45110) (GIT-PRINT-FILE-HISTORY 45112 . 46162) (GIT-FETCH 46164 . 46336)) (
|
||||
46368 57100 (GIT-BRANCH-DIFF 46378 . 53162) (GIT-COMMIT-DIFFS 53164 . 53717) (GIT-BRANCH-RELATIONS
|
||||
53719 . 57098)) (57145 67947 (GIT-BRANCH-NUM 57155 . 57728) (GIT-CHECKOUT 57730 . 58789) (
|
||||
GIT-WHICH-BRANCH 58791 . 59089) (GIT-MAKE-BRANCH 59091 . 61304) (GIT-BRANCHES 61306 . 63279) (
|
||||
GIT-BRANCH-EXISTS? 63281 . 63985) (GIT-PICK-BRANCH 63987 . 64315) (GIT-PRC-MENU 64317 . 66065) (
|
||||
GIT-PULL-REQUESTS 66067 . 67333) (GIT-SHORT-BRANCH-NAME 67335 . 67626) (GIT-LONG-NAME 67628 . 67945))
|
||||
(67977 71312 (GIT-MY-CURRENT-BRANCH 67987 . 68357) (GIT-MY-BRANCHP 68359 . 68864) (GIT-MY-NEXT-BRANCH
|
||||
68866 . 69360) (GIT-MY-BRANCHES 69362 . 71310)) (71358 75310 (GIT-ADD-WORKTREE 71368 . 72852) (
|
||||
GIT-REMOVE-WORKTREE 72854 . 73784) (GIT-LIST-WORKTREES 73786 . 74590) (WORKTREEDIR 74592 . 75308)) (
|
||||
75358 105340 (GIT-GET-DIFFERENT-FILES 75368 . 81193) (GIT-BRANCHES-COMPARE-DIRECTORIES 81195 . 87037)
|
||||
(GIT-WORKING-COMPARE-DIRECTORIES 87039 . 91785) (GIT-COMPARE-WORKTREE 91787 . 95765) (GITCDOBJBUTTONFN
|
||||
95767 . 100257) (GIT-CD-LABELFN 100259 . 101341) (GIT-CD-MENUFN 101343 . 103550) (
|
||||
GIT-WORKING-COMPARE-FILES 103552 . 104172) (GIT-BRANCHES-COMPARE-FILES 104174 . 105338)) (105410
|
||||
113927 (CDGITDIR 105420 . 105980) (GIT-COMMAND 105982 . 107540) (GITORIGIN 107542 . 108239) (
|
||||
GIT-INITIALS 108241 . 108545) (GIT-COMMAND-TO-FILE 108547 . 112036) (PROCESS-COMMAND 112038 . 112651)
|
||||
(GIT-RESULT-TO-LINES 112653 . 113260) (STRIPLOCAL 113262 . 113925)))))
|
||||
(FILEMAP (NIL (4005 19253 (GIT-CLONEP 4015 . 5278) (GIT-INIT 5280 . 5707) (GIT-MAKE-PROJECT 5709 .
|
||||
14094) (GIT-GET-PROJECT 14096 . 16021) (GIT-PROJECT-PATH 16023 . 17067) (FIND-ANCESTOR-DIRECTORY 17069
|
||||
. 17418) (GIT-FIND-CLONE 17420 . 18501) (GIT-MAINBRANCH 18503 . 18898) (GIT-MAINBRANCH? 18900 . 19251
|
||||
)) (25634 28422 (ALLSUBDIRS 25644 . 26930) (MEDLEYSUBDIRS 26932 . 27625) (GITSUBDIRS 27627 . 28420)) (
|
||||
28423 33213 (TOGIT 28433 . 29839) (FROMGIT 29841 . 30822) (GIT-DELETE-FILE 30824 . 31670) (
|
||||
MYMEDLEY-DELETE-FILES 31672 . 33211)) (33214 35746 (MYMEDLEYSUBDIR 33224 . 33680) (GITSUBDIR 33682 .
|
||||
34125) (STRIPDIR 34127 . 34498) (STRIPHOST 34500 . 34740) (STRIPNAME 34742 . 35495) (STRIPWHERE 35497
|
||||
. 35744)) (35747 37649 (GFILE4MFILE 35757 . 36120) (MFILE4GFILE 36122 . 36691) (GIT-REPO-FILENAME
|
||||
36693 . 37647)) (37698 47520 (GIT-COMMIT 37708 . 38534) (GIT-PUSH 38536 . 39180) (GIT-PULL 39182 .
|
||||
39794) (GIT-APPROVAL 39796 . 40145) (GIT-GET-FILE 40147 . 42112) (GIT-FILE-EXISTS? 42114 . 42388) (
|
||||
GIT-REMOTE-UPDATE 42390 . 43114) (GIT-REMOTE-ADD 43116 . 43423) (GIT-FILE-DATE 43425 . 44356) (
|
||||
GIT-FILE-HISTORY 44358 . 46292) (GIT-PRINT-FILE-HISTORY 46294 . 47344) (GIT-FETCH 47346 . 47518)) (
|
||||
47550 58282 (GIT-BRANCH-DIFF 47560 . 54344) (GIT-COMMIT-DIFFS 54346 . 54899) (GIT-BRANCH-RELATIONS
|
||||
54901 . 58280)) (58327 69129 (GIT-BRANCH-NUM 58337 . 58910) (GIT-CHECKOUT 58912 . 59971) (
|
||||
GIT-WHICH-BRANCH 59973 . 60271) (GIT-MAKE-BRANCH 60273 . 62486) (GIT-BRANCHES 62488 . 64461) (
|
||||
GIT-BRANCH-EXISTS? 64463 . 65167) (GIT-PICK-BRANCH 65169 . 65497) (GIT-PRC-MENU 65499 . 67247) (
|
||||
GIT-PULL-REQUESTS 67249 . 68515) (GIT-SHORT-BRANCH-NAME 68517 . 68808) (GIT-LONG-NAME 68810 . 69127))
|
||||
(69159 72494 (GIT-MY-CURRENT-BRANCH 69169 . 69539) (GIT-MY-BRANCHP 69541 . 70046) (GIT-MY-NEXT-BRANCH
|
||||
70048 . 70542) (GIT-MY-BRANCHES 70544 . 72492)) (72540 76492 (GIT-ADD-WORKTREE 72550 . 74034) (
|
||||
GIT-REMOVE-WORKTREE 74036 . 74966) (GIT-LIST-WORKTREES 74968 . 75772) (WORKTREEDIR 75774 . 76490)) (
|
||||
76540 106741 (GIT-GET-DIFFERENT-FILES 76550 . 82375) (GIT-BRANCHES-COMPARE-DIRECTORIES 82377 . 88358)
|
||||
(GIT-WORKING-COMPARE-DIRECTORIES 88360 . 93186) (GIT-COMPARE-WORKTREE 93188 . 97166) (GITCDOBJBUTTONFN
|
||||
97168 . 101658) (GIT-CD-LABELFN 101660 . 102742) (GIT-CD-MENUFN 102744 . 104951) (
|
||||
GIT-WORKING-COMPARE-FILES 104953 . 105573) (GIT-BRANCHES-COMPARE-FILES 105575 . 106739)) (106811
|
||||
115328 (CDGITDIR 106821 . 107381) (GIT-COMMAND 107383 . 108941) (GITORIGIN 108943 . 109640) (
|
||||
GIT-INITIALS 109642 . 109946) (GIT-COMMAND-TO-FILE 109948 . 113437) (PROCESS-COMMAND 113439 . 114052)
|
||||
(GIT-RESULT-TO-LINES 114054 . 114661) (STRIPLOCAL 114663 . 115326)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "20-Jul-2022 13:05:12"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;67 36927
|
||||
(FILECREATED "24-Jul-2022 14:56:07"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;75 37244
|
||||
|
||||
:CHANGES-TO (FNS \BACKCCODE.EOLC)
|
||||
:CHANGES-TO (MACROS \CHECKEOLC)
|
||||
(FNS \INCCODE.EOLC)
|
||||
|
||||
:PREVIOUS-DATE "19-Jul-2022 23:52:46"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;66)
|
||||
:PREVIOUS-DATE "24-Jul-2022 08:30:32"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;72)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT EXTERNALFORMATCOMS)
|
||||
@@ -432,45 +433,42 @@
|
||||
EOL STREAM T])
|
||||
|
||||
(\INCCODE.EOLC
|
||||
[LAMBDA (STREAM EOLC BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 30-Jun-2022 10:12 by rmk")
|
||||
[LAMBDA (STREAM EOLC BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 24-Jul-2022 13:15 by rmk")
|
||||
(* ; "Edited 30-Jun-2022 10:12 by rmk")
|
||||
(* ; "Edited 8-Aug-2021 14:52 by rmk:")
|
||||
|
||||
(* ;; "EOL conversion around essentially a copy of \INCCODE but avoids the extra function call.")
|
||||
|
||||
(* ;; " EOLC of ANY means all patterns go to EOL")
|
||||
(* ;; "EOLC of ANY means all patterns go to EOL")
|
||||
|
||||
(* ;; "For simplicity of the raft of implementation functions, they only need to set the constant *BYTECOUNTER* to the number of bytes moved forward (if COUNTP is T). We take responsibility for translating the forward bytes to the countdown value of the particular BYTECOUNTVAR. The goal is simplicity on both sides of the interface. ")
|
||||
|
||||
(CL:UNLESS EOLC
|
||||
(SETQ EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM)))
|
||||
|
||||
(* ;; "The implementation functions could do a multiple value return, but that seems to be slower and buggy in current implementation, compared to free-variable setting.")
|
||||
|
||||
(IF BYTECOUNTVAR
|
||||
THEN [LET (*BYTECOUNTER* CODE)
|
||||
THEN (LET (*BYTECOUNTER* CODE)
|
||||
(DECLARE (SPECVARS *BYTECOUNTER*))
|
||||
|
||||
(* ;; "The INCCODEFN first sets *BYTECOUNTER*")
|
||||
|
||||
(CL:UNLESS BYTECOUNTVAL
|
||||
(SETQ BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)))
|
||||
(SETQ CODE (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM)
|
||||
STREAM T))
|
||||
|
||||
(* ;; "Update according to the number of first-char (CR or LF) bytes")
|
||||
|
||||
(SETQ BYTECOUNTVAL (IDIFFERENCE BYTECOUNTVAL *BYTECOUNTER*))
|
||||
(SETQ *BYTECOUNTER* 0)
|
||||
|
||||
(* ;; "*BYTECOUNTER* will now be reset to the number of LF-after-CR bytes, if any")
|
||||
|
||||
(PROG1 (\CHECKEOLC CODE (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM))
|
||||
STREAM NIL T)
|
||||
|
||||
(* ;; "Post the results")
|
||||
|
||||
(SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL *BYTECOUNTER*)))]
|
||||
(SETQ CODE (\CHECKEOLC (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM)
|
||||
STREAM T)
|
||||
EOLC STREAM NIL T))
|
||||
(SET BYTECOUNTVAR (IDIFFERENCE (OR BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR))
|
||||
*BYTECOUNTER*))
|
||||
CODE)
|
||||
ELSE (\CHECKEOLC (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM)
|
||||
STREAM)
|
||||
(OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM))
|
||||
STREAM])
|
||||
EOLC STREAM])
|
||||
|
||||
(\FORMATBYTESTREAM
|
||||
[LAMBDA (STREAM BYTESTREAM) (* ; "Edited 22-Jun-2022 11:09 by rmk")
|
||||
(* ; "Edited 24-Jun-2021 17:26 by rmk:")
|
||||
[LAMBDA (STREAM BYTESTREAM)
|
||||
|
||||
(* ;; "Edited 24-Jul-2022 08:30 by rmk: STREAM can be the external format to be used for BYTESTREAM, not just a carrier of that format")
|
||||
|
||||
(* ;; "Edited 22-Jun-2022 11:09 by rmk")
|
||||
|
||||
(* ;; "Edited 24-Jun-2021 17:26 by rmk:")
|
||||
|
||||
(* ;; "Create or modify a stream that will simulate the current character input/output byte sequences of STREAM. The set up here does what is common to all formats: an IO stream starting with STREAM external format and EOL.")
|
||||
|
||||
@@ -479,17 +477,25 @@
|
||||
(CL:UNLESS (AND (STREAMP BYTESTREAM)
|
||||
(\IOMODEP BYTESTREAM 'BOTH))
|
||||
(SETQ BYTESTREAM (OPENSTREAM '{NODIRCORE} 'BOTH)))
|
||||
(LET ((FORMAT (FETCH (STREAM EXTERNALFORMAT) OF STREAM))
|
||||
(EOLC (FETCH (STREAM EOLCONVENTION) OF STREAM)))
|
||||
(LET (FORMAT EOLC)
|
||||
(IF (TYPE? STREAM STREAM)
|
||||
THEN (SETQ FORMAT (FFETCH (STREAM EXTERNALFORMAT) OF STREAM))
|
||||
(SETQ EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM))
|
||||
(CL:WHEN (EQ EOLC ANY.EOLC)
|
||||
(SETQ EOLC (OR (FFETCH (EXTERNALFORMAT EOL) OF FORMAT)
|
||||
LF.EOLC)))
|
||||
ELSEIF (TYPE? EXTERNALFORMAT STREAM)
|
||||
THEN (SETQ FORMAT STREAM)
|
||||
(SETQ EOLC (FFETCH (EXTERNALFORMAT EOL) OF FORMAT)))
|
||||
(\EXTERNALFORMAT BYTESTREAM FORMAT)
|
||||
(CL:WHEN (EQ EOLC ANY.EOLC)
|
||||
(SETQ EOLC (OR (FETCH (EXTERNALFORMAT EOL) OF FORMAT)
|
||||
LF.EOLC)))
|
||||
(REPLACE (STREAM EOLCONVENTION) OF BYTESTREAM WITH EOLC)
|
||||
(\SETFILEPTR BYTESTREAM 0)
|
||||
(freplace (STREAM ENDOFSTREAMOP) of BYTESTREAM with (FUNCTION NILL))
|
||||
(CL:WHEN (FETCH (EXTERNALFORMAT FORMATBYTESTREAMFN) OF FORMAT)
|
||||
(APPLY* (FETCH (EXTERNALFORMAT FORMATBYTESTREAMFN) OF FORMAT)
|
||||
|
||||
(* ;; "Presumably any format-specific cleanup function will know what to do if it receives a format instead of a stream.")
|
||||
|
||||
(CL:WHEN (FFETCH (EXTERNALFORMAT FORMATBYTESTREAMFN) OF FORMAT)
|
||||
(APPLY* (FFETCH (EXTERNALFORMAT FORMATBYTESTREAMFN) OF FORMAT)
|
||||
STREAM BYTESTREAM))
|
||||
BYTESTREAM])
|
||||
|
||||
@@ -568,24 +574,19 @@
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \CHECKEOLC MACRO [OPENLAMBDA (CH EOLC STRM PEEKBINFLG COUNTP)
|
||||
(COND
|
||||
((EQ EOLC 'NOEOLC)
|
||||
CH)
|
||||
(T (SELCHARQ CH
|
||||
(LF (SELECTC (OR EOLC (FFETCH (STREAM EOLCONVENTION)
|
||||
OF STRM))
|
||||
((LIST LF.EOLC ANY.EOLC 'LF 'ANY)
|
||||
(CHARCODE EOL))
|
||||
(CHARCODE LF)))
|
||||
(CR (SELECTC (OR EOLC (FFETCH (STREAM EOLCONVENTION)
|
||||
OF STRM))
|
||||
((LIST CR.EOLC 'ANY)
|
||||
(CHARCODE EOL))
|
||||
((LIST ANY.EOLC CRLF.EOLC 'CRLF 'ANY)
|
||||
(\CHECKEOLC.CRLF STRM PEEKBINFLG COUNTP))
|
||||
(CHARCODE CR)))
|
||||
CH])
|
||||
(PUTPROPS \CHECKEOLC MACRO (OPENLAMBDA (CH EOLC STRM PEEKBINFLG COUNTP)
|
||||
(SELCHARQ CH
|
||||
(LF (SELECTC (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STRM))
|
||||
((LIST LF.EOLC ANY.EOLC 'LF 'ANY)
|
||||
(CHARCODE EOL))
|
||||
(CHARCODE LF)))
|
||||
(CR (SELECTC (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STRM))
|
||||
((LIST CR.EOLC 'ANY)
|
||||
(CHARCODE EOL))
|
||||
((LIST ANY.EOLC CRLF.EOLC 'CRLF 'ANY)
|
||||
(\CHECKEOLC.CRLF STRM PEEKBINFLG COUNTP))
|
||||
(CHARCODE CR)))
|
||||
CH)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -659,17 +660,23 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\CREATE.THROUGH.EXTERNALFORMAT
|
||||
[LAMBDA NIL (* ; "Edited 23-Jun-2021 13:34 by rmk:")
|
||||
[LAMBDA NIL (* ; "Edited 24-Jul-2022 08:08 by rmk")
|
||||
(* ; "Edited 23-Jun-2021 13:34 by rmk:")
|
||||
|
||||
(* ;;; "Create an instance of EXTERNALFORMAT datatype and install it with :THROUGH as its name. EOL is adjusted to CR so as not to do any eol conversion on this stream.")
|
||||
(* ;;; "Create the :THROUGH external format. EOL is adjusted so that the .EOLC callers will not do any conversion.")
|
||||
|
||||
(\INSTALL.EXTERNALFORMAT (create EXTERNALFORMAT
|
||||
NAME _ :THROUGH
|
||||
INCCODEFN _ (FUNCTION \THROUGHIN)
|
||||
PEEKCCODEFN _ (FUNCTION \PEEKBIN)
|
||||
BACKCCODEFN _ (FUNCTION \THROUGHBACKCCODE)
|
||||
OUTCHARFN _ (FUNCTION \THROUGHOUTCHARFN)
|
||||
EOL _ CR.EOLC])
|
||||
(MAKE-EXTERNALFORMAT :THROUGH (FUNCTION \THROUGHIN)
|
||||
(FUNCTION \PEEKBIN)
|
||||
(FUNCTION \THROUGHBACKCCODE)
|
||||
(FUNCTION \THROUGHOUTCHARFN)
|
||||
NIL
|
||||
(CL:IF (EQ (CHARCODE CR)
|
||||
(CHARCODE EOL))
|
||||
CR.EOLC
|
||||
LF.EOLC)
|
||||
NIL
|
||||
(FUNCTION (LAMBDA (STREAM STRING)
|
||||
(MKSTRING STRING])
|
||||
|
||||
(\THROUGHIN
|
||||
[LAMBDA (STREAM COUNTP) (* ; "Edited 6-Aug-2021 16:13 by rmk:")
|
||||
@@ -705,13 +712,13 @@
|
||||
(\CREATE.THROUGH.EXTERNALFORMAT)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6571 13206 (\EXTERNALFORMAT 6581 . 10359) (MAKE-EXTERNALFORMAT 10361 . 12733) (
|
||||
\EXTERNALFORMAT.DEFPRINT 12735 . 13204)) (13207 16248 (\INSTALL.EXTERNALFORMAT 13217 . 14666) (
|
||||
\REMOVE.EXTERNALFORMAT 14668 . 15499) (FIND-FORMAT 15501 . 16246)) (16249 16462 (SYSTEM-EXTERNALFORMAT
|
||||
16259 . 16460)) (16811 31010 (\OUTCHAR 16821 . 18038) (\INCCODE 18040 . 19193) (\BACKCCODE 19195 .
|
||||
20764) (\BACKCCODE.EOLC 20766 . 22956) (\PEEKCCODE 22958 . 23283) (\PEEKCCODE.EOLC 23285 . 23664) (
|
||||
\INCCODE.EOLC 23666 . 25346) (\FORMATBYTESTREAM 25348 . 26981) (\FORMATBYTESTRING 26983 . 28442) (
|
||||
\CHECKEOLC.CRLF 28444 . 31008)) (32612 34848 (\NULLDEVICE 32622 . 34524) (\NULL.OPENFILE 34526 . 34846
|
||||
)) (34988 36831 (\CREATE.THROUGH.EXTERNALFORMAT 34998 . 35800) (\THROUGHIN 35802 . 36222) (
|
||||
\THROUGHBACKCCODE 36224 . 36491) (\THROUGHOUTCHARFN 36493 . 36829)))))
|
||||
(FILEMAP (NIL (6607 13242 (\EXTERNALFORMAT 6617 . 10395) (MAKE-EXTERNALFORMAT 10397 . 12769) (
|
||||
\EXTERNALFORMAT.DEFPRINT 12771 . 13240)) (13243 16284 (\INSTALL.EXTERNALFORMAT 13253 . 14702) (
|
||||
\REMOVE.EXTERNALFORMAT 14704 . 15535) (FIND-FORMAT 15537 . 16282)) (16285 16498 (SYSTEM-EXTERNALFORMAT
|
||||
16295 . 16496)) (16847 31667 (\OUTCHAR 16857 . 18074) (\INCCODE 18076 . 19229) (\BACKCCODE 19231 .
|
||||
20800) (\BACKCCODE.EOLC 20802 . 22992) (\PEEKCCODE 22994 . 23319) (\PEEKCCODE.EOLC 23321 . 23700) (
|
||||
\INCCODE.EOLC 23702 . 25501) (\FORMATBYTESTREAM 25503 . 27638) (\FORMATBYTESTRING 27640 . 29099) (
|
||||
\CHECKEOLC.CRLF 29101 . 31665)) (32945 35181 (\NULLDEVICE 32955 . 34857) (\NULL.OPENFILE 34859 . 35179
|
||||
)) (35321 37148 (\CREATE.THROUGH.EXTERNALFORMAT 35331 . 36117) (\THROUGHIN 36119 . 36539) (
|
||||
\THROUGHBACKCCODE 36541 . 36808) (\THROUGHOUTCHARFN 36810 . 37146)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
105
sources/FILEIO
105
sources/FILEIO
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "19-Jul-2022 23:23:39"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEIO.;115 160200
|
||||
(FILECREATED "24-Jul-2022 09:28:20"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEIO.;116 160597
|
||||
|
||||
:CHANGES-TO (FNS \GENERIC.READP)
|
||||
:CHANGES-TO (VARS FILEIOCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 8-Jul-2022 10:59:15"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEIO.;114)
|
||||
:PREVIOUS-DATE "19-Jul-2022 23:23:39"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEIO.;115)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -90,7 +90,14 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
|
||||
(FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP
|
||||
\GENERIC.CHARSET)
|
||||
(FNS \MAP-OPEN-STREAMS)
|
||||
(VARS FILING.TYPES)
|
||||
[INITVARS (FILING.TYPES '((BINARY 0)
|
||||
(DIRECTORY 1)
|
||||
(TEXT 2)
|
||||
(SERIALIZED 3)
|
||||
(INTERPRESS 4361)
|
||||
(TEDIT 6056)
|
||||
(FASL 6057)
|
||||
(LAFITE 6058]
|
||||
(GLOBALVARS FILING.TYPES)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \DEVICE-OPEN-STREAMS \CONVERT-PATHNAME
|
||||
)
|
||||
@@ -2656,14 +2663,14 @@ update the map")
|
||||
collect (APPLY* FN STREAM])
|
||||
)
|
||||
|
||||
(RPAQQ FILING.TYPES ((BINARY 0)
|
||||
(DIRECTORY 1)
|
||||
(TEXT 2)
|
||||
(SERIALIZED 3)
|
||||
(INTERPRESS 4361)
|
||||
(TEDIT 6056)
|
||||
(FASL 6057)
|
||||
(LAFITE 6058)))
|
||||
(RPAQ? FILING.TYPES '((BINARY 0)
|
||||
(DIRECTORY 1)
|
||||
(TEXT 2)
|
||||
(SERIALIZED 3)
|
||||
(INTERPRESS 4361)
|
||||
(TEDIT 6056)
|
||||
(FASL 6057)
|
||||
(LAFITE 6058)))
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS FILING.TYPES)
|
||||
@@ -3071,39 +3078,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 (27459 31265 (STREAMPROP 27469 . 27903) (GETSTREAMPROP 27905 . 28500) (PUTSTREAMPROP
|
||||
28502 . 31113) (STREAMP 31115 . 31263)) (31308 33827 (\DEFPRINT.BY.NAME 31318 . 32470) (
|
||||
\STREAM.DEFPRINT 32472 . 33520) (\FDEV.DEFPRINT 33522 . 33825)) (34085 39126 (\GETACCESS 34095 . 34549
|
||||
) (\SETACCESS 34551 . 39124)) (59352 65321 (\DEFINEDEVICE 59362 . 61678) (\GETDEVICEFROMNAME 61680 .
|
||||
62153) (\GETDEVICEFROMHOSTNAME 62155 . 63199) (\REMOVEDEVICE 63201 . 64324) (\REMOVEDEVICE.NAMES 64326
|
||||
. 65319)) (65361 90252 (\CLOSEFILE 65371 . 66196) (\DELETEFILE 66198 . 66492) (\DEVICEEVENT 66494 .
|
||||
68264) (\GENERATEFILES 68266 . 69213) (\GENERATENEXTFILE 69215 . 69866) (\GENERATEFILEINFO 69868 .
|
||||
70329) (\GETFILENAME 70331 . 70720) (\GENERIC.OUTFILEP 70722 . 71192) (\OPENFILE 71194 . 73772) (
|
||||
\DO.PARAMS.AT.OPEN 73774 . 76089) (\RENAMEFILE 76091 . 76515) (\REVALIDATEFILE 76517 . 79119) (
|
||||
\PAGED.REVALIDATEFILELST 79121 . 80679) (\PAGED.REVALIDATEFILES 80681 . 82400) (\PAGED.REVALIDATEFILE
|
||||
82402 . 84685) (\BUFFERED.REVALIDATEFILE 84687 . 86973) (\BUFFERED.REVALIDATEFILELST 86975 . 88159) (
|
||||
\PRINT-REVALIDATION-RESULT 88161 . 88576) (\TRUNCATEFILE 88578 . 88969) (\FILE-CONFLICT 88971 . 90250)
|
||||
) (90288 94951 (\GENERATENOFILES 90298 . 92394) (\NULLFILEGENERATOR 92396 . 92640) (\NOFILESNEXTFILEFN
|
||||
92642 . 94633) (\NOFILESINFOFN 94635 . 94949)) (95070 96978 (\FILE.NOT.OPEN 95080 . 95593) (
|
||||
\FILE.WONT.OPEN 95595 . 95923) (\ILLEGAL.DEVICEOP 95925 . 96207) (\IS.NOT.RANDACCESSP 96209 . 96655) (
|
||||
\STREAM.NOT.OPEN 96657 . 96976)) (97113 99411 (\FDEVINSTANCE 97123 . 99409)) (100613 107987 (CNDIR
|
||||
100623 . 101928) (DIRECTORYNAME 101930 . 106113) (DIRECTORYNAMEP 106115 . 106731) (HOSTNAMEP 106733 .
|
||||
107540) (\ADD.CONNECTED.DIR 107542 . 107985)) (108032 136305 (\BACKFILEPTR 108042 . 108230) (
|
||||
\BACKPEEKBIN 108232 . 108593) (\BACKBIN 108595 . 108946) (BIN 108948 . 109165) (\BIN 109167 . 109444)
|
||||
(\BINS 109446 . 109732) (BOUT 109734 . 110096) (\BOUT 110098 . 110413) (\BOUTS 110415 . 110726) (
|
||||
COPYBYTES 110728 . 114060) (COPYCHARS 114062 . 117728) (COPYFILE 117730 . 118794) (\COPYOPENFILE
|
||||
118796 . 121995) (\INFER.FILE.TYPE 121997 . 122951) (EOFP 122953 . 123250) (FORCEOUTPUT 123252 .
|
||||
123499) (\FLUSH.OPEN.STREAMS 123501 . 123857) (CHARSET 123859 . 125523) (ACCESS-CHARSET 125525 .
|
||||
125742) (GETEOFPTR 125744 . 125994) (GETFILEINFO 125996 . 129189) (\TYPE.FROM.FILETYPE 129191 . 129661
|
||||
) (\FILETYPE.FROM.TYPE 129663 . 129842) (GETFILEPTR 129844 . 130096) (SETFILEINFO 130098 . 134204) (
|
||||
SETFILEPTR 134206 . 135925) (BOUT16 135927 . 136112) (BIN16 136114 . 136303)) (136408 141724 (
|
||||
\GENERIC.BINS 136418 . 136698) (\GENERIC.BOUTS 136700 . 136965) (\GENERIC.RENAMEFILE 136967 . 138798)
|
||||
(\GENERIC.OPENP 138800 . 140115) (\GENERIC.READP 140117 . 141269) (\GENERIC.CHARSET 141271 . 141722))
|
||||
(141725 142064 (\MAP-OPEN-STREAMS 141735 . 142062)) (143848 145928 (\EOF.ACTION 143858 . 144109) (
|
||||
\EOSERROR 144111 . 144304) (\GETEOFPTR 144306 . 144488) (\INCFILEPTR 144490 . 144840) (\PEEKBIN 144842
|
||||
. 145033) (\SETCLOSEDFILELENGTH 145035 . 145369) (\SETEOFPTR 145371 . 145559) (\SETFILEPTR 145561 .
|
||||
145926)) (145929 146471 (\FIXPOUT 145939 . 146239) (\FIXPIN 146241 . 146469)) (146472 147038 (\BOUTEOL
|
||||
146482 . 147036)) (149934 159798 (\BUFFERED.BIN 149944 . 150796) (\BUFFERED.PEEKBIN 150798 . 151580)
|
||||
(\BUFFERED.BOUT 151582 . 152442) (\BUFFERED.BINS 152444 . 156129) (\BUFFERED.BOUTS 156131 . 157932) (
|
||||
\BUFFERED.COPYBYTES 157934 . 159796)))))
|
||||
(FILEMAP (NIL (27848 31654 (STREAMPROP 27858 . 28292) (GETSTREAMPROP 28294 . 28889) (PUTSTREAMPROP
|
||||
28891 . 31502) (STREAMP 31504 . 31652)) (31697 34216 (\DEFPRINT.BY.NAME 31707 . 32859) (
|
||||
\STREAM.DEFPRINT 32861 . 33909) (\FDEV.DEFPRINT 33911 . 34214)) (34474 39515 (\GETACCESS 34484 . 34938
|
||||
) (\SETACCESS 34940 . 39513)) (59741 65710 (\DEFINEDEVICE 59751 . 62067) (\GETDEVICEFROMNAME 62069 .
|
||||
62542) (\GETDEVICEFROMHOSTNAME 62544 . 63588) (\REMOVEDEVICE 63590 . 64713) (\REMOVEDEVICE.NAMES 64715
|
||||
. 65708)) (65750 90641 (\CLOSEFILE 65760 . 66585) (\DELETEFILE 66587 . 66881) (\DEVICEEVENT 66883 .
|
||||
68653) (\GENERATEFILES 68655 . 69602) (\GENERATENEXTFILE 69604 . 70255) (\GENERATEFILEINFO 70257 .
|
||||
70718) (\GETFILENAME 70720 . 71109) (\GENERIC.OUTFILEP 71111 . 71581) (\OPENFILE 71583 . 74161) (
|
||||
\DO.PARAMS.AT.OPEN 74163 . 76478) (\RENAMEFILE 76480 . 76904) (\REVALIDATEFILE 76906 . 79508) (
|
||||
\PAGED.REVALIDATEFILELST 79510 . 81068) (\PAGED.REVALIDATEFILES 81070 . 82789) (\PAGED.REVALIDATEFILE
|
||||
82791 . 85074) (\BUFFERED.REVALIDATEFILE 85076 . 87362) (\BUFFERED.REVALIDATEFILELST 87364 . 88548) (
|
||||
\PRINT-REVALIDATION-RESULT 88550 . 88965) (\TRUNCATEFILE 88967 . 89358) (\FILE-CONFLICT 89360 . 90639)
|
||||
) (90677 95340 (\GENERATENOFILES 90687 . 92783) (\NULLFILEGENERATOR 92785 . 93029) (\NOFILESNEXTFILEFN
|
||||
93031 . 95022) (\NOFILESINFOFN 95024 . 95338)) (95459 97367 (\FILE.NOT.OPEN 95469 . 95982) (
|
||||
\FILE.WONT.OPEN 95984 . 96312) (\ILLEGAL.DEVICEOP 96314 . 96596) (\IS.NOT.RANDACCESSP 96598 . 97044) (
|
||||
\STREAM.NOT.OPEN 97046 . 97365)) (97502 99800 (\FDEVINSTANCE 97512 . 99798)) (101002 108376 (CNDIR
|
||||
101012 . 102317) (DIRECTORYNAME 102319 . 106502) (DIRECTORYNAMEP 106504 . 107120) (HOSTNAMEP 107122 .
|
||||
107929) (\ADD.CONNECTED.DIR 107931 . 108374)) (108421 136694 (\BACKFILEPTR 108431 . 108619) (
|
||||
\BACKPEEKBIN 108621 . 108982) (\BACKBIN 108984 . 109335) (BIN 109337 . 109554) (\BIN 109556 . 109833)
|
||||
(\BINS 109835 . 110121) (BOUT 110123 . 110485) (\BOUT 110487 . 110802) (\BOUTS 110804 . 111115) (
|
||||
COPYBYTES 111117 . 114449) (COPYCHARS 114451 . 118117) (COPYFILE 118119 . 119183) (\COPYOPENFILE
|
||||
119185 . 122384) (\INFER.FILE.TYPE 122386 . 123340) (EOFP 123342 . 123639) (FORCEOUTPUT 123641 .
|
||||
123888) (\FLUSH.OPEN.STREAMS 123890 . 124246) (CHARSET 124248 . 125912) (ACCESS-CHARSET 125914 .
|
||||
126131) (GETEOFPTR 126133 . 126383) (GETFILEINFO 126385 . 129578) (\TYPE.FROM.FILETYPE 129580 . 130050
|
||||
) (\FILETYPE.FROM.TYPE 130052 . 130231) (GETFILEPTR 130233 . 130485) (SETFILEINFO 130487 . 134593) (
|
||||
SETFILEPTR 134595 . 136314) (BOUT16 136316 . 136501) (BIN16 136503 . 136692)) (136797 142113 (
|
||||
\GENERIC.BINS 136807 . 137087) (\GENERIC.BOUTS 137089 . 137354) (\GENERIC.RENAMEFILE 137356 . 139187)
|
||||
(\GENERIC.OPENP 139189 . 140504) (\GENERIC.READP 140506 . 141658) (\GENERIC.CHARSET 141660 . 142111))
|
||||
(142114 142453 (\MAP-OPEN-STREAMS 142124 . 142451)) (144245 146325 (\EOF.ACTION 144255 . 144506) (
|
||||
\EOSERROR 144508 . 144701) (\GETEOFPTR 144703 . 144885) (\INCFILEPTR 144887 . 145237) (\PEEKBIN 145239
|
||||
. 145430) (\SETCLOSEDFILELENGTH 145432 . 145766) (\SETEOFPTR 145768 . 145956) (\SETFILEPTR 145958 .
|
||||
146323)) (146326 146868 (\FIXPOUT 146336 . 146636) (\FIXPIN 146638 . 146866)) (146869 147435 (\BOUTEOL
|
||||
146879 . 147433)) (150331 160195 (\BUFFERED.BIN 150341 . 151193) (\BUFFERED.PEEKBIN 151195 . 151977)
|
||||
(\BUFFERED.BOUT 151979 . 152839) (\BUFFERED.BINS 152841 . 156526) (\BUFFERED.BOUTS 156528 . 158329) (
|
||||
\BUFFERED.COPYBYTES 158331 . 160193)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
159
sources/FILEPKG
159
sources/FILEPKG
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "19-Jul-2022 22:34:15"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEPKG.;37 280917
|
||||
(FILECREATED "24-Jul-2022 15:45:28"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEPKG.;43 281515
|
||||
|
||||
:CHANGES-TO (FNS EDITCALLERS)
|
||||
:CHANGES-TO (FNS SEPRCASE EDITCALLERS)
|
||||
|
||||
:PREVIOUS-DATE " 9-Jul-2022 22:10:13"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEPKG.;36)
|
||||
:PREVIOUS-DATE "24-Jul-2022 08:51:11"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>FILEPKG.;42)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -4408,6 +4408,10 @@ compiling " T)
|
||||
(EDITCALLERS
|
||||
[LAMBDA (ATOMS FILES COMS)
|
||||
|
||||
(* ;; "Edited 24-Jul-2022 15:45 by rmk")
|
||||
|
||||
(* ;; "Edited 21-Jul-2022 21:51 by rmk")
|
||||
|
||||
(* ;; "Edited 19-Jul-2022 22:33 by rmk")
|
||||
|
||||
(* ;; "Edited 9-Jul-2022 22:09 by rmk")
|
||||
@@ -4435,7 +4439,7 @@ compiling " T)
|
||||
(T (LIST FILES))) unless (DIRECTORYNAMEP FILE)
|
||||
do
|
||||
(RESETLST
|
||||
[PROG (PATTERNS CA RDTBL MAP FILESTREAM PRINTFLG ENV TOP I)
|
||||
[PROG (PATTERNS CA RDTBL MAP FILESTREAM PRINTFLG ENV TOP I CASEINSENSITIVE)
|
||||
(OR (SETQ FULL (FINDFILE FILE))
|
||||
(RETURN (LISPXPRINT (CONS FILE '(not found))
|
||||
T T)))
|
||||
@@ -4451,7 +4455,8 @@ compiling " T)
|
||||
(CL:WHEN ENV
|
||||
(SETQ RDTBL (fetch (READER-ENVIRONMENT REREADTABLE) of ENV))
|
||||
(\EXTERNALFORMAT FILESTREAM ENV))
|
||||
(SETQ CA (SEPRCASE DWIMIFYCOMPFLG RDTBL))
|
||||
(SETQ CASEINSENSITIVE (READTABLEPROP RDTBL 'CASEINSENSITIVE))
|
||||
(SETQ SEPRCA (SEPRCASE DWIMIFYCOMPFLG RDTBL))
|
||||
|
||||
(* ;; "Escape matches .*, match need not be bracketed by seprs. We test brackets after each hit, if needed. This avoids the slow case of a CASEARRAY in FFILEPOS. Also more accurate, we don't match any string-internal sepr character to any other string internal sepr character.")
|
||||
|
||||
@@ -4474,26 +4479,29 @@ compiling " T)
|
||||
"Keep MKSTRING from putting a prefix on")
|
||||
(SETQ ATOM (MKSTRING ATOM T RDTBL))))
|
||||
(LIST ATOM PREESCAPE POSTESCAPE])
|
||||
(for PATTERN CODE HIT (CABASE _ (FETCH (ARRAYP BASE) OF CA))
|
||||
(CASIZE _ (FETCH (ARRAYP LENGTH) OF CA))
|
||||
(CAFAT _ (EQ \ST.POS16 (FETCH (ARRAYP TYP) OF CA))) in PATTERNS
|
||||
(for PATTERN CODE HIT (SEPRBASE _ (FETCH (ARRAYP BASE) OF SEPRCA))
|
||||
(SEPRSIZE _ (FETCH (ARRAYP LENGTH) OF SEPRCA))
|
||||
(SEPRFAT _ (EQ \ST.POS16 (FETCH (ARRAYP TYP) OF SEPRCA))) in PATTERNS
|
||||
do
|
||||
(SETFILEPTR FILESTREAM (SETQ I (OR TOP 0)))
|
||||
|
||||
(* ;;
|
||||
"If the pattern character match, the pre and post characters must be seprs, unless escapes")
|
||||
(* ;; "If the pattern characters match, the pre and post characters must be seprs, unless escapes as noted and stripped above")
|
||||
|
||||
(while [SETQ I (CDR (SETQ HIT (FFILEPOS (CAR PATTERN)
|
||||
FILESTREAM I NIL NIL 'BOTH]
|
||||
FILESTREAM I NIL NIL 'BOTH (CL:WHEN
|
||||
CASEINSENSITIVE
|
||||
|
||||
UPPERCASEARRAY
|
||||
]
|
||||
when [AND [OR (CADR PATTERN)
|
||||
(PROGN (SETFILEPTR FILESTREAM (CAR HIT))
|
||||
(PROG1 (OR (NOT (SETQ CODE (\BACKCCODE FILESTREAM)))
|
||||
(ZEROP (\CATRANSLATE CABASE CASIZE CAFAT CODE
|
||||
)))
|
||||
(ZEROP (\CATRANSLATE SEPRBASE SEPRSIZE
|
||||
SEPRFAT CODE)))
|
||||
(\SETFILEPTR FILESTREAM I]
|
||||
(OR (CADDR PATTERN)
|
||||
(NOT (SETQ CODE (\PEEKCCODE FILESTREAM T)))
|
||||
(ZEROP (\CATRANSLATE CABASE CASIZE CAFAT CODE]
|
||||
(ZEROP (\CATRANSLATE SEPRBASE SEPRSIZE SEPRFAT CODE]
|
||||
do
|
||||
|
||||
(* ;; "The next search begins after the last search, since I is the tail of a match, even if the fileptr is set to 0 to get the map")
|
||||
@@ -4664,29 +4672,34 @@ compiling " T)
|
||||
(DEFINEQ
|
||||
|
||||
(SEPRCASE
|
||||
[LAMBDA (CLFLG RDTBL) (* bvm%: "24-Oct-86 18:16")
|
||||
[LAMBDA (CLFLG RDTBL)
|
||||
|
||||
(* ;; "make a case array for FFILEPOS in which all of the seprs, breaks, and (possibly) clisp chars are all equivalent. Based on FILERDTBL, but others are close with respect to breaks and seprs")
|
||||
(* ;; "Edited 24-Jul-2022 15:39 by rmk")
|
||||
|
||||
(* ;; "Edited 22-Jul-2022 20:54 by rmk: Ensured that quote and comma are seen as delimiters for every readtable and whether or not CLFLG. This increases recall, precision is not so important.")
|
||||
|
||||
(* ;; "Edited 22-Jul-2022 20:51 by rmk")
|
||||
(* bvm%: "24-Oct-86 18:16")
|
||||
|
||||
(* ;; "make a case array for FFILEPOS in which all of the seprs, breaks, and (possibly) clisp chars are all equivalent. ")
|
||||
|
||||
(OR RDTBL (SETQ RDTBL FILERDTBL))
|
||||
(OR [ARRAYP (CDR (ASSOC RDTBL (COND
|
||||
(CLFLG CLISPCASEARRAYS)
|
||||
(T SEPRCASEARRAYS]
|
||||
(LET ((CA (CASEARRAY)))
|
||||
[if (READTABLEPROP RDTBL 'CASEINSENSITIVE)
|
||||
then (* ; "map upper into lower case")
|
||||
(for I from (CHARCODE A) to (CHARCODE Z)
|
||||
do (SETCASEARRAY CA I (+ I (- (CHARCODE a)
|
||||
(CHARCODE A]
|
||||
(for X in (NCONC (AND CLFLG (for Y in CLISPCHARS
|
||||
collect (CHCON1 Y)))
|
||||
(GETSEPR RDTBL)
|
||||
(GETBRK RDTBL)) do (SETCASEARRAY CA X 0))
|
||||
(for X in (NCONC (AND CLFLG (for Y in CLISPCHARS collect (CHCON1 Y)))
|
||||
(GETSEPR RDTBL)
|
||||
(GETBRK RDTBL)) do (SETCASEARRAY CA X 0))
|
||||
(SETCASEARRAY CA (CHARCODE %')
|
||||
0)
|
||||
(SETCASEARRAY CA (CHARCODE %,)
|
||||
0)
|
||||
(if *PACKAGE*
|
||||
then (* ;
|
||||
"symbols qualified with package prefix will otherwise be unfindable")
|
||||
(SETCASEARRAY CA (READTABLEPROP RDTBL 'PACKAGECHAR)
|
||||
0))
|
||||
then (* ;
|
||||
"symbols qualified with package prefix will otherwise be unfindable")
|
||||
(SETCASEARRAY CA (READTABLEPROP RDTBL 'PACKAGECHAR)
|
||||
0))
|
||||
(SETQ CA (CONS RDTBL CA))
|
||||
(COND
|
||||
(CLFLG (push CLISPCASEARRAYS CA))
|
||||
@@ -4948,46 +4961,46 @@ compiling " T)
|
||||
(PUTPROPS FILEPKG COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989
|
||||
1990 1991 1992 1993 1995 2018 2020 2021 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (19265 20970 (SEARCHPRETTYTYPELST 19275 . 20254) (PRETTYDEFMACROS 20256 . 20714) (
|
||||
FILEPKGCOMPROPS 20716 . 20968)) (21772 57019 (CLEANUP 21782 . 23170) (COMPILEFILES 23172 . 23448) (
|
||||
COMPILEFILES0 23450 . 24170) (CONTINUEDIT 24172 . 25592) (MAKEFILE 25594 . 37931) (FILECHANGES 37933
|
||||
. 40697) (FILEPKG.MERGECHANGES 40699 . 41522) (FILEPKG.CHANGEDFNS 41524 . 41836) (MAKEFILE1 41838 .
|
||||
46065) (COMPILE-FILE? 46067 . 47624) (MAKEFILES 47626 . 49319) (ADDFILE 49321 . 51842) (ADDFILE0 51844
|
||||
. 55980) (LISTFILES 55982 . 57017)) (57691 92931 (FILEPKGCHANGES 57701 . 59051) (GETFILEPKGTYPE 59053
|
||||
. 62126) (MARKASCHANGED 62128 . 63765) (FILECOMS 63767 . 64151) (WHEREIS 64153 . 65573) (
|
||||
SMASHFILECOMS 65575 . 65810) (FILEFNSLST 65812 . 65974) (FILECOMSLST 65976 . 66460) (UPDATEFILES 66462
|
||||
. 71762) (INFILECOMS? 71764 . 73667) (INFILECOMTAIL 73669 . 74809) (INFILECOMS 74811 . 74972) (
|
||||
INFILECOM 74974 . 85183) (INFILECOMSVALS 85185 . 85512) (INFILECOMSVAL 85514 . 86516) (INFILECOMSPROP
|
||||
86518 . 87347) (IFCPROPS 87349 . 88610) (IFCEXPRTYPE 88612 . 89123) (IFCPROPSCAN 89125 . 90178) (
|
||||
IFCDECLARE 90180 . 91491) (INFILEPAIRS 91493 . 91825) (INFILECOMSMACRO 91827 . 92929)) (92966 124386 (
|
||||
FILES? 92976 . 95169) (FILES?1 95171 . 95869) (FILES?PRINTLST 95871 . 96653) (ADDTOFILES? 96655 .
|
||||
107701) (ADDTOFILE 107703 . 108619) (WHATIS 108621 . 110597) (ADDTOCOMS 110599 . 112243) (ADDTOCOM
|
||||
112245 . 118792) (ADDTOCOM1 118794 . 119965) (ADDNEWCOM 119967 . 121017) (MAKENEWCOM 121019 . 122862)
|
||||
(DEFAULTMAKENEWCOM 122864 . 124384)) (124456 127273 (MERGEINSERT 124466 . 126809) (MERGEINSERT1 126811
|
||||
. 127271)) (127427 128784 (ADDTOFILEKEYLST 127437 . 128782)) (128901 139813 (DELFROMFILES 128911 .
|
||||
129761) (DELFROMCOMS 129763 . 131442) (DELFROMCOM 131444 . 137312) (DELFROMCOM1 137314 . 138111) (
|
||||
REMOVEITEM 138113 . 138987) (MOVETOFILE 138989 . 139811)) (140027 142396 (SAVEPUT 140037 . 142394)) (
|
||||
142521 150845 (UNMARKASCHANGED 142531 . 144239) (PREEDITFN 144241 . 146752) (POSTEDITPROPS 146754 .
|
||||
149255) (POSTEDITALISTS 149257 . 150843)) (150990 171544 (ALISTS.GETDEF 151000 . 151379) (
|
||||
ALISTS.WHENCHANGED 151381 . 152025) (CLEARCLISPARRAY 152027 . 153201) (EXPRESSIONS.WHENCHANGED 153203
|
||||
. 153577) (MAKEALISTCOMS 153579 . 154652) (MAKEFILESCOMS 154654 . 156091) (MAKELISPXMACROSCOMS 156093
|
||||
. 158111) (MAKEPROPSCOMS 158113 . 158811) (MAKEUSERMACROSCOMS 158813 . 160613) (PROPS.WHENCHANGED
|
||||
160615 . 161236) (FILEGETDEF.LISPXMACROS 161238 . 162680) (FILEGETDEF.ALISTS 162682 . 163301) (
|
||||
FILEGETDEF.RECORDS 163303 . 164234) (FILEGETDEF.PROPS 164236 . 165028) (FILEGETDEF.MACROS 165030 .
|
||||
166090) (FILEGETDEF.VARS 166092 . 166508) (FILEGETDEF.FNS 166510 . 167874) (FILEPKGCOMS.PUTDEF 167876
|
||||
. 170316) (FILES.PUTDEF 170318 . 171275) (VARS.PUTDEF 171277 . 171420) (FILES.WHENCHANGED 171422 .
|
||||
171542)) (173566 180999 (RENAME 173576 . 174977) (CHANGECALLERS 174979 . 180997)) (181000 229856 (
|
||||
SHOWDEF 181010 . 182203) (COPYDEF 182205 . 184679) (GETDEF 184681 . 186957) (GETDEFCOM 186959 . 187925
|
||||
) (GETDEFCOM0 187927 . 189273) (GETDEFCURRENT 189275 . 195695) (GETDEFERR 195697 . 196998) (
|
||||
GETDEFFROMFILE 197000 . 201280) (GETDEFSAVED 201282 . 202386) (PUTDEF 202388 . 203091) (EDITDEF 203093
|
||||
. 204070) (DEFAULT.EDITDEF 204072 . 206908) (EDITDEF.FILES 206910 . 207111) (LOADDEF 207113 . 207289)
|
||||
(DWIMDEF 207291 . 208145) (DELDEF 208147 . 211161) (DELFROMLIST 211163 . 211667) (HASDEF 211669 .
|
||||
217991) (GETFILEDEF 217993 . 218515) (SAVEDEF 218517 . 220176) (UNSAVEDEF 220178 . 221074) (
|
||||
COMPAREDEFS 221076 . 224886) (COMPARE 224888 . 225592) (TYPESOF 225594 . 229854)) (230006 238777 (
|
||||
FILEPKGCOM 230016 . 234949) (FILEPKGTYPE 234951 . 238775)) (250810 267307 (FINDCALLERS 250820 . 251335
|
||||
) (EDITCALLERS 251337 . 260812) (EDITFROMFILE 260814 . 266622) (FINDATS 266624 . 266896) (LOOKIN
|
||||
266898 . 267305)) (267308 269035 (SEPRCASE 267318 . 269033)) (269552 275109 (IMPORTFILE 269562 .
|
||||
270536) (IMPORTEVAL 270538 . 271418) (IMPORTFILESCAN 271420 . 271841) (CHECKIMPORTS 271843 . 273179) (
|
||||
GATHEREXPORTS 273181 . 274519) (\DUMPEXPORTS 274521 . 275107)) (275447 277655 (CLEARFILEPKG 275457 .
|
||||
277653)))))
|
||||
(FILEMAP (NIL (19274 20979 (SEARCHPRETTYTYPELST 19284 . 20263) (PRETTYDEFMACROS 20265 . 20723) (
|
||||
FILEPKGCOMPROPS 20725 . 20977)) (21781 57028 (CLEANUP 21791 . 23179) (COMPILEFILES 23181 . 23457) (
|
||||
COMPILEFILES0 23459 . 24179) (CONTINUEDIT 24181 . 25601) (MAKEFILE 25603 . 37940) (FILECHANGES 37942
|
||||
. 40706) (FILEPKG.MERGECHANGES 40708 . 41531) (FILEPKG.CHANGEDFNS 41533 . 41845) (MAKEFILE1 41847 .
|
||||
46074) (COMPILE-FILE? 46076 . 47633) (MAKEFILES 47635 . 49328) (ADDFILE 49330 . 51851) (ADDFILE0 51853
|
||||
. 55989) (LISTFILES 55991 . 57026)) (57700 92940 (FILEPKGCHANGES 57710 . 59060) (GETFILEPKGTYPE 59062
|
||||
. 62135) (MARKASCHANGED 62137 . 63774) (FILECOMS 63776 . 64160) (WHEREIS 64162 . 65582) (
|
||||
SMASHFILECOMS 65584 . 65819) (FILEFNSLST 65821 . 65983) (FILECOMSLST 65985 . 66469) (UPDATEFILES 66471
|
||||
. 71771) (INFILECOMS? 71773 . 73676) (INFILECOMTAIL 73678 . 74818) (INFILECOMS 74820 . 74981) (
|
||||
INFILECOM 74983 . 85192) (INFILECOMSVALS 85194 . 85521) (INFILECOMSVAL 85523 . 86525) (INFILECOMSPROP
|
||||
86527 . 87356) (IFCPROPS 87358 . 88619) (IFCEXPRTYPE 88621 . 89132) (IFCPROPSCAN 89134 . 90187) (
|
||||
IFCDECLARE 90189 . 91500) (INFILEPAIRS 91502 . 91834) (INFILECOMSMACRO 91836 . 92938)) (92975 124395 (
|
||||
FILES? 92985 . 95178) (FILES?1 95180 . 95878) (FILES?PRINTLST 95880 . 96662) (ADDTOFILES? 96664 .
|
||||
107710) (ADDTOFILE 107712 . 108628) (WHATIS 108630 . 110606) (ADDTOCOMS 110608 . 112252) (ADDTOCOM
|
||||
112254 . 118801) (ADDTOCOM1 118803 . 119974) (ADDNEWCOM 119976 . 121026) (MAKENEWCOM 121028 . 122871)
|
||||
(DEFAULTMAKENEWCOM 122873 . 124393)) (124465 127282 (MERGEINSERT 124475 . 126818) (MERGEINSERT1 126820
|
||||
. 127280)) (127436 128793 (ADDTOFILEKEYLST 127446 . 128791)) (128910 139822 (DELFROMFILES 128920 .
|
||||
129770) (DELFROMCOMS 129772 . 131451) (DELFROMCOM 131453 . 137321) (DELFROMCOM1 137323 . 138120) (
|
||||
REMOVEITEM 138122 . 138996) (MOVETOFILE 138998 . 139820)) (140036 142405 (SAVEPUT 140046 . 142403)) (
|
||||
142530 150854 (UNMARKASCHANGED 142540 . 144248) (PREEDITFN 144250 . 146761) (POSTEDITPROPS 146763 .
|
||||
149264) (POSTEDITALISTS 149266 . 150852)) (150999 171553 (ALISTS.GETDEF 151009 . 151388) (
|
||||
ALISTS.WHENCHANGED 151390 . 152034) (CLEARCLISPARRAY 152036 . 153210) (EXPRESSIONS.WHENCHANGED 153212
|
||||
. 153586) (MAKEALISTCOMS 153588 . 154661) (MAKEFILESCOMS 154663 . 156100) (MAKELISPXMACROSCOMS 156102
|
||||
. 158120) (MAKEPROPSCOMS 158122 . 158820) (MAKEUSERMACROSCOMS 158822 . 160622) (PROPS.WHENCHANGED
|
||||
160624 . 161245) (FILEGETDEF.LISPXMACROS 161247 . 162689) (FILEGETDEF.ALISTS 162691 . 163310) (
|
||||
FILEGETDEF.RECORDS 163312 . 164243) (FILEGETDEF.PROPS 164245 . 165037) (FILEGETDEF.MACROS 165039 .
|
||||
166099) (FILEGETDEF.VARS 166101 . 166517) (FILEGETDEF.FNS 166519 . 167883) (FILEPKGCOMS.PUTDEF 167885
|
||||
. 170325) (FILES.PUTDEF 170327 . 171284) (VARS.PUTDEF 171286 . 171429) (FILES.WHENCHANGED 171431 .
|
||||
171551)) (173575 181008 (RENAME 173585 . 174986) (CHANGECALLERS 174988 . 181006)) (181009 229865 (
|
||||
SHOWDEF 181019 . 182212) (COPYDEF 182214 . 184688) (GETDEF 184690 . 186966) (GETDEFCOM 186968 . 187934
|
||||
) (GETDEFCOM0 187936 . 189282) (GETDEFCURRENT 189284 . 195704) (GETDEFERR 195706 . 197007) (
|
||||
GETDEFFROMFILE 197009 . 201289) (GETDEFSAVED 201291 . 202395) (PUTDEF 202397 . 203100) (EDITDEF 203102
|
||||
. 204079) (DEFAULT.EDITDEF 204081 . 206917) (EDITDEF.FILES 206919 . 207120) (LOADDEF 207122 . 207298)
|
||||
(DWIMDEF 207300 . 208154) (DELDEF 208156 . 211170) (DELFROMLIST 211172 . 211676) (HASDEF 211678 .
|
||||
218000) (GETFILEDEF 218002 . 218524) (SAVEDEF 218526 . 220185) (UNSAVEDEF 220187 . 221083) (
|
||||
COMPAREDEFS 221085 . 224895) (COMPARE 224897 . 225601) (TYPESOF 225603 . 229863)) (230015 238786 (
|
||||
FILEPKGCOM 230025 . 234958) (FILEPKGTYPE 234960 . 238784)) (250819 267961 (FINDCALLERS 250829 . 251344
|
||||
) (EDITCALLERS 251346 . 261466) (EDITFROMFILE 261468 . 267276) (FINDATS 267278 . 267550) (LOOKIN
|
||||
267552 . 267959)) (267962 269633 (SEPRCASE 267972 . 269631)) (270150 275707 (IMPORTFILE 270160 .
|
||||
271134) (IMPORTEVAL 271136 . 272016) (IMPORTFILESCAN 272018 . 272439) (CHECKIMPORTS 272441 . 273777) (
|
||||
GATHEREXPORTS 273779 . 275117) (\DUMPEXPORTS 275119 . 275705)) (276045 278253 (CLEARFILEPKG 276055 .
|
||||
278251)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
132
sources/HPRINT
132
sources/HPRINT
@@ -1,20 +1,15 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "17-Oct-2021 13:54:11" {DSK}<home>larry>medley>sources>HPRINT.;2 59850
|
||||
(FILECREATED " 3-Aug-2022 21:31:57" {DSK}<home>larry>medley>sources>HPRINT.;3 58021
|
||||
|
||||
changes to%: (VARS HPRINTCOMS)
|
||||
(FNS MAKEHVPRETTYCOMS READVARS HPRINT0 READVAR-FROM-STRING READVARS-FROM-STRING
|
||||
HPRINT-TO-STRING HPRINT-TO-STRINGS HPRINT HPRINT1 HPRINTEND RPTPRINT RPTEND
|
||||
RPTPUT HPRINTSP HPERR HVFWDCDREAD HVBAKREAD HVREADCHECKGETFN HVREADEND
|
||||
HVRPTREAD HVFWDREAD HREAD HPINITRDTBL HVREADERR HPRINSP COPYALL
|
||||
\COPYDATATYPE HCOPYALL HCOPYALL1 EQUALALL EQUALHASH)
|
||||
(FILEPKGCOMS HORRIBLEVARS UGLYVARS)
|
||||
:CHANGES-TO (VARS HPRINTCOMS)
|
||||
(FNS HPRINT)
|
||||
|
||||
previous date%: "28-Sep-2021 10:44:11" {DSK}<home>larry>medley>sources>HPRINT.;1)
|
||||
:PREVIOUS-DATE "17-Oct-2021 13:54:11" {DSK}<home>larry>medley>sources>HPRINT.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
|
||||
Copyright (c) 1982-1988, 1990-1991, 1993-1994, 2022 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT HPRINTCOMS)
|
||||
@@ -54,12 +49,12 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
|
||||
HPFINALCHAR (HPFILLSTRING (PACKC (LIST HPBAKCHAR
|
||||
HPFILLCHAR]
|
||||
(PROP MACRO HPRINTSTRING HPRINTENDSTR))
|
||||
(VARS (HPRINTMACROS)
|
||||
(HPRINTHASHARRAY)
|
||||
(HPRINTRDTBL)
|
||||
(HPRPTSTRING "<repeat>")
|
||||
(DONTCOPYDATATYPES)
|
||||
ORIGDELETECONTROL ORIGTERMSYNTAX ORIGECHOCONTROL)
|
||||
(INITVARS (HPRINTMACROS)
|
||||
(HPRINTHASHARRAY)
|
||||
(HPRINTRDTBL)
|
||||
(HPRPTSTRING "<repeat>")
|
||||
(DONTCOPYDATATYPES))
|
||||
(VARS ORIGDELETECONTROL ORIGTERMSYNTAX ORIGECHOCONTROL)
|
||||
(ADDVARS (HPRINTREADFNS READBITMAP))
|
||||
[ADDVARS (GAINSPACEFORMS ((OR HPRINTHASHARRAY HPRINTRDTBL)
|
||||
"discard HPRINT initialization"
|
||||
@@ -189,22 +184,8 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
|
||||
|
||||
(HPRINT
|
||||
[LAMBDA (EXPR FILE UNCIRCULAR DATATYPESEEN)
|
||||
(DECLARE (SPECVARS DATATYPESEEN UNCIRCULAR)) (* ;
|
||||
"Edited 17-Oct-2021 13:06 by larry")
|
||||
(* ;
|
||||
"Edited 17-Oct-2021 13:02 by larry")
|
||||
(* ;
|
||||
"Edited 17-Oct-2021 12:52 by larry")
|
||||
(* ;
|
||||
"Edited 17-Oct-2021 12:46 by larry")
|
||||
(* ;
|
||||
"Edited 17-Oct-2021 12:42 by larry")
|
||||
(* ;
|
||||
"Edited 17-Oct-2021 12:42 by larry")
|
||||
(* ;
|
||||
"Edited 17-Oct-2021 12:41 by larry")
|
||||
(* ;
|
||||
"Edited 17-Oct-2021 12:39 by larry")
|
||||
(DECLARE (SPECVARS DATATYPESEEN UNCIRCULAR)) (* ; "Edited 3-Aug-2022 21:26 by lmm")
|
||||
(* ; "Edited 17-Oct-2021 13:06 by larry")
|
||||
(* ; "Edited 10-Feb-87 15:52 by Pavel")
|
||||
(RESETLST
|
||||
(PROG (BACKREFS (CELLCOUNT 0)
|
||||
@@ -227,9 +208,8 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
|
||||
(HPRINT1 EXPR)
|
||||
(HPRINTEND))
|
||||
(T (* ;
|
||||
"If the byte pointer cannot be reset, want to output to temp file and copy it back")
|
||||
(LET [(NDC (OPENSTREAM "{NODIRCORE}" 'BOTH 'NEW
|
||||
`((FORMAT ,(STREAMPROP *STANDARD-OUTPUT* 'FORMAT]
|
||||
"If the byte pointer cannot be reset, want to output to temp file and copy it back")
|
||||
(LET [(NDC (OPENSTREAM "{NODIRCORE}" 'BOTH 'NEW]
|
||||
(CL:UNWIND-PROTECT
|
||||
[LET ((OS *STANDARD-OUTPUT*)
|
||||
(*STANDARD-OUTPUT* NDC))
|
||||
@@ -1075,56 +1055,56 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
|
||||
|
||||
|
||||
(PUTPROPS HPRINTSTRING MACRO [X (LIST 'PRIN1 (KWOTE (CONCAT (CHARACTER HPBAKCHAR)
|
||||
(CAR X])
|
||||
(CAR X])
|
||||
|
||||
(PUTPROPS HPRINTENDSTR MACRO [X (COND
|
||||
[(CAR X)
|
||||
'(PRIN3 (CONSTANT (CHARACTER HPFINALCHAR]
|
||||
(T '(PRIN1 (CONSTANT (CHARACTER HPFINALCHAR])
|
||||
[(CAR X)
|
||||
'(PRIN3 (CONSTANT (CHARACTER HPFINALCHAR]
|
||||
(T '(PRIN1 (CONSTANT (CHARACTER HPFINALCHAR])
|
||||
)
|
||||
|
||||
(RPAQQ HPRINTMACROS NIL)
|
||||
(RPAQ? HPRINTMACROS )
|
||||
|
||||
(RPAQQ HPRINTHASHARRAY NIL)
|
||||
(RPAQ? HPRINTHASHARRAY )
|
||||
|
||||
(RPAQQ HPRINTRDTBL NIL)
|
||||
(RPAQ? HPRINTRDTBL )
|
||||
|
||||
(RPAQ HPRPTSTRING "<repeat>")
|
||||
(RPAQ? HPRPTSTRING "<repeat>")
|
||||
|
||||
(RPAQQ DONTCOPYDATATYPES NIL)
|
||||
(RPAQ? DONTCOPYDATATYPES )
|
||||
|
||||
(RPAQQ ORIGDELETECONTROL ((DELETELINE . "##
|
||||
")
|
||||
(1STCHDEL . "\")
|
||||
(NTHCHDEL . "")
|
||||
(POSTCHDEL . "\")
|
||||
(EMPTYCHDEL . "##
|
||||
(1STCHDEL . "\")
|
||||
(NTHCHDEL . "")
|
||||
(POSTCHDEL . "\")
|
||||
(EMPTYCHDEL . "##
|
||||
")))
|
||||
|
||||
(RPAQQ ORIGTERMSYNTAX ((CTRLV 22)
|
||||
(RETYPE 18)
|
||||
(LINEDELETE 17)
|
||||
(CHARDELETE 1)
|
||||
(EOL 31)))
|
||||
(RETYPE 18)
|
||||
(LINEDELETE 17)
|
||||
(CHARDELETE 1)
|
||||
(EOL 31)))
|
||||
|
||||
(RPAQQ ORIGECHOCONTROL ((0 . IGNORE)
|
||||
(1 . IGNORE)
|
||||
(7 . REAL)
|
||||
(8 . UPARROW)
|
||||
(9 . SIMULATE)
|
||||
(10 . REAL)
|
||||
(13 . REAL)
|
||||
(17 . IGNORE)
|
||||
(18 . IGNORE)
|
||||
(27 . SIMULATE)
|
||||
(31 . REAL)))
|
||||
(1 . IGNORE)
|
||||
(7 . REAL)
|
||||
(8 . UPARROW)
|
||||
(9 . SIMULATE)
|
||||
(10 . REAL)
|
||||
(13 . REAL)
|
||||
(17 . IGNORE)
|
||||
(18 . IGNORE)
|
||||
(27 . SIMULATE)
|
||||
(31 . REAL)))
|
||||
|
||||
(ADDTOVAR HPRINTREADFNS READBITMAP)
|
||||
|
||||
(ADDTOVAR GAINSPACEFORMS [(OR HPRINTHASHARRAY HPRINTRDTBL)
|
||||
"discard HPRINT initialization"
|
||||
(PROGN (CLRHASH HPRINTHASHARRAY)
|
||||
(SETQ HPRINTHASHARRAY (SETQ HPRINTRDTBL])
|
||||
"discard HPRINT initialization"
|
||||
(PROGN (CLRHASH HPRINTHASHARRAY)
|
||||
(SETQ HPRINTHASHARRAY (SETQ HPRINTRDTBL])
|
||||
|
||||
(PUTPROPS HPRINT FILETYPE CL:COMPILE-FILE)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
@@ -1136,16 +1116,16 @@ Copyright (c) 1982-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS HPRINT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||
1993 1994))
|
||||
1993 1994 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4174 6712 (MAKEHVPRETTYCOMS 4184 . 5471) (READVARS 5473 . 6039) (HPRINT0 6041 . 6710))
|
||||
(6714 7047 (READVARS-FROM-STRINGS 6714 . 7047)) (7049 7436 (READVARS-FROM-STREAM 7049 . 7436)) (7437
|
||||
9365 (READVAR-FROM-STRING 7447 . 7853) (READVARS-FROM-STRING 7855 . 8091) (HPRINT-TO-STRING 8093 .
|
||||
8299) (HPRINT-TO-STRINGS 8301 . 9363)) (10176 39996 (HPRINT 10186 . 13404) (HPRINT1 13406 . 24908) (
|
||||
HPRINTEND 24910 . 25946) (RPTPRINT 25948 . 26186) (RPTEND 26188 . 26347) (RPTPUT 26349 . 26847) (
|
||||
HPRINTSP 26849 . 26913) (HPERR 26915 . 27012) (HVFWDCDREAD 27014 . 27393) (HVBAKREAD 27395 . 35440) (
|
||||
HVREADCHECKGETFN 35442 . 36841) (HVREADEND 36843 . 37195) (HVRPTREAD 37197 . 37723) (HVFWDREAD 37725
|
||||
. 38579) (HREAD 38581 . 38903) (HPINITRDTBL 38905 . 39739) (HVREADERR 39741 . 39854) (HPRINSP 39856
|
||||
. 39994)) (39997 48879 (COPYALL 40007 . 43910) (\COPYDATATYPE 43912 . 44601) (HCOPYALL 44603 . 44913)
|
||||
(HCOPYALL1 44915 . 48877)) (48880 56227 (EQUALALL 48890 . 54548) (EQUALHASH 54550 . 56225)))))
|
||||
(FILEMAP (NIL (3694 6232 (MAKEHVPRETTYCOMS 3704 . 4991) (READVARS 4993 . 5559) (HPRINT0 5561 . 6230))
|
||||
(6234 6567 (READVARS-FROM-STRINGS 6234 . 6567)) (6569 6956 (READVARS-FROM-STREAM 6569 . 6956)) (6957
|
||||
8885 (READVAR-FROM-STRING 6967 . 7373) (READVARS-FROM-STRING 7375 . 7611) (HPRINT-TO-STRING 7613 .
|
||||
7819) (HPRINT-TO-STRINGS 7821 . 8883)) (9696 38289 (HPRINT 9706 . 11697) (HPRINT1 11699 . 23201) (
|
||||
HPRINTEND 23203 . 24239) (RPTPRINT 24241 . 24479) (RPTEND 24481 . 24640) (RPTPUT 24642 . 25140) (
|
||||
HPRINTSP 25142 . 25206) (HPERR 25208 . 25305) (HVFWDCDREAD 25307 . 25686) (HVBAKREAD 25688 . 33733) (
|
||||
HVREADCHECKGETFN 33735 . 35134) (HVREADEND 35136 . 35488) (HVRPTREAD 35490 . 36016) (HVFWDREAD 36018
|
||||
. 36872) (HREAD 36874 . 37196) (HPINITRDTBL 37198 . 38032) (HVREADERR 38034 . 38147) (HPRINSP 38149
|
||||
. 38287)) (38290 47172 (COPYALL 38300 . 42203) (\COPYDATATYPE 42205 . 42894) (HCOPYALL 42896 . 43206)
|
||||
(HCOPYALL1 43208 . 47170)) (47173 54520 (EQUALALL 47183 . 52841) (EQUALHASH 52843 . 54518)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
144
sources/INSPECT
144
sources/INSPECT
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "11-Oct-2021 14:04:22"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;11 119118
|
||||
(FILECREATED " 9-Aug-2022 08:56:54"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>INSPECT.;12 119048
|
||||
|
||||
changes to%: (FNS \TEDIT.INSPECTCODE)
|
||||
:CHANGES-TO (FNS INSPECT/DATATYPE)
|
||||
|
||||
previous date%: "10-Jul-2021 20:31:23"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;10)
|
||||
:PREVIOUS-DATE "11-Oct-2021 14:04:22"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>INSPECT.;11)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -1160,10 +1160,11 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
|
||||
NIL])
|
||||
|
||||
(INSPECT/DATATYPE
|
||||
[LAMBDA (DATUM TYPE WHERE) (* ; "Edited 1-Dec-96 20:15 by rmk:")
|
||||
(* ; "Edited 7-Aug-87 10:21 by jop")
|
||||
[LAMBDA (DATUM TYPE WHERE) (* ; "Edited 9-Aug-2022 08:56 by rmk")
|
||||
(* ; "Edited 1-Dec-96 20:15 by rmk:")
|
||||
(* ; "Edited 7-Aug-87 10:21 by jop")
|
||||
|
||||
(* ;; "creates an inspector window for datatype or record instance DATUM")
|
||||
(* ;; "creates an inspector window for datatype or record instance DATUM")
|
||||
|
||||
(LET (SYSREC DEC)
|
||||
(COND
|
||||
@@ -1174,31 +1175,29 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
|
||||
((SETQ DEC (FINDSYSRECDECL DATUM))
|
||||
(SETQ SYSREC T)))
|
||||
(COND
|
||||
(DEC (* ;
|
||||
"The fetchfn and storefn would be more attractive if we had lexical closures")
|
||||
(INSPECTW.CREATE DATUM (INSPECTABLEFIELDNAMES DEC (NULL INSPECTALLFIELDSFLG)
|
||||
)
|
||||
(DEC (* ;
|
||||
"The fetchfn and storefn would be more attractive if we had lexical closures")
|
||||
(INSPECTW.CREATE DATUM (INSPECTABLEFIELDNAMES DEC (NULL INSPECTALLFIELDSFLG))
|
||||
`[LAMBDA (INSTANCE FIELD)
|
||||
(RECORDACCESS FIELD INSTANCE ',DEC]
|
||||
[if SYSREC
|
||||
then `[LAMBDA (INSTANCE FIELD NEWVALUE)
|
||||
(AND (CONFIRM-SET)
|
||||
(RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
|
||||
(AND (CONFIRM-SET)
|
||||
(RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
|
||||
else `(LAMBDA (INSTANCE FIELD NEWVALUE)
|
||||
(RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
|
||||
(RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
|
||||
NIL NIL (if (EQ (CAR DEC)
|
||||
'BLOCKRECORD)
|
||||
'BLOCKRECORD)
|
||||
then
|
||||
(* ;;
|
||||
"To this by hand to avoid being fooled by invalid lisp pointers")
|
||||
|
||||
(* ;;
|
||||
"To this by hand to avoid being fooled by invalid lisp pointers")
|
||||
|
||||
(CL:FORMAT NIL "<~a @ ~o,~o>" TYPE (\HILOC DATUM)
|
||||
(\LOLOC DATUM)))
|
||||
NIL WHERE))
|
||||
(CL:FORMAT NIL "<~a @ ~o,~o>" TYPE (\HILOC DATUM)
|
||||
(\LOLOC DATUM)))
|
||||
NIL NIL WHERE))
|
||||
([SETQ DEC (fetch DTDDESCRS of (\GETDTD (NTYPX DATUM]
|
||||
(* ;
|
||||
"No user-level declaration, but we can at least fetch raw fields out of it")
|
||||
(* ;
|
||||
"No user-level declaration, but we can at least fetch raw fields out of it")
|
||||
(INSPECTW.CREATE DATUM (for I to (LENGTH DEC) collect I)
|
||||
`[LAMBDA (FIELD INSTANCE)
|
||||
(\INSPECT.DATATYPE.RAW.FETCH FIELD INSTANCE ',DEC]
|
||||
@@ -1532,22 +1531,19 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO
|
||||
[ARGS (LET ((PROFILE (CAR ARGS))
|
||||
(FORM (CADR ARGS)))
|
||||
`(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE (LIST 'QUOTE ,PROFILE)
|
||||
,FORM])
|
||||
(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO [ARGS (LET ((PROFILE (CAR ARGS))
|
||||
(FORM (CADR ARGS)))
|
||||
`(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE
|
||||
(LIST 'QUOTE
|
||||
,PROFILE)
|
||||
,FORM])
|
||||
|
||||
(PUTPROPS WITH-INSPECTOR-ENV MACRO [ARGS (LET ((PROFILE (CAR ARGS))
|
||||
(FORMS (CDR ARGS)))
|
||||
`(XCL:WITH-PROFILE ,PROFILE
|
||||
(LET ((*PRINT-LEVEL* (CAR
|
||||
INSPECTPRINTLEVEL
|
||||
))
|
||||
(*PRINT-LENGTH* (CDR
|
||||
INSPECTPRINTLEVEL
|
||||
)))
|
||||
,@FORMS])
|
||||
(FORMS (CDR ARGS)))
|
||||
`(XCL:WITH-PROFILE ,PROFILE
|
||||
(LET ((*PRINT-LEVEL* (CAR INSPECTPRINTLEVEL))
|
||||
(*PRINT-LENGTH* (CDR INSPECTPRINTLEVEL)))
|
||||
,@FORMS])
|
||||
)
|
||||
|
||||
|
||||
@@ -2147,40 +2143,40 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
|
||||
(PUTPROPS INSPECT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991 1993
|
||||
1995 1999 2018 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6986 42714 (INSPECTW.CREATE 6996 . 11751) (INSPECTW.REPAINTFN 11753 . 17289) (
|
||||
INSPECTW.REDISPLAY 17291 . 26163) (\INSPECTW.VALUE.MARGIN 26165 . 26568) (INSPECTW.REPLACE 26570 .
|
||||
27278) (INSPECTW.SELECTITEM 27280 . 28270) (\INSPECTW.REDISPLAYPROP 28272 . 30702) (INSPECTW.FETCH
|
||||
30704 . 31127) (INSPECTW.PROPERTIES 31129 . 31770) (DECODE.WINDOW.ARG 31772 . 33500) (
|
||||
DEFAULT.INSPECTW.PROPCOMMANDFN 33502 . 35520) (DEFAULT.INSPECTW.VALUECOMMANDFN 35522 . 36780) (
|
||||
DEFAULT.INSPECTW.TITLECOMMANDFN 36782 . 38472) (\SELITEM.FROM.PROPERTY 38474 . 38916) (
|
||||
\INSPECT.COMPUTE.TITLE 38918 . 40044) (LEVELEDFORM 40046 . 40765) (MAKEWITHINREGION 40767 . 42712)) (
|
||||
42715 60016 (ITEMW.REPAINTFN 42725 . 43945) (\ITEM.WINDOW.BUTTON.HANDLER 43947 . 44362) (
|
||||
\ITEM.WINDOW.SELECTION.HANDLER 44364 . 47031) (\INSPECTW.COMMAND.HANDLER 47033 . 51034) (
|
||||
ITEM.WINDOW.SET.STACK.ARG 51036 . 53240) (REPLACESTKARG 53242 . 54341) (IN/ITEM? 54343 . 55225) (
|
||||
\ITEMW.DESELECTITEM 55227 . 55491) (\ITEMW.SELECTITEM 55493 . 55755) (\ITEMW.CLEARSELECTION 55757 .
|
||||
56112) (\ITEMW.FLIPITEM 56114 . 56587) (PRINTANDBOX 56589 . 59098) (PRINTATBOX 59100 . 59617) (
|
||||
ITEMOFPROPERTYVALUE 59619 . 60014)) (60017 63622 (\ITEM.WINDOW.COPY.HANDLER 60027 . 61748) (
|
||||
\ITEMW.FLIPCOPY 61750 . 62209) (BKSYSBUF.GENERAL 62211 . 63620)) (64014 86489 (INSPECT 64024 . 68287)
|
||||
(\APPLYINSPECTMACRO 68289 . 69271) (INSPECT/BITMAP 69273 . 70308) (INSPECT/DATATYPE 70310 . 73553) (
|
||||
INSPECTABLEFIELDNAMES 73555 . 74076) (REMOVEDUPS 74078 . 74283) (INSPECT/ARRAY 74285 . 75322) (
|
||||
INSPECT/TOP/LEVEL/LIST 75324 . 76283) (INSPECT/PROPLIST 76285 . 77260) (NONSYSPROPNAMES 77262 . 77558)
|
||||
(INSPECT/LISTP 77560 . 77882) (ALISTP 77884 . 78093) (PROPLISTP 78095 . 78735) (INSPECT/ALIST 78737
|
||||
. 79092) (ASSOCGET 79094 . 79305) (/ASSOCPUT 79307 . 79572) (INSPECT/PLIST 79574 . 79937) (
|
||||
INSPECT/TYPERECORD 79939 . 80179) (INSPECT/AS/RECORD 80181 . 81305) (SELECT.LIST.INSPECTOR 81307 .
|
||||
83352) (STANDARDEDITE 83354 . 83637) (NTHTOPLEVELELT 83639 . 83955) (SETNTHTOPLEVELELT 83957 . 84717)
|
||||
(DEDITE 84719 . 84926) (FINDRECDECL 84928 . 85511) (FINDSYSRECDECL 85513 . 85914) (
|
||||
MAKE-INSPECTOR-PROFILE 85916 . 86301) (CONFIRM-SET 86303 . 86487)) (88383 96472 (INSPECT/ATOM 88393 .
|
||||
92373) (SELECT.ATOM.ASPECT 92375 . 93519) (INSPECT/AS/FUNCTION 93521 . 95807) (SELECT.FNS.EDITOR 95809
|
||||
. 96470)) (96513 101932 (INSPECTCODE 96523 . 97669) (\TEDIT.INSPECTCODE 97671 . 99649) (
|
||||
\INSPECT/CODE/RESHAPEFN 99651 . 101190) (\INSPECT/CODE/REPAINTFN 101192 . 101930)) (101970 103455 (
|
||||
INSPECT/HARRAYP 101980 . 102607) (HARRAYKEYS 102609 . 102988) (INSPECTW.GETHASH 102990 . 103217) (
|
||||
INSPECTW.PUTHASH 103219 . 103453)) (103504 109713 (RDTBL\NONOTHERCODES 103514 . 104534) (GETSYNTAXPROP
|
||||
104536 . 106034) (SETSYNTAXPROP 106036 . 107763) (GETTTBLPROP 107765 . 108683) (SETTTBLPROP 108685 .
|
||||
109711)) (110192 118575 (INSPECT/AS/BLOCKRECORD 110202 . 111085) (INSPECT/TYPELESS 111087 . 112333) (
|
||||
LIST-ALL-BLOCKRECORDS 112335 . 112610) (INSPECT/HUNK 112612 . 115218) (\INSPECT.DATATYPE.RAW.FETCH
|
||||
115220 . 115546) (\INSPECT.FETCH.8 115548 . 115697) (\INSPECT.FETCH.32 115699 . 115870) (
|
||||
\INSPECT.FETCH.CHAR 115872 . 116035) (\INSPECT.FETCH.FATCHAR 116037 . 116199) (\INSPECT.FETCH.PTR
|
||||
116201 . 116372) (\INSPECT.STORE.8 116374 . 116680) (\INSPECT.STORE.16 116682 . 116982) (
|
||||
\INSPECT.STORE.32 116984 . 117419) (\INSPECT.STORE.CHAR 117421 . 117747) (\INSPECT.STORE.FATCHAR
|
||||
117749 . 118071) (\INSPECT.STORE.PTR 118073 . 118420) (INSPECT/MAKE/CCODEP 118422 . 118573)))))
|
||||
(FILEMAP (NIL (6989 42717 (INSPECTW.CREATE 6999 . 11754) (INSPECTW.REPAINTFN 11756 . 17292) (
|
||||
INSPECTW.REDISPLAY 17294 . 26166) (\INSPECTW.VALUE.MARGIN 26168 . 26571) (INSPECTW.REPLACE 26573 .
|
||||
27281) (INSPECTW.SELECTITEM 27283 . 28273) (\INSPECTW.REDISPLAYPROP 28275 . 30705) (INSPECTW.FETCH
|
||||
30707 . 31130) (INSPECTW.PROPERTIES 31132 . 31773) (DECODE.WINDOW.ARG 31775 . 33503) (
|
||||
DEFAULT.INSPECTW.PROPCOMMANDFN 33505 . 35523) (DEFAULT.INSPECTW.VALUECOMMANDFN 35525 . 36783) (
|
||||
DEFAULT.INSPECTW.TITLECOMMANDFN 36785 . 38475) (\SELITEM.FROM.PROPERTY 38477 . 38919) (
|
||||
\INSPECT.COMPUTE.TITLE 38921 . 40047) (LEVELEDFORM 40049 . 40768) (MAKEWITHINREGION 40770 . 42715)) (
|
||||
42718 60019 (ITEMW.REPAINTFN 42728 . 43948) (\ITEM.WINDOW.BUTTON.HANDLER 43950 . 44365) (
|
||||
\ITEM.WINDOW.SELECTION.HANDLER 44367 . 47034) (\INSPECTW.COMMAND.HANDLER 47036 . 51037) (
|
||||
ITEM.WINDOW.SET.STACK.ARG 51039 . 53243) (REPLACESTKARG 53245 . 54344) (IN/ITEM? 54346 . 55228) (
|
||||
\ITEMW.DESELECTITEM 55230 . 55494) (\ITEMW.SELECTITEM 55496 . 55758) (\ITEMW.CLEARSELECTION 55760 .
|
||||
56115) (\ITEMW.FLIPITEM 56117 . 56590) (PRINTANDBOX 56592 . 59101) (PRINTATBOX 59103 . 59620) (
|
||||
ITEMOFPROPERTYVALUE 59622 . 60017)) (60020 63625 (\ITEM.WINDOW.COPY.HANDLER 60030 . 61751) (
|
||||
\ITEMW.FLIPCOPY 61753 . 62212) (BKSYSBUF.GENERAL 62214 . 63623)) (64017 86547 (INSPECT 64027 . 68290)
|
||||
(\APPLYINSPECTMACRO 68292 . 69274) (INSPECT/BITMAP 69276 . 70311) (INSPECT/DATATYPE 70313 . 73611) (
|
||||
INSPECTABLEFIELDNAMES 73613 . 74134) (REMOVEDUPS 74136 . 74341) (INSPECT/ARRAY 74343 . 75380) (
|
||||
INSPECT/TOP/LEVEL/LIST 75382 . 76341) (INSPECT/PROPLIST 76343 . 77318) (NONSYSPROPNAMES 77320 . 77616)
|
||||
(INSPECT/LISTP 77618 . 77940) (ALISTP 77942 . 78151) (PROPLISTP 78153 . 78793) (INSPECT/ALIST 78795
|
||||
. 79150) (ASSOCGET 79152 . 79363) (/ASSOCPUT 79365 . 79630) (INSPECT/PLIST 79632 . 79995) (
|
||||
INSPECT/TYPERECORD 79997 . 80237) (INSPECT/AS/RECORD 80239 . 81363) (SELECT.LIST.INSPECTOR 81365 .
|
||||
83410) (STANDARDEDITE 83412 . 83695) (NTHTOPLEVELELT 83697 . 84013) (SETNTHTOPLEVELELT 84015 . 84775)
|
||||
(DEDITE 84777 . 84984) (FINDRECDECL 84986 . 85569) (FINDSYSRECDECL 85571 . 85972) (
|
||||
MAKE-INSPECTOR-PROFILE 85974 . 86359) (CONFIRM-SET 86361 . 86545)) (88313 96402 (INSPECT/ATOM 88323 .
|
||||
92303) (SELECT.ATOM.ASPECT 92305 . 93449) (INSPECT/AS/FUNCTION 93451 . 95737) (SELECT.FNS.EDITOR 95739
|
||||
. 96400)) (96443 101862 (INSPECTCODE 96453 . 97599) (\TEDIT.INSPECTCODE 97601 . 99579) (
|
||||
\INSPECT/CODE/RESHAPEFN 99581 . 101120) (\INSPECT/CODE/REPAINTFN 101122 . 101860)) (101900 103385 (
|
||||
INSPECT/HARRAYP 101910 . 102537) (HARRAYKEYS 102539 . 102918) (INSPECTW.GETHASH 102920 . 103147) (
|
||||
INSPECTW.PUTHASH 103149 . 103383)) (103434 109643 (RDTBL\NONOTHERCODES 103444 . 104464) (GETSYNTAXPROP
|
||||
104466 . 105964) (SETSYNTAXPROP 105966 . 107693) (GETTTBLPROP 107695 . 108613) (SETTTBLPROP 108615 .
|
||||
109641)) (110122 118505 (INSPECT/AS/BLOCKRECORD 110132 . 111015) (INSPECT/TYPELESS 111017 . 112263) (
|
||||
LIST-ALL-BLOCKRECORDS 112265 . 112540) (INSPECT/HUNK 112542 . 115148) (\INSPECT.DATATYPE.RAW.FETCH
|
||||
115150 . 115476) (\INSPECT.FETCH.8 115478 . 115627) (\INSPECT.FETCH.32 115629 . 115800) (
|
||||
\INSPECT.FETCH.CHAR 115802 . 115965) (\INSPECT.FETCH.FATCHAR 115967 . 116129) (\INSPECT.FETCH.PTR
|
||||
116131 . 116302) (\INSPECT.STORE.8 116304 . 116610) (\INSPECT.STORE.16 116612 . 116912) (
|
||||
\INSPECT.STORE.32 116914 . 117349) (\INSPECT.STORE.CHAR 117351 . 117677) (\INSPECT.STORE.FATCHAR
|
||||
117679 . 118001) (\INSPECT.STORE.PTR 118003 . 118350) (INSPECT/MAKE/CCODEP 118352 . 118503)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "10-Jul-2022 16:52:14"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>IOCHAR.;39 99224
|
||||
(FILECREATED "24-Jul-2022 14:56:20"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>IOCHAR.;43 100109
|
||||
|
||||
:CHANGES-TO (FNS FILEPOS \SLOWFILEPOS FFILEPOS)
|
||||
:CHANGES-TO (FNS \SLOWFILEPOS)
|
||||
|
||||
:PREVIOUS-DATE " 1-Jul-2022 11:55:50"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>IOCHAR.;36)
|
||||
:PREVIOUS-DATE "10-Jul-2022 16:52:14"
|
||||
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>IOCHAR.;39)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -633,6 +633,8 @@ DONTCOPY
|
||||
(\SLOWFILEPOS
|
||||
[LAMBDA (PATTERN STREAM STARTBYTEPOS ENDBYTEPOS SKIP TAIL CASEARRAY)
|
||||
|
||||
(* ;; "Edited 24-Jul-2022 14:56 by rmk")
|
||||
|
||||
(* ;; "Edited 10-Jul-2022 16:50 by rmk")
|
||||
|
||||
(* ;; "Edited 1-Jul-2022 10:51 by rmk")
|
||||
@@ -685,8 +687,11 @@ DONTCOPY
|
||||
(* ;;
|
||||
"EOFGUARD saves a little testing, assumes no character in any encoding takes more than 10 bytes.")
|
||||
|
||||
(BIND STREAMCODE NBYTESHI NBYTESLO SECONDCHARSET (NBYTES _ (IDIFFERENCE ENDBYTEPOS
|
||||
STARTBYTEPOS))
|
||||
(BIND STREAMCODE NBYTESHI NBYTESLO SECONDCHARSET *BYTECOUNTER* (NBYTES _ (IDIFFERENCE
|
||||
ENDBYTEPOS
|
||||
STARTBYTEPOS))
|
||||
(EOLC _ (FFETCH (STREAM EOLCONVENTION) OF STREAM))
|
||||
(INCCODEFN _ (FFETCH (STREAM INCCODEFN) OF STREAM)) DECLARE (SPECVARS *BYTECOUNTER*)
|
||||
FIRST (SETQ NBYTESHI (FOLDLO NBYTES FILEPOS.SEGMENT.SIZE))
|
||||
(SETQ NBYTESLO (IMOD NBYTES FILEPOS.SEGMENT.SIZE))
|
||||
DO (DO
|
||||
@@ -705,9 +710,19 @@ DONTCOPY
|
||||
(NULL (\PEEKCCODE STREAM T)))
|
||||
(GO FAILED))
|
||||
(SETQ STARTCHARSET (ffetch (STREAM CHARSET) of STREAM))
|
||||
(SETQ STREAMCODE (\INCCODE.EOLC STREAM NIL 'NFIRSTCODEBYTES 0))
|
||||
(ADD NBYTESLO NFIRSTCODEBYTES) (* ;
|
||||
(PROGN
|
||||
(* ;;
|
||||
"Open coding of \INCCODE.EOLC (with *BYTECOUNTER* and EOLC bindings above.")
|
||||
|
||||
(SETQ STREAMCODE (\CHECKEOLC (CL:FUNCALL INCCODEFN STREAM T)
|
||||
EOLC STREAM NIL T))
|
||||
|
||||
(* ;; "Make negative because that's the \INCCODE convention")
|
||||
|
||||
(SETQ NFIRSTCODEBYTES (IMINUS *BYTECOUNTER*)))
|
||||
(* ;
|
||||
"Decrement the character's byte count")
|
||||
(ADD NBYTESLO NFIRSTCODEBYTES)
|
||||
(CL:WHEN (EQ PATFIRSTCODE SKIPCODE) (* ; "Pattern starts with skip")
|
||||
(RETURN))
|
||||
(CL:WHEN CABASE
|
||||
@@ -745,16 +760,16 @@ DONTCOPY
|
||||
FOUNDIT
|
||||
|
||||
|
||||
(* ;; "The CHARSET should be accurate in the tail case. We have to adjust for the start case.")
|
||||
(* ;; "The CHARSET should be accurate in the tail case. We have to adjust for the start case. NPBYTES is positive, given that we opencoded the \INCCODE.EOLC in the first-char loop.")
|
||||
|
||||
(RETURN (SELECTQ TAIL
|
||||
(NIL (* ;
|
||||
"Fileptr wants to be where the match started")
|
||||
(freplace (STREAM CHARSET) of STREAM with STARTCHARSET)
|
||||
(\INCFILEPTR STREAM (IPLUS NPBYTES NFIRSTCODEBYTES))
|
||||
(\INCFILEPTR STREAM (IPLUS NFIRSTCODEBYTES NPBYTES))
|
||||
(\GETFILEPTR STREAM))
|
||||
(BOTH (CONS (IPLUS (\GETFILEPTR STREAM)
|
||||
NPBYTES NFIRSTCODEBYTES)
|
||||
NFIRSTCODEBYTES NPBYTES)
|
||||
(\GETFILEPTR STREAM)))
|
||||
(\GETFILEPTR STREAM)))
|
||||
FAILED
|
||||
@@ -1554,15 +1569,15 @@ DONTCOPY
|
||||
(PUTPROPS IOCHAR COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990
|
||||
1991 2018 2020))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3524 7318 (CHCON 3534 . 4384) (UNPACK 4386 . 5280) (DCHCON 5282 . 6549) (DUNPACK 6551
|
||||
. 7316)) (7319 18834 (UALPHORDER 7329 . 7425) (ALPHORDER 7427 . 9230) (CONCAT 9232 . 9877) (
|
||||
CONCATCODES 9879 . 10065) (PACKC 10067 . 12670) (PACK 12672 . 13251) (PACK* 13253 . 14975) (\PACK.ITEM
|
||||
14977 . 15432) (STRPOS 15434 . 18832)) (18836 19125 (XCL:PACK 18836 . 19125)) (19127 19377 (XCL:PACK*
|
||||
19127 . 19377)) (20015 22406 (STRPOSL 20025 . 21651) (MAKEBITTABLE 21653 . 22404)) (22568 23045 (
|
||||
CASEARRAY 22578 . 22768) (UPPERCASEARRAY 22770 . 23043)) (23367 55842 (FILEPOS 23377 . 32618) (
|
||||
FFILEPOS 32620 . 44841) (\SETUP.FFILEPOS 44843 . 48626) (\SLOWFILEPOS 48628 . 55840)) (56630 97877 (
|
||||
DATE 56640 . 56726) (DATEFORMAT 56728 . 56820) (GDATE 56822 . 56933) (IDATE 56935 . 68606) (
|
||||
\IDATESCANTOKEN 68608 . 69887) (\IDATE-PARSE-MONTH 69889 . 73585) (\OUTDATE 73587 . 86335) (
|
||||
\OUTDATE-STRING 86337 . 86952) (\RPLRIGHT 86954 . 87192) (\UNPACKDATE 87194 . 92985) (\PACKDATE 92987
|
||||
. 96307) (\DTSCAN 96309 . 96451) (\ISDST? 96453 . 96960) (\CHECKDSTCHANGE 96962 . 97875)))))
|
||||
(FILEMAP (NIL (3507 7301 (CHCON 3517 . 4367) (UNPACK 4369 . 5263) (DCHCON 5265 . 6532) (DUNPACK 6534
|
||||
. 7299)) (7302 18817 (UALPHORDER 7312 . 7408) (ALPHORDER 7410 . 9213) (CONCAT 9215 . 9860) (
|
||||
CONCATCODES 9862 . 10048) (PACKC 10050 . 12653) (PACK 12655 . 13234) (PACK* 13236 . 14958) (\PACK.ITEM
|
||||
14960 . 15415) (STRPOS 15417 . 18815)) (18819 19108 (XCL:PACK 18819 . 19108)) (19110 19360 (XCL:PACK*
|
||||
19110 . 19360)) (19998 22389 (STRPOSL 20008 . 21634) (MAKEBITTABLE 21636 . 22387)) (22551 23028 (
|
||||
CASEARRAY 22561 . 22751) (UPPERCASEARRAY 22753 . 23026)) (23350 56727 (FILEPOS 23360 . 32601) (
|
||||
FFILEPOS 32603 . 44824) (\SETUP.FFILEPOS 44826 . 48609) (\SLOWFILEPOS 48611 . 56725)) (57515 98762 (
|
||||
DATE 57525 . 57611) (DATEFORMAT 57613 . 57705) (GDATE 57707 . 57818) (IDATE 57820 . 69491) (
|
||||
\IDATESCANTOKEN 69493 . 70772) (\IDATE-PARSE-MONTH 70774 . 74470) (\OUTDATE 74472 . 87220) (
|
||||
\OUTDATE-STRING 87222 . 87837) (\RPLRIGHT 87839 . 88077) (\UNPACKDATE 88079 . 93870) (\PACKDATE 93872
|
||||
. 97192) (\DTSCAN 97194 . 97336) (\ISDST? 97338 . 97845) (\CHECKDSTCHANGE 97847 . 98760)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
513
sources/LLNEW
513
sources/LLNEW
@@ -1,18 +1,19 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 2-Feb-95 16:21:44" {DSK}<lispcore>sources>LLNEW.;15 69572
|
||||
|
||||
changes to%: (RECORDS CONSPAGE)
|
||||
(FILECREATED "27-Jul-2022 21:35:24" {DSK}<home>larry>medley>sources>LLNEW.;4 69231
|
||||
|
||||
previous date%: "24-Aug-94 10:56:08" {DSK}<lispcore>sources>LLNEW.;14)
|
||||
:CHANGES-TO (FNS \GETBASEPTR \RPLPTR \RPLPTR.UFN)
|
||||
|
||||
:PREVIOUS-DATE "27-Jul-2022 13:21:34" {DSK}<home>larry>medley>sources>LLNEW.;3)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994, 1995 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1981-1987, 1990, 1992-1995, 2022 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT LLNEWCOMS)
|
||||
|
||||
(RPAQQ LLNEWCOMS
|
||||
(RPAQQ LLNEWCOMS
|
||||
((PROPS (LLNEW FILETYPE))
|
||||
(DECLARE%: DONTCOPY EVAL@COMPILE (FILES (LOADCOMP)
|
||||
LLCODE))
|
||||
@@ -82,15 +83,13 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
(DECLARE%: DONTCOPY (EXPORT (MACROS LOCAL ALLOCAL))
|
||||
(ADDVARS (MKI.SUBFNS (CHECK . *)
|
||||
(RAID . HELP)
|
||||
(UNINTERRUPTABLY
|
||||
. PROGN)
|
||||
(UNINTERRUPTABLY . PROGN)
|
||||
(\StatsAdd1 . *)
|
||||
(EVQ . I.\COPY)
|
||||
(COPY . I.\COPY))
|
||||
(RD.SUBFNS (CHECK . *)
|
||||
(RAID . HELP)
|
||||
(UNINTERRUPTABLY
|
||||
. PROGN)
|
||||
(UNINTERRUPTABLY . PROGN)
|
||||
(\StatsAdd1 . *)
|
||||
(EVQ . V\COPY)
|
||||
(COPY . V\COPY)
|
||||
@@ -100,7 +99,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
(ADDVARS (DONTCOMPILEFNS MAKEINITFIRST \COPY MAKEINITLAST \UNCOPY]
|
||||
(LOCALVARS . T)))
|
||||
|
||||
(PUTPROPS LLNEW FILETYPE :BCOMPL)
|
||||
(PUTPROPS LLNEW FILETYPE :BCOMPL)
|
||||
(DECLARE%: DONTCOPY EVAL@COMPILE
|
||||
|
||||
(FILESLOAD (LOADCOMP)
|
||||
@@ -215,12 +214,14 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
BYTE])
|
||||
|
||||
(\GETBASEPTR
|
||||
[LAMBDA (X D) (* ; "Edited 24-Aug-94 09:29 by sybalsky")
|
||||
[LAMBDA (X D) (* ; "Edited 27-Jul-2022 21:19 by larry")
|
||||
(* ; "Edited 24-Aug-94 09:29 by sybalsky")
|
||||
|
||||
(* ;;
|
||||
"usually done in microcode; this def. uses GETBASE, VAG2, etc. and handles overflows too")
|
||||
(* ;; "usually done in microcode; this def. used by makeinit")
|
||||
|
||||
(\VAG2 (\GETBASE X D)
|
||||
(* ;; "usually not done here unless interpreted")
|
||||
|
||||
(\VAG2 (LOGAND 4095 (\GETBASE X D))
|
||||
(\GETBASE (\ADDBASE X 1)
|
||||
D])
|
||||
|
||||
@@ -255,24 +256,27 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
(.COERCE.TO.SMALLPOSP. L])
|
||||
|
||||
(\RPLPTR
|
||||
[LAMBDA (OBJ OFFSET VAL) (* lmm " 3-NOV-81 12:10")
|
||||
[LAMBDA (OBJ OFFSET VAL) (* ;
|
||||
"Edited 27-Jul-2022 21:25 by larry: Only called interpreted or (renamed) during MAKEINIT")
|
||||
(* lmm " 3-NOV-81 12:10")
|
||||
(UNINTERRUPTABLY
|
||||
(\ADDREF VAL)
|
||||
(\DELREF (\GETBASEPTR (SETQ OBJ (\ADDBASE OBJ OFFSET))
|
||||
0))
|
||||
(\PUTBASEBYTE OBJ 1 (\HILOC VAL)) (* ;
|
||||
"\PUTBASEPTR smashes the high byte")
|
||||
(\PUTBASE OBJ 0 (LOGOR (LOGAND 61440 (\GETBASE OBJ 0))
|
||||
(\HILOC VAL))) (* ; "\PUTBASEPTR smashes the high ")
|
||||
(\PUTBASE OBJ 1 (\LOLOC VAL))
|
||||
VAL)])
|
||||
|
||||
(\RPLPTR.UFN
|
||||
[LAMBDA (OBJ VAL OFFSET) (* ; "Edited 14-Jan-87 16:34 by Pavel")
|
||||
[LAMBDA (OBJ VAL OFFSET) (* ; "Edited 27-Jul-2022 21:30 by larry")
|
||||
(* ; "Edited 14-Jan-87 16:34 by Pavel")
|
||||
|
||||
(* ;;; "The UFN is different from the function since the offset (inline) gets pushed last.")
|
||||
|
||||
(LET ((SLOT (\ADDBASE OBJ OFFSET)))
|
||||
(UNINTERRUPTABLY
|
||||
|
||||
|
||||
(* ;; "Fix up the reference counts.")
|
||||
|
||||
(\ADDREF VAL)
|
||||
@@ -280,7 +284,8 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
|
||||
(* ;; "\PUTBASEPTR smashes the high byte, so we use two calls instead.")
|
||||
|
||||
(\PUTBASEBYTE SLOT 1 (\HILOC VAL))
|
||||
(\PUTBASE SLOT 0 (LOGOR (LOGAND 61440 (\GETBASE SLOT 0))
|
||||
(\HILOC VAL)))
|
||||
(\PUTBASE SLOT 1 (\LOLOC VAL))
|
||||
|
||||
(* ;; "Be sure to return the OBJ; code generated by the new compiler counts on it.")
|
||||
@@ -330,7 +335,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
(CL::COMPLEX-IMAGPART Y])
|
||||
)
|
||||
|
||||
(PUTPROPS EQL BYTEMACRO COMP.EQ)
|
||||
(PUTPROPS EQL BYTEMACRO COMP.EQ)
|
||||
(DEFINEQ
|
||||
|
||||
(LOC
|
||||
@@ -377,55 +382,55 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(ACCESSFNS POINTER [(PAGE# (IPLUS (LLSH (\HILOC DATUM)
|
||||
8)
|
||||
(LRSH (\LOLOC DATUM)
|
||||
8)))
|
||||
(WORDINPAGE (LOGAND (\LOLOC DATUM)
|
||||
255))
|
||||
(CELLINPAGE (LRSH (fetch WORDINPAGE of DATUM)
|
||||
1))
|
||||
(BYTEINPAGE (LLSH (fetch WORDINPAGE of DATUM)
|
||||
1))
|
||||
(SEGMENT# (\HILOC DATUM))
|
||||
(WORDINSEGMENT (\LOLOC DATUM))
|
||||
(CELLINSEGMENT (LRSH (fetch WORDINSEGMENT of DATUM)
|
||||
1))
|
||||
(WORD# (fetch WORDINPAGE of DATUM))
|
||||
(DBLWORD# (fetch CELLINPAGE of DATUM))
|
||||
(PAGEBASE (\VAG2 (\HILOC DATUM)
|
||||
(LOGAND (\LOLOC DATUM)
|
||||
65280]
|
||||
(CREATE (\VAG2 (LRSH PAGE# 8)
|
||||
(LLSH (LOGAND PAGE# 255)
|
||||
8))))
|
||||
8)
|
||||
(LRSH (\LOLOC DATUM)
|
||||
8)))
|
||||
(WORDINPAGE (LOGAND (\LOLOC DATUM)
|
||||
255))
|
||||
(CELLINPAGE (LRSH (fetch WORDINPAGE of DATUM)
|
||||
1))
|
||||
(BYTEINPAGE (LLSH (fetch WORDINPAGE of DATUM)
|
||||
1))
|
||||
(SEGMENT# (\HILOC DATUM))
|
||||
(WORDINSEGMENT (\LOLOC DATUM))
|
||||
(CELLINSEGMENT (LRSH (fetch WORDINSEGMENT of DATUM)
|
||||
1))
|
||||
(WORD# (fetch WORDINPAGE of DATUM))
|
||||
(DBLWORD# (fetch CELLINPAGE of DATUM))
|
||||
(PAGEBASE (\VAG2 (\HILOC DATUM)
|
||||
(LOGAND (\LOLOC DATUM)
|
||||
65280]
|
||||
(CREATE (\VAG2 (LRSH PAGE# 8)
|
||||
(LLSH (LOGAND PAGE# 255)
|
||||
8))))
|
||||
|
||||
(ACCESSFNS WORD ((HIBYTE (LRSH DATUM 8))
|
||||
(LOBYTE (LOGAND DATUM 255)))
|
||||
(CREATE (IPLUS (LLSH HIBYTE 8)
|
||||
LOBYTE)))
|
||||
(LOBYTE (LOGAND DATUM 255)))
|
||||
(CREATE (IPLUS (LLSH HIBYTE 8)
|
||||
LOBYTE)))
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS PTRGTP MACRO (OPENLAMBDA (X Y)
|
||||
(OR (IGREATERP (\HILOC X)
|
||||
(\HILOC Y))
|
||||
(AND (EQ (\HILOC X)
|
||||
(\HILOC Y))
|
||||
(IGREATERP (\LOLOC X)
|
||||
(\LOLOC Y]
|
||||
(PUTPROPS PTRGTP MACRO [OPENLAMBDA (X Y)
|
||||
(OR (IGREATERP (\HILOC X)
|
||||
(\HILOC Y))
|
||||
(AND (EQ (\HILOC X)
|
||||
(\HILOC Y))
|
||||
(IGREATERP (\LOLOC X)
|
||||
(\LOLOC Y])
|
||||
|
||||
[PUTPROPS .COERCE.TO.SMALLPOSP. DMACRO (OPENLAMBDA (X)
|
||||
(COND
|
||||
((SMALLPOSP X)
|
||||
X)
|
||||
(T (\ILLEGAL.ARG X]
|
||||
|
||||
[PUTPROPS .COERCE.TO.BYTE. DMACRO (OPENLAMBDA (X)
|
||||
(PUTPROPS .COERCE.TO.SMALLPOSP. DMACRO [OPENLAMBDA (X)
|
||||
(COND
|
||||
([AND (SMALLPOSP X)
|
||||
(ILESSP X (CONSTANT (LLSH 1 BITSPERBYTE]
|
||||
((SMALLPOSP X)
|
||||
X)
|
||||
(T (\ILLEGAL.ARG X]
|
||||
(T (\ILLEGAL.ARG X])
|
||||
|
||||
(PUTPROPS .COERCE.TO.BYTE. DMACRO [OPENLAMBDA (X)
|
||||
(COND
|
||||
([AND (SMALLPOSP X)
|
||||
(ILESSP X (CONSTANT (LLSH 1 BITSPERBYTE]
|
||||
X)
|
||||
(T (\ILLEGAL.ARG X])
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -435,40 +440,40 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1992, 1993, 1994,
|
||||
(ADDTOVAR INEWCOMS (FNS \GETBASEBYTE \PUTBASEBYTE CREATEPAGES \NEW4PAGE))
|
||||
|
||||
(ADDTOVAR RDCOMS (FNS \CAR.UFN \CDR.UFN)
|
||||
(FNS \COPY \UNCOPY)
|
||||
(FNS \GETBASEBYTE \PUTBASEBYTE))
|
||||
(FNS \COPY \UNCOPY)
|
||||
(FNS \GETBASEBYTE \PUTBASEBYTE))
|
||||
|
||||
(ADDTOVAR INITPTRS (\LISTPDTD))
|
||||
|
||||
(ADDTOVAR MKI.SUBFNS (\ADDBASE . I.ADDBASE)
|
||||
(\GETBASE . I.GETBASE)
|
||||
(\PUTBASE . I.PUTBASE)
|
||||
(\GETBASEPTR . I.GETBASEPTR)
|
||||
(\PUTBASEPTR . I.PUTBASEPTR)
|
||||
(\HILOC . I.HILOC)
|
||||
(\LOLOC . I.LOLOC)
|
||||
(\VAG2 . I.VAG2)
|
||||
(.COERCE.TO.SMALLPOSP. . PROG1)
|
||||
(.COERCE.TO.BYTE. . PROG1)
|
||||
(LOCKEDPAGEP . MKI.LOCKEDPAGEP)
|
||||
(\RPLPTR . I.PUTBASEPTR)
|
||||
(CONS . I.\CONS.UFN))
|
||||
(\GETBASE . I.GETBASE)
|
||||
(\PUTBASE . I.PUTBASE)
|
||||
(\GETBASEPTR . I.GETBASEPTR)
|
||||
(\PUTBASEPTR . I.PUTBASEPTR)
|
||||
(\HILOC . I.HILOC)
|
||||
(\LOLOC . I.LOLOC)
|
||||
(\VAG2 . I.VAG2)
|
||||
(.COERCE.TO.SMALLPOSP. . PROG1)
|
||||
(.COERCE.TO.BYTE. . PROG1)
|
||||
(LOCKEDPAGEP . MKI.LOCKEDPAGEP)
|
||||
(\RPLPTR . I.PUTBASEPTR)
|
||||
(CONS . I.\CONS.UFN))
|
||||
|
||||
(ADDTOVAR RD.SUBFNS (\ADDBASE . VADDBASE)
|
||||
(\GETBASE . VGETBASE)
|
||||
(\PUTBASE . VPUTBASE)
|
||||
(\GETBASEPTR . VGETBASEPTR)
|
||||
(\PUTBASEPTR . VPUTBASEPTR)
|
||||
(\HILOC . VHILOC)
|
||||
(\LOLOC . VLOLOC)
|
||||
(\VAG2 . VVAG2)
|
||||
(.COERCE.TO.SMALLPOSP. . PROG1)
|
||||
(.COERCE.TO.BYTE. . PROG1)
|
||||
(PTRGTP . IGREATERP)
|
||||
(\RPLPTR . VPUTBASEPTR)
|
||||
(CAR . V\CAR.UFN)
|
||||
(CDR . V\CDR.UFN)
|
||||
(CAR/CDRERR . T))
|
||||
(\GETBASE . VGETBASE)
|
||||
(\PUTBASE . VPUTBASE)
|
||||
(\GETBASEPTR . VGETBASEPTR)
|
||||
(\PUTBASEPTR . VPUTBASEPTR)
|
||||
(\HILOC . VHILOC)
|
||||
(\LOLOC . VLOLOC)
|
||||
(\VAG2 . VVAG2)
|
||||
(.COERCE.TO.SMALLPOSP. . PROG1)
|
||||
(.COERCE.TO.BYTE. . PROG1)
|
||||
(PTRGTP . IGREATERP)
|
||||
(\RPLPTR . VPUTBASEPTR)
|
||||
(CAR . V\CAR.UFN)
|
||||
(CDR . V\CDR.UFN)
|
||||
(CAR/CDRERR . T))
|
||||
EVAL@COMPILE
|
||||
|
||||
(ADDTOVAR DONTCOMPILEFNS CREATEPAGES)
|
||||
@@ -902,40 +907,40 @@ EVAL@COMPILE
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(BLOCKRECORD LISTP (
|
||||
(* ;; "Describes a CONS cell.")
|
||||
(* ;; "Describes a CONS cell.")
|
||||
|
||||
(CAR POINTER)
|
||||
(CDR POINTER))
|
||||
(CREATE (CREATECELL \LISTP))
|
||||
(CAR POINTER)
|
||||
(CDR POINTER))
|
||||
(CREATE (CREATECELL \LISTP))
|
||||
|
||||
(* ;; "FOLLOWING ARE CDR-CODE FIELDS")
|
||||
(* ;; "FOLLOWING ARE CDR-CODE FIELDS")
|
||||
|
||||
(BLOCKRECORD LISTP ((CDRCODE BITS 4)
|
||||
(CARFIELD XPOINTER)))
|
||||
(BLOCKRECORD LISTP ((CDRCODE BITS 4)
|
||||
(CARFIELD XPOINTER)))
|
||||
|
||||
(* ;; "For chaining together free cells on a page:")
|
||||
(* ;; "For chaining together free cells on a page:")
|
||||
|
||||
(BLOCKRECORD LISTP ((NEXTFREE BYTE)
|
||||
(NIL BITS 24)))
|
||||
[ACCESSFNS LISTP ((FULLCARFIELD NIL (\PUTBASEPTR DATUM 0 NEWVALUE]
|
||||
(BLOCKRECORD LISTP ((NEXTFREE BYTE)
|
||||
(NIL BITS 24)))
|
||||
[ACCESSFNS LISTP ((FULLCARFIELD NIL (\PUTBASEPTR DATUM 0 NEWVALUE]
|
||||
|
||||
(* ;; "because replace of XPOINTER is slow, the CAR field is stored with PUTBASEPTR, even though that smashes the hi byte")
|
||||
(* ;; "because replace of XPOINTER is slow, the CAR field is stored with PUTBASEPTR, even though that smashes the hi byte")
|
||||
|
||||
)
|
||||
)
|
||||
|
||||
(BLOCKRECORD CONSPAGE (
|
||||
(* ;;
|
||||
"Describes a page of CONS cells, which (when free) are chained together thru the top byte.")
|
||||
(* ;;
|
||||
"Describes a page of CONS cells, which (when free) are chained together thru the top byte.")
|
||||
|
||||
(NIL 2 FIXP) (* ;
|
||||
"Empty cells, space for another 2 CONS cells if we can figure out how.")
|
||||
(CNT BYTE) (* ; "# of cells free on this page")
|
||||
(NEXTCELL BYTE) (* ;
|
||||
"WORD offset of next free cell (not guaranteed to be 0 if no free cells)")
|
||||
(NIL WORD) (* ; "Padding")
|
||||
(NEXTPAGE FIXP) (* ;
|
||||
"Next CONS page on the DTD's free list, for searching for cells.")
|
||||
))
|
||||
(NIL 2 FIXP) (* ;
|
||||
"Empty cells, space for another 2 CONS cells if we can figure out how.")
|
||||
(CNT BYTE) (* ; "# of cells free on this page")
|
||||
(NEXTCELL BYTE) (* ;
|
||||
"WORD offset of next free cell (not guaranteed to be 0 if no free cells)")
|
||||
(NIL WORD) (* ; "Padding")
|
||||
(NEXTPAGE FIXP) (* ;
|
||||
"Next CONS page on the DTD's free list, for searching for cells.")
|
||||
))
|
||||
)
|
||||
|
||||
(RPAQQ CONSCONSTANTS (\CDR.ONPAGE \CDR.NIL \CDR.INDIRECT \CDR.MAXINDIRECT \CONSPAGE.LAST))
|
||||
@@ -960,128 +965,118 @@ EVAL@COMPILE
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS .MAKECONSCELL. MACRO (OPENLAMBDA (PAGE A D)
|
||||
(PROG [(.MK.NEWCELL (\ADDBASE PAGE (fetch (CONSPAGE
|
||||
NEXTCELL)
|
||||
of PAGE]
|
||||
(CHECK (NEQ (fetch (CONSPAGE CNT) of PAGE)
|
||||
0)
|
||||
(EVENP (fetch (CONSPAGE NEXTCELL) of
|
||||
PAGE)))
|
||||
(replace (CONSPAGE NEXTCELL) of PAGE
|
||||
with (fetch (LISTP NEXTFREE) of
|
||||
.MK.NEWCELL
|
||||
))
|
||||
(CHECK (EVENP (fetch (CONSPAGE NEXTCELL) of
|
||||
PAGE)))
|
||||
(add (fetch (CONSPAGE CNT) of PAGE)
|
||||
-1)
|
||||
(replace (LISTP FULLCARFIELD) of .MK.NEWCELL
|
||||
with A)
|
||||
(replace (LISTP CDRCODE) of .MK.NEWCELL
|
||||
with D)
|
||||
(RETURN .MK.NEWCELL]
|
||||
(PUTPROPS .MAKECONSCELL. MACRO (OPENLAMBDA (PAGE A D)
|
||||
(PROG [(.MK.NEWCELL (\ADDBASE PAGE (fetch (CONSPAGE NEXTCELL)
|
||||
of PAGE]
|
||||
(CHECK (NEQ (fetch (CONSPAGE CNT) of PAGE)
|
||||
0)
|
||||
(EVENP (fetch (CONSPAGE NEXTCELL) of PAGE)))
|
||||
(replace (CONSPAGE NEXTCELL) of PAGE
|
||||
with (fetch (LISTP NEXTFREE) of .MK.NEWCELL))
|
||||
(CHECK (EVENP (fetch (CONSPAGE NEXTCELL) of PAGE)))
|
||||
(add (fetch (CONSPAGE CNT) of PAGE)
|
||||
-1)
|
||||
(replace (LISTP FULLCARFIELD) of .MK.NEWCELL with A)
|
||||
(replace (LISTP CDRCODE) of .MK.NEWCELL with D)
|
||||
(RETURN .MK.NEWCELL))))
|
||||
|
||||
[PUTPROPS .FINDCLOSEPRIOR. MACRO
|
||||
(OPENLAMBDA (PG A D)
|
||||
(LET ((CDROFFSET (LOGAND (\LOLOC D)
|
||||
255))
|
||||
(OFFSET (fetch (CONSPAGE NEXTCELL) of PG))
|
||||
CELL PRIOR)
|
||||
(WHILE (NEQ OFFSET 0)
|
||||
DO (COND
|
||||
((AND (ILEQ OFFSET CDROFFSET)
|
||||
(IGEQ OFFSET (IDIFFERENCE CDROFFSET 14)))
|
||||
(PUTPROPS .FINDCLOSEPRIOR. MACRO [OPENLAMBDA (PG A D)
|
||||
(LET ((CDROFFSET (LOGAND (\LOLOC D)
|
||||
255))
|
||||
(OFFSET (fetch (CONSPAGE NEXTCELL) of PG))
|
||||
CELL PRIOR)
|
||||
(WHILE (NEQ OFFSET 0)
|
||||
DO (COND
|
||||
((AND (ILEQ OFFSET CDROFFSET)
|
||||
(IGEQ OFFSET (IDIFFERENCE CDROFFSET 14)))
|
||||
|
||||
(* ;;
|
||||
"There's a cell close enough. Take it off the chain and return it.")
|
||||
(* ;;
|
||||
"There's a cell close enough. Take it off the chain and return it.")
|
||||
|
||||
[COND
|
||||
[PRIOR
|
||||
(* ;;
|
||||
"There was a prior entry in the chain; detach this one.")
|
||||
[COND
|
||||
[PRIOR
|
||||
(* ;;
|
||||
"There was a prior entry in the chain; detach this one.")
|
||||
|
||||
(REPLACE (LISTP NEXTFREE) OF (\ADDBASE PG
|
||||
PRIOR)
|
||||
WITH (FETCH (LISTP NEXTFREE)
|
||||
OF (SETQ CELL (\ADDBASE PG OFFSET]
|
||||
(T
|
||||
(* ;; "No prior entry; set the conspage's NEXTCELL entry.")
|
||||
(REPLACE (LISTP NEXTFREE)
|
||||
OF (\ADDBASE PG PRIOR)
|
||||
WITH (FETCH (LISTP NEXTFREE)
|
||||
OF (SETQ CELL (\ADDBASE PG
|
||||
OFFSET]
|
||||
(T
|
||||
(* ;;
|
||||
"No prior entry; set the conspage's NEXTCELL entry.")
|
||||
|
||||
(REPLACE (CONSPAGE NEXTCELL) OF PG
|
||||
WITH (FETCH (LISTP NEXTFREE)
|
||||
OF (SETQ CELL (\ADDBASE PG OFFSET]
|
||||
(add (fetch (CONSPAGE CNT) of PG)
|
||||
-1)
|
||||
(replace (LISTP FULLCARFIELD) of CELL with A)
|
||||
(replace (LISTP CDRCODE) of CELL
|
||||
with (LOGOR \CDR.ONPAGE (LRSH (IDIFFERENCE CDROFFSET OFFSET)
|
||||
1)))
|
||||
(RETURN CELL)))
|
||||
(REPLACE (CONSPAGE NEXTCELL) OF PG
|
||||
WITH (FETCH (LISTP NEXTFREE)
|
||||
OF (SETQ CELL (\ADDBASE PG OFFSET]
|
||||
(add (fetch (CONSPAGE CNT) of PG)
|
||||
-1)
|
||||
(replace (LISTP FULLCARFIELD) of CELL with A)
|
||||
(replace (LISTP CDRCODE) of CELL
|
||||
with (LOGOR \CDR.ONPAGE (LRSH (IDIFFERENCE
|
||||
CDROFFSET OFFSET)
|
||||
1)))
|
||||
(RETURN CELL)))
|
||||
(SETQ PRIOR OFFSET)
|
||||
(SETQ OFFSET (FETCH (LISTP NEXTFREE)
|
||||
OF (\ADDBASE PG OFFSET])
|
||||
|
||||
(PUTPROPS .FINDCDRABLEPAIR. MACRO
|
||||
[OPENLAMBDA (PG A D)
|
||||
(LET ((OFFSET (fetch (CONSPAGE NEXTCELL) of PG))
|
||||
CELL PRIOR PRIORPRIOR)
|
||||
(AND (IGEQ (FETCH (CONSPAGE CNT) OF PG)
|
||||
2)
|
||||
(WHILE (NEQ OFFSET 0)
|
||||
DO (COND
|
||||
((AND PRIOR (ILEQ OFFSET PRIOR)
|
||||
(IGEQ OFFSET (IDIFFERENCE PRIOR 14)))
|
||||
|
||||
(* ;;
|
||||
"There's a cell close enough. Take it off the chain and return it.")
|
||||
|
||||
[COND
|
||||
[PRIORPRIOR
|
||||
|
||||
(* ;;
|
||||
"There was a prior entry in the chain; detach this one.")
|
||||
|
||||
(REPLACE (LISTP NEXTFREE) OF (\ADDBASE PG PRIORPRIOR)
|
||||
WITH (FETCH (LISTP NEXTFREE) OF (SETQ CELL
|
||||
(\ADDBASE PG OFFSET]
|
||||
(T
|
||||
(* ;; "No prior entry; set the conspage's NEXTCELL entry.")
|
||||
|
||||
(REPLACE (CONSPAGE NEXTCELL) OF PG
|
||||
WITH (FETCH (LISTP NEXTFREE) OF (SETQ CELL (\ADDBASE PG
|
||||
OFFSET]
|
||||
(add (fetch (CONSPAGE CNT) of PG)
|
||||
-2)
|
||||
(\PUTBASEPTR (\ADDBASE PG PRIOR)
|
||||
0 D)
|
||||
(REPLACE (LISTP FULLCARFIELD) OF CELL WITH A)
|
||||
(REPLACE (LISTP CDRCODE) OF CELL WITH (LRSH (IDIFFERENCE PRIOR OFFSET
|
||||
)
|
||||
1))
|
||||
(RETURN CELL)))
|
||||
(SETQ PRIORPRIOR PRIOR)
|
||||
(SETQ PRIOR OFFSET)
|
||||
(SETQ OFFSET (FETCH (LISTP NEXTFREE) OF (\ADDBASE PG OFFSET]
|
||||
(SETQ OFFSET (FETCH (LISTP NEXTFREE) OF (\ADDBASE PG OFFSET])
|
||||
|
||||
[PUTPROPS .FINDCDRABLEPAIR. MACRO
|
||||
(OPENLAMBDA (PG A D)
|
||||
(LET ((OFFSET (fetch (CONSPAGE NEXTCELL) of PG))
|
||||
CELL PRIOR PRIORPRIOR)
|
||||
(AND (IGEQ (FETCH (CONSPAGE CNT) OF PG)
|
||||
2)
|
||||
(WHILE (NEQ OFFSET 0)
|
||||
DO (COND
|
||||
((AND PRIOR (ILEQ OFFSET PRIOR)
|
||||
(IGEQ OFFSET (IDIFFERENCE PRIOR 14)))
|
||||
|
||||
(* ;;
|
||||
"There's a cell close enough. Take it off the chain and return it.")
|
||||
|
||||
[COND
|
||||
[PRIORPRIOR
|
||||
|
||||
(* ;;
|
||||
"There was a prior entry in the chain; detach this one.")
|
||||
|
||||
(REPLACE (LISTP NEXTFREE) OF (\ADDBASE
|
||||
PG PRIORPRIOR)
|
||||
WITH (FETCH (LISTP NEXTFREE)
|
||||
OF (SETQ CELL (\ADDBASE PG
|
||||
OFFSET]
|
||||
(T
|
||||
(* ;;
|
||||
"No prior entry; set the conspage's NEXTCELL entry.")
|
||||
|
||||
(REPLACE (CONSPAGE NEXTCELL) OF PG
|
||||
WITH (FETCH (LISTP NEXTFREE)
|
||||
OF (SETQ CELL (\ADDBASE PG OFFSET]
|
||||
(add (fetch (CONSPAGE CNT) of PG)
|
||||
-2)
|
||||
(\PUTBASEPTR (\ADDBASE PG PRIOR)
|
||||
0 D)
|
||||
(REPLACE (LISTP FULLCARFIELD) OF CELL WITH A)
|
||||
(REPLACE (LISTP CDRCODE) OF CELL
|
||||
WITH (LRSH (IDIFFERENCE PRIOR OFFSET)
|
||||
1))
|
||||
(RETURN CELL)))
|
||||
(SETQ PRIORPRIOR PRIOR)
|
||||
(SETQ PRIOR OFFSET)
|
||||
(SETQ OFFSET (FETCH (LISTP NEXTFREE) OF (\ADDBASE PG
|
||||
OFFSET]
|
||||
|
||||
[PUTPROPS .FINDPAIR. MACRO (OPENLAMBDA (A D)
|
||||
(LET ((PG (fetch DTDNEXTPAGE of \LISTPDTD))
|
||||
CELL CPG)
|
||||
[WHILE (IGREATERP PG 0)
|
||||
DO (COND
|
||||
((SETQ CELL (.FINDCDRABLEPAIR. (SETQ CPG
|
||||
(CREATE
|
||||
POINTER
|
||||
PAGE# _ PG))
|
||||
A D))
|
||||
(RETURN CELL))
|
||||
(T (SETQ PG (FETCH (CONSPAGE NEXTPAGE)
|
||||
OF CPG]
|
||||
(OR CELL (.FINDCDRABLEPAIR. (\NEXTCONSPAGE)
|
||||
A D]
|
||||
(PUTPROPS .FINDPAIR. MACRO [OPENLAMBDA (A D)
|
||||
(LET ((PG (fetch DTDNEXTPAGE of \LISTPDTD))
|
||||
CELL CPG)
|
||||
[WHILE (IGREATERP PG 0)
|
||||
DO (COND
|
||||
((SETQ CELL (.FINDCDRABLEPAIR. (SETQ CPG
|
||||
(CREATE POINTER
|
||||
PAGE# _ PG))
|
||||
A D))
|
||||
(RETURN CELL))
|
||||
(T (SETQ PG (FETCH (CONSPAGE NEXTPAGE) OF CPG]
|
||||
(OR CELL (.FINDCDRABLEPAIR. (\NEXTCONSPAGE)
|
||||
A D])
|
||||
)
|
||||
|
||||
|
||||
@@ -1138,8 +1133,8 @@ EVAL@COMPILE
|
||||
(DECLARE%: DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS !CHECK MACRO ((X)
|
||||
(OR X (RAID 'X]
|
||||
(PUTPROPS !CHECK MACRO [(X)
|
||||
(OR X (RAID 'X])
|
||||
)
|
||||
)
|
||||
|
||||
@@ -1390,10 +1385,10 @@ EVAL@COMPILE
|
||||
(DECLARE%: DONTCOPY
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS LOCAL MACRO ((X)
|
||||
(PUTPROPS LOCAL MACRO ((X)
|
||||
X))
|
||||
|
||||
(PUTPROPS ALLOCAL MACRO ((X)
|
||||
(PUTPROPS ALLOCAL MACRO ((X)
|
||||
X))
|
||||
)
|
||||
|
||||
@@ -1402,21 +1397,19 @@ EVAL@COMPILE
|
||||
|
||||
|
||||
(ADDTOVAR MKI.SUBFNS (CHECK . *)
|
||||
(RAID . HELP)
|
||||
(UNINTERRUPTABLY
|
||||
. PROGN)
|
||||
(\StatsAdd1 . *)
|
||||
(EVQ . I.\COPY)
|
||||
(COPY . I.\COPY))
|
||||
(RAID . HELP)
|
||||
(UNINTERRUPTABLY . PROGN)
|
||||
(\StatsAdd1 . *)
|
||||
(EVQ . I.\COPY)
|
||||
(COPY . I.\COPY))
|
||||
|
||||
(ADDTOVAR RD.SUBFNS (CHECK . *)
|
||||
(RAID . HELP)
|
||||
(UNINTERRUPTABLY
|
||||
. PROGN)
|
||||
(\StatsAdd1 . *)
|
||||
(EVQ . V\COPY)
|
||||
(COPY . V\COPY)
|
||||
(1ST . V\UNCOPY))
|
||||
(RAID . HELP)
|
||||
(UNINTERRUPTABLY . PROGN)
|
||||
(\StatsAdd1 . *)
|
||||
(EVQ . V\COPY)
|
||||
(COPY . V\COPY)
|
||||
(1ST . V\UNCOPY))
|
||||
|
||||
|
||||
(ADDTOVAR INEWCOMS (FNS MAKEINITFIRST \COPY MAKEINITLAST))
|
||||
@@ -1429,19 +1422,19 @@ EVAL@COMPILE
|
||||
(LOCALVARS . T)
|
||||
)
|
||||
(PUTPROPS LLNEW COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 1992
|
||||
1993 1994 1995))
|
||||
1993 1994 1995 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5895 12403 (\ADDBASE 5905 . 6712) (\GETBASE 6714 . 6958) (\PUTBASE 6960 . 7236) (
|
||||
\PUTBASE.UFN 7238 . 7518) (\PUTBASEPTR.UFN 7520 . 7842) (\PUTBITS.UFN 7844 . 8550) (\GETBASEBYTE 8552
|
||||
. 8979) (\PUTBASEBYTE 8981 . 9672) (\GETBASEPTR 9674 . 10012) (\PUTBASEPTR 10014 . 10332) (\HILOC
|
||||
10334 . 10558) (\LOLOC 10560 . 10784) (\VAG2 10786 . 11161) (\RPLPTR 11163 . 11640) (\RPLPTR.UFN 11642
|
||||
. 12401)) (12404 13819 (EQ 12414 . 12632) (EQL 12634 . 13817)) (13858 14608 (LOC 13868 . 14199) (VAG
|
||||
14201 . 14606)) (14609 15650 (CREATEPAGES 14619 . 15108) (\NEW4PAGE 15110 . 15648)) (20046 38779 (CONS
|
||||
20056 . 20362) (\CONS.UFN 20364 . 22782) (\MAIKO.CONS.UFN 22784 . 25037) (CAR 25039 . 25166) (
|
||||
\CAR.UFN 25168 . 26271) (CDR 26273 . 26400) (\CDR.UFN 26402 . 28001) (RPLACA 28003 . 28230) (
|
||||
\RPLACA.UFN 28232 . 29231) (RPLACD 29233 . 29368) (\RPLACD.UFN 29370 . 33121) (DOCOLLECT 33123 . 33387
|
||||
) (\RPLCONS 33389 . 35399) (ENDCOLLECT 35401 . 35609) (\INITCONSPAGE 35611 . 38173) (\NEXTCONSPAGE
|
||||
38175 . 38777)) (38837 41172 (\RESTLIST.UFN 38847 . 39945) (\FINDKEY.UFN 39947 . 41170)) (51822 53618
|
||||
(CHECKCONSPAGES 51832 . 52771) (\CHECKCONSPAGE 52773 . 53616)) (53786 68392 (MAKEINITFIRST 53796 .
|
||||
54134) (MAKEINITLAST 54136 . 59420) (\COPY 59422 . 61925) (\UNCOPY 61927 . 68390)))))
|
||||
(FILEMAP (NIL (5793 12801 (\ADDBASE 5803 . 6610) (\GETBASE 6612 . 6856) (\PUTBASE 6858 . 7134) (
|
||||
\PUTBASE.UFN 7136 . 7416) (\PUTBASEPTR.UFN 7418 . 7740) (\PUTBITS.UFN 7742 . 8448) (\GETBASEBYTE 8450
|
||||
. 8877) (\PUTBASEBYTE 8879 . 9570) (\GETBASEPTR 9572 . 10054) (\PUTBASEPTR 10056 . 10374) (\HILOC
|
||||
10376 . 10600) (\LOLOC 10602 . 10826) (\VAG2 10828 . 11203) (\RPLPTR 11205 . 11860) (\RPLPTR.UFN 11862
|
||||
. 12799)) (12802 14217 (EQ 12812 . 13030) (EQL 13032 . 14215)) (14260 15010 (LOC 14270 . 14601) (VAG
|
||||
14603 . 15008)) (15011 16052 (CREATEPAGES 15021 . 15510) (\NEW4PAGE 15512 . 16050)) (20177 38910 (CONS
|
||||
20187 . 20493) (\CONS.UFN 20495 . 22913) (\MAIKO.CONS.UFN 22915 . 25168) (CAR 25170 . 25297) (
|
||||
\CAR.UFN 25299 . 26402) (CDR 26404 . 26531) (\CDR.UFN 26533 . 28132) (RPLACA 28134 . 28361) (
|
||||
\RPLACA.UFN 28363 . 29362) (RPLACD 29364 . 29499) (\RPLACD.UFN 29501 . 33252) (DOCOLLECT 33254 . 33518
|
||||
) (\RPLCONS 33520 . 35530) (ENDCOLLECT 35532 . 35740) (\INITCONSPAGE 35742 . 38304) (\NEXTCONSPAGE
|
||||
38306 . 38908)) (38968 41303 (\RESTLIST.UFN 38978 . 40076) (\FINDKEY.UFN 40078 . 41301)) (51554 53350
|
||||
(CHECKCONSPAGES 51564 . 52503) (\CHECKCONSPAGE 52505 . 53348)) (53527 68133 (MAKEINITFIRST 53537 .
|
||||
53875) (MAKEINITLAST 53877 . 59161) (\COPY 59163 . 61666) (\UNCOPY 61668 . 68131)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,10 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "25-Jun-2022 17:45:35" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;3 117309
|
||||
(FILECREATED "20-Jul-2022 19:55:30" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;4 117970
|
||||
|
||||
:CHANGES-TO (FNS UNSAFE.TO.MODIFY)
|
||||
:CHANGES-TO (VARS MACHINEINDEPENDENTCOMS)
|
||||
(FNS UNSAFE.TO.MODIFY)
|
||||
|
||||
:PREVIOUS-DATE "22-May-2022 13:19:56" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;1)
|
||||
:PREVIOUS-DATE "20-Jul-2022 15:26:15" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;3)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -31,6 +32,7 @@ with the terms of said license.
|
||||
READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 WRITEFILE CLOSE-AND-MAYBE-DELETE
|
||||
UNSAFE.TO.MODIFY)
|
||||
(VARS UNSAFE.TO.MODIFY.FNS)
|
||||
(INITVARS (OK.TO.MODIFY.FNS))
|
||||
[COMS (* ;
|
||||
"FILEDATE, for finding out the creation date of source files, from the compiled files.")
|
||||
|
||||
@@ -1297,20 +1299,29 @@ WRITEFILE OF ")
|
||||
(AND RESETSTATE (DELFILE STREAM])
|
||||
|
||||
(UNSAFE.TO.MODIFY
|
||||
[LAMBDA (FN OPTION) (* ; "Edited 25-Jun-2022 17:45 by larry")
|
||||
[LAMBDA (FN OPTION) (* ; "Edited 20-Jul-2022 19:54 by larry")
|
||||
(* ; "Edited 25-Jun-2022 17:45 by larry")
|
||||
(* lmm "31-Jul-85 02:06")
|
||||
(if (OR (FMEMB FN UNSAFE.TO.MODIFY.FNS)
|
||||
(EQ (CHCON1 FN)
|
||||
(CHARCODE \))
|
||||
(EQ (CL:SYMBOL-PACKAGE FN)
|
||||
(CL:FIND-PACKAGE "SYSTEM")))
|
||||
(DECLARE (GLOBALVARS UNSAFE.TO.MODIFY.FNS OK.TO.MODIFY.FNS))
|
||||
|
||||
(* ;; "These are hueristic guesses th that need to be tweaked... what things should ou not edit while running?")
|
||||
|
||||
(if [OR (FMEMB FN UNSAFE.TO.MODIFY.FNS)
|
||||
(AND (CCODEP FN)
|
||||
(NEQ OK.TO.MODIFY.FNS T)
|
||||
(NOT (FMEMB FN OK.TO.MODIFY.FNS))
|
||||
(OR (EQ (CHCON1 FN)
|
||||
(CHARCODE \))
|
||||
(EQ (CL:SYMBOL-PACKAGE FN)
|
||||
(CL:FIND-PACKAGE "SYSTEM"]
|
||||
then (PRINTOUT T "Warning: " FN " may be unsafe to " (OR OPTION "modify")
|
||||
" -- continue? ")
|
||||
(if (EQ (if (GETD 'ASKUSER)
|
||||
then (ASKUSER DWIMWAIT 'N)
|
||||
else (READ T))
|
||||
'Y)
|
||||
then NIL
|
||||
then (SETQ OK.TO.MODIFY.FNS (CONS FN (LISTP OK.TO.MODIFY.FNS)))
|
||||
NIL
|
||||
else T])
|
||||
)
|
||||
|
||||
@@ -1338,6 +1349,8 @@ WRITEFILE OF ")
|
||||
TTYIN1 TTYIN1RESTART TTYINREAD TYPENAME UNBREAK0 UNDOSAVE UNPACKFILENAME.STRING WFROMDS
|
||||
WINDOW.MOUSE.HANDLER))
|
||||
|
||||
(RPAQ? OK.TO.MODIFY.FNS )
|
||||
|
||||
|
||||
|
||||
(* ; "FILEDATE, for finding out the creation date of source files, from the compiled files.")
|
||||
@@ -2456,23 +2469,23 @@ This has little hope of working any more.")
|
||||
(PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988
|
||||
1989 1990 1991 2021 2022))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (12812 26237 (LOAD? 12822 . 14673) (FILESLOAD 14675 . 14964) (DOFILESLOAD 14966 . 22592)
|
||||
(FINDFILE-WITH-EXTENSIONS 22594 . 25793) (READ-FILECREATED 25795 . 26235)) (26354 31675 (DMPHASH
|
||||
26364 . 27958) (HASHOVERFLOW 27960 . 31673)) (32431 64001 (BKBUFS 32441 . 33560) (CHANGENAME 33562 .
|
||||
33823) (CHNGNM 33825 . 35673) (CLBUFS 35675 . 36948) (DEFINE 36950 . 37674) (FNS.PUTDEF 37676 . 41091)
|
||||
(EQMEMB 41093 . 41275) (EQUALN 41277 . 42106) (FNCHECK 42108 . 44115) (FNTYP1 44117 . 44214) (LCSKIP
|
||||
44216 . 45060) (MAPRINT 45062 . 46008) (MKLIST 46010 . 46160) (NAMEFIELD 46162 . 47687) (NLIST 47689
|
||||
. 48024) (PRINTBELLS 48026 . 48152) (PROMPTCHAR 48154 . 50044) (RAISEP 50046 . 50307) (READFILE 50309
|
||||
. 52653) (READLINE 52655 . 58095) (REMPROPLIST 58097 . 58985) (RESETBUFS 58987 . 59437) (TAB 59439 .
|
||||
60035) (UNSAVED1 60037 . 61142) (WRITEFILE 61144 . 62886) (CLOSE-AND-MAYBE-DELETE 62888 . 63232) (
|
||||
UNSAFE.TO.MODIFY 63234 . 63999)) (66325 69269 (FILEDATE 66335 . 69267)) (69499 96601 (FILEMAP 69509 .
|
||||
69979) (\PARSE-FILE-HEADER 69981 . 73796) (GET-ENVIRONMENT-AND-FILEMAP 73798 . 76025) (
|
||||
LOOKUP-ENVIRONMENT-AND-FILEMAP 76027 . 78218) (GET-FILEMAP-FROM-FILECREATED 78220 . 79044) (
|
||||
\FILEMAP-HASHOVERFLOW 79046 . 83710) (FLUSHFILEMAPS 83712 . 84335) (LISPSOURCEFILEP 84337 . 85628) (
|
||||
LISPFILETYPE 85630 . 88879) (GETFILEMAP 88881 . 89300) (PUTFILEMAP 89302 . 91493) (UPDATEFILEMAP 91495
|
||||
. 96599)) (97267 100853 (LVLPRINT 97277 . 97450) (LVLPRIN1 97452 . 97634) (LVLPRIN2 97636 . 97868) (
|
||||
LVLPRIN 97870 . 98884) (LVLPRIN0 98886 . 100851)) (100887 105804 (FLUSHRIGHT 100897 . 101712) (
|
||||
PRINTPARA 101714 . 102812) (PRINTPARA1 102814 . 105802)) (105840 108125 (SUBLIS 105850 . 106458) (
|
||||
SUBPAIR 106460 . 107688) (DSUBLIS 107690 . 108123)) (108148 108748 (CONSTANTOK 108158 . 108746)) (
|
||||
110501 111206 (NLAMBDA.ARGS 110511 . 111204)))))
|
||||
(FILEMAP (NIL (12904 26329 (LOAD? 12914 . 14765) (FILESLOAD 14767 . 15056) (DOFILESLOAD 15058 . 22684)
|
||||
(FINDFILE-WITH-EXTENSIONS 22686 . 25885) (READ-FILECREATED 25887 . 26327)) (26446 31767 (DMPHASH
|
||||
26456 . 28050) (HASHOVERFLOW 28052 . 31765)) (32523 64631 (BKBUFS 32533 . 33652) (CHANGENAME 33654 .
|
||||
33915) (CHNGNM 33917 . 35765) (CLBUFS 35767 . 37040) (DEFINE 37042 . 37766) (FNS.PUTDEF 37768 . 41183)
|
||||
(EQMEMB 41185 . 41367) (EQUALN 41369 . 42198) (FNCHECK 42200 . 44207) (FNTYP1 44209 . 44306) (LCSKIP
|
||||
44308 . 45152) (MAPRINT 45154 . 46100) (MKLIST 46102 . 46252) (NAMEFIELD 46254 . 47779) (NLIST 47781
|
||||
. 48116) (PRINTBELLS 48118 . 48244) (PROMPTCHAR 48246 . 50136) (RAISEP 50138 . 50399) (READFILE 50401
|
||||
. 52745) (READLINE 52747 . 58187) (REMPROPLIST 58189 . 59077) (RESETBUFS 59079 . 59529) (TAB 59531 .
|
||||
60127) (UNSAVED1 60129 . 61234) (WRITEFILE 61236 . 62978) (CLOSE-AND-MAYBE-DELETE 62980 . 63324) (
|
||||
UNSAFE.TO.MODIFY 63326 . 64629)) (66986 69930 (FILEDATE 66996 . 69928)) (70160 97262 (FILEMAP 70170 .
|
||||
70640) (\PARSE-FILE-HEADER 70642 . 74457) (GET-ENVIRONMENT-AND-FILEMAP 74459 . 76686) (
|
||||
LOOKUP-ENVIRONMENT-AND-FILEMAP 76688 . 78879) (GET-FILEMAP-FROM-FILECREATED 78881 . 79705) (
|
||||
\FILEMAP-HASHOVERFLOW 79707 . 84371) (FLUSHFILEMAPS 84373 . 84996) (LISPSOURCEFILEP 84998 . 86289) (
|
||||
LISPFILETYPE 86291 . 89540) (GETFILEMAP 89542 . 89961) (PUTFILEMAP 89963 . 92154) (UPDATEFILEMAP 92156
|
||||
. 97260)) (97928 101514 (LVLPRINT 97938 . 98111) (LVLPRIN1 98113 . 98295) (LVLPRIN2 98297 . 98529) (
|
||||
LVLPRIN 98531 . 99545) (LVLPRIN0 99547 . 101512)) (101548 106465 (FLUSHRIGHT 101558 . 102373) (
|
||||
PRINTPARA 102375 . 103473) (PRINTPARA1 103475 . 106463)) (106501 108786 (SUBLIS 106511 . 107119) (
|
||||
SUBPAIR 107121 . 108349) (DSUBLIS 108351 . 108784)) (108809 109409 (CONSTANTOK 108819 . 109407)) (
|
||||
111162 111867 (NLAMBDA.ARGS 111172 . 111865)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user