Merge branch 'master' into PDFSTREAM
This commit is contained in:
rmkaplan
GitHub
BIN
library/000docs/000-COVER.TEDIT
Normal file
BIN
library/000docs/000-COVER.TEDIT
Normal file
Binary file not shown.
BIN
library/000docs/001-TITLEPAGE.TEDIT
Normal file
BIN
library/000docs/001-TITLEPAGE.TEDIT
Normal file
Binary file not shown.
BIN
library/000docs/002-TOC.TEDIT
Normal file
BIN
library/000docs/002-TOC.TEDIT
Normal file
Binary file not shown.
BIN
library/000docs/003-LOF.TEDIT
Normal file
BIN
library/000docs/003-LOF.TEDIT
Normal file
Binary file not shown.
BIN
library/000docs/004-PREFACE.TEDIT
Normal file
BIN
library/000docs/004-PREFACE.TEDIT
Normal file
Binary file not shown.
BIN
library/000docs/005-INTRO.TEDIT
Normal file
BIN
library/000docs/005-INTRO.TEDIT
Normal file
Binary file not shown.
91
library/000docs/006-INDEX.TEDIT
Normal file
91
library/000docs/006-INDEX.TEDIT
Normal file
File diff suppressed because one or more lines are too long
530
library/BROWSER
530
library/BROWSER
@@ -1,17 +1,17 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 7-Feb-2022 14:06:19" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;3 26344
|
||||
(FILECREATED "26-Apr-2023 12:41:36" {DSK}<home>larry>il>medley>library>BROWSER.;6 29801
|
||||
|
||||
:CHANGES-TO (VARS BROWSERCOMS)
|
||||
(FNS GET.BROWSE.PP.WINDOW NUMSPATHS)
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:PREVIOUS-DATE "25-Mar-94 13:43:20"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;1)
|
||||
:CHANGES-TO (FNS BROWSER.LEFTFN NUMSPATHS STBROWSER MSPATHS.DISPATCH BROWSER
|
||||
BROWSER.WHENFNSCHANGED BRPATHS1 GET.BROWSE.PP.WINDOW
|
||||
GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
|
||||
BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH)
|
||||
(VARS BROWSERCOMS BROWSER.BORDERS)
|
||||
|
||||
:PREVIOUS-DATE "15-Apr-2023 18:55:36" {DSK}<home>larry>il>medley>library>BROWSER.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT BROWSERCOMS)
|
||||
|
||||
@@ -20,27 +20,26 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
|
||||
GRAPHER)
|
||||
(CONSTANTS (CHANGEDSHADE 8840)))
|
||||
(FNS NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN GET.BROWSE.PP.WINDOW
|
||||
GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
|
||||
BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH STBROWSER)
|
||||
(FNS MSPATHS.DISPATCH NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN
|
||||
GET.BROWSE.PP.WINDOW GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN
|
||||
DESCRIBEREPAINTFN BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP
|
||||
REDRAWBROWSEGRAPH STBROWSER)
|
||||
(GLOBALRESOURCES BROWSEHASH)
|
||||
(DECLARE%: DONTCOPY (RECORDS BROWSEWIN PATHSARGS))
|
||||
[VARS (BROWSERBOXING)
|
||||
(BROWSERFORMAT)
|
||||
(BROWSERWINDOWS)
|
||||
(NODESELECTIONWINDOW)
|
||||
(PFWINDOW)
|
||||
(BROWSER.DESCRIBE.WINDOW)
|
||||
(BrowserPPWindowWidth 750)
|
||||
(BROWSERFONT '(GACHA 8]
|
||||
[P (MOVD? 'MSPATHS 'OLDMSPATHS)
|
||||
(MOVD? 'NILL 'MODERNWINDOW)
|
||||
(PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
|
||||
(OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
|
||||
(FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (SELECTQ (SYSTEMTYPE)
|
||||
(D (BROWSER T))
|
||||
NIL])
|
||||
[INITVARS (BROWSER T)
|
||||
(BROWSERBOXING)
|
||||
(BROWSERFORMAT)
|
||||
(BROWSERWINDOWS)
|
||||
(NODESELECTIONWINDOW)
|
||||
(PFWINDOW)
|
||||
(BROWSER.DESCRIBE.WINDOW)
|
||||
(BrowserPPWindowWidth 750)
|
||||
(BROWSERMAX 10)
|
||||
(BROWSERFONT '(GACHA 8]
|
||||
(P (MOVD? 'NILL 'MODERNWINDOW))
|
||||
(VARS BROWSER.BORDERS)
|
||||
(GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (BROWSER T])
|
||||
|
||||
(FILESLOAD MASTERSCOPE GRAPHER)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
@@ -58,64 +57,74 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(NUMSPATHS
|
||||
(MSPATHS.DISPATCH
|
||||
[LAMBDA (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING)
|
||||
(* ; "Edited 7-Feb-2022 13:57 by rmk")
|
||||
(* ; "Edited 11-Apr-88 11:08 by jrb:")
|
||||
(COND
|
||||
[(AND (WINDOWWORLD)
|
||||
(* ; "Edited 15-Apr-2023 11:33 by lmm")
|
||||
(IF (AND (GETD 'NUMSPATHS)
|
||||
(WINDOWWORLD)
|
||||
(EQ (OUTPUT)
|
||||
T))
|
||||
[OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
|
||||
APPLY LAMBDA (X)
|
||||
(GETPROP X 'AVOID]
|
||||
(RESETVARS ((MSPRINTFLG))
|
||||
(AND INVERTED (UPDATECHANGED))
|
||||
(STBROWSER
|
||||
[GLOBALRESOURCE
|
||||
BROWSEHASH
|
||||
(PROG [X NAMED TEM (UNDONE (MSLISTSET FROM T))
|
||||
ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
|
||||
(CALLRELATION (PARSERELATION 'CALL]
|
||||
(DECLARE (SPECVARS SEEN UNDONE GRAPHNODE.LIST))
|
||||
(CLRHASH SEEN)
|
||||
(for X in UNDONE do (PUTHASH X (COND
|
||||
((AND NOTRACE (MSMEMBSET X NOTRACE))
|
||||
-1)
|
||||
(T 0))
|
||||
SEEN)
|
||||
(OR INVERTED (UPDATEFN X NIL 0)))
|
||||
[do (COND
|
||||
(NAMED (PUTHASH (CAR NAMED)
|
||||
0 SEEN)
|
||||
[push ROOTS (fetch (GRAPHNODE NODEID)
|
||||
of (BRPATHS1 (CAR NAMED]
|
||||
(SETQ NAMED (CDR NAMED)))
|
||||
(UNDONE [COND
|
||||
([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
|
||||
SEEN)))
|
||||
(EQ TEM 0)
|
||||
(AND (LISTP TEM)
|
||||
(NULL (CAR TEM]
|
||||
(PUTHASH (CAR UNDONE)
|
||||
(LIST NIL)
|
||||
SEEN)
|
||||
(SETQ NAMED (LIST (CAR UNDONE]
|
||||
(SETQ UNDONE (CDR UNDONE)))
|
||||
(T (RETURN]
|
||||
(RETURN (LAYOUTFOREST GRAPHNODE.LIST ROOTS BROWSERFORMAT BROWSERBOXING]
|
||||
(PROG1 (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE)
|
||||
(* ;
|
||||
"this LIST is actually an 'instance' of PATHSARGS")
|
||||
]
|
||||
(T (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
|
||||
THEN (NUMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING)
|
||||
ELSE (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
|
||||
|
||||
(NUMSPATHS
|
||||
[LAMBDA (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
|
||||
(DECLARE (SPECVARS INVERTED GRAPHNODE.LIST)) (* ; "Edited 26-Apr-2023 09:12 by lmm")
|
||||
(* ; "Edited 15-Apr-2023 18:43 by lmm")
|
||||
(* ; "Edited 7-Feb-2022 13:57 by rmk")
|
||||
(* ; "Edited 11-Apr-88 11:08 by jrb:")
|
||||
[OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
|
||||
APPLY LAMBDA (X)
|
||||
(GETPROP X 'AVOID]
|
||||
(AND INVERTED (UPDATECHANGED))
|
||||
(OR DEPTH (SETQ DEPTH BROWSERMAX))
|
||||
(WITH-RESOURCES BROWSEHASH (PROG [NAMED TEM (UNDONE (MSLISTSET FROM T))
|
||||
ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
|
||||
(CALLRELATION (PARSERELATION 'CALL]
|
||||
(DECLARE (SPECVARS SEEN GRAPHNODE.LIST CALLRELATION))
|
||||
(CLRHASH SEEN)
|
||||
(for X in UNDONE do (PUTHASH X (COND
|
||||
((AND NOTRACE (MSMEMBSET
|
||||
X NOTRACE))
|
||||
-1)
|
||||
(T 0))
|
||||
SEEN)
|
||||
(OR INVERTED (UPDATEFN X NIL 0)))
|
||||
[do (COND
|
||||
(NAMED (PUTHASH (CAR NAMED)
|
||||
0 SEEN)
|
||||
(PUSH ROOTS (fetch (GRAPHNODE NODEID)
|
||||
of (BRPATHS1 (CAR NAMED)
|
||||
DEPTH)))
|
||||
(SETQ NAMED (CDR NAMED)))
|
||||
(UNDONE [COND
|
||||
([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
|
||||
SEEN)))
|
||||
(EQ TEM 0)
|
||||
(AND (LISTP TEM)
|
||||
(NULL (CAR TEM]
|
||||
(PUTHASH (CAR UNDONE)
|
||||
(LIST NIL)
|
||||
SEEN)
|
||||
(SETQ NAMED (LIST (CAR UNDONE]
|
||||
(SETQ UNDONE (CDR UNDONE)))
|
||||
(T (RETURN]
|
||||
(RETURN (STBROWSER (LAYOUTGRAPH GRAPHNODE.LIST ROOTS
|
||||
(APPEND BROWSERFORMAT BROWSERBOXING))
|
||||
(LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE
|
||||
MARKING DEPTH])
|
||||
|
||||
(BROWSER
|
||||
[LAMBDA (DISPLAYFLG) (* rmk%: "16-Dec-83 15:39")
|
||||
(COND
|
||||
(DISPLAYFLG (SETQ BROWSERFONT (FONTCREATE BROWSERFONT))
|
||||
(MOVD 'NUMSPATHS 'MSPATHS))
|
||||
(T (MOVD 'OLDMSPATHS 'MSPATHS])
|
||||
[LAMBDA (DISPLAYFLG) (* ; "Edited 15-Apr-2023 14:55 by lmm")
|
||||
(* rmk%: "16-Dec-83 15:39")
|
||||
(MOVD? 'MSPATHS 'OLDMSPATHS)
|
||||
(MOVD 'MSPATHS.DISPATCH 'MSPATHS)
|
||||
(SETQ BROWSER DISPLAYFLG)
|
||||
(OR (FONTP BROWSERFONT)
|
||||
(SETQ BROWSERFONT (FONTCREATE BROWSERFONT)))
|
||||
(PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
|
||||
(OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
|
||||
(FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC])
|
||||
|
||||
(BROWSER.WHENFNSCHANGED
|
||||
[LAMBDA (FNNAME TYPE REASON) (* DECLARATIONS%: (RECORDS BROWSEWIN))
|
||||
@@ -134,78 +143,122 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
FNNAME))
|
||||
(BROWSERDESCRIBE FNNAME BROWSER.DESCRIBE.WINDOW)))
|
||||
(for X in BROWSERWINDOWS do (COND
|
||||
((find GRAPHNODE
|
||||
in (fetch (GRAPH GRAPHNODES)
|
||||
of (fetch (BROWSEWIN GRAPH)
|
||||
of X))
|
||||
suchthat (EQ (fetch (GRAPHNODE NODELABEL)
|
||||
of GRAPHNODE)
|
||||
FNNAME))
|
||||
(COND
|
||||
((fetch (BROWSEWIN GRAPH) of X)
|
||||
(DSPFILL NIL CHANGEDSHADE 'PAINT
|
||||
(fetch (BROWSEWIN WINDOW) of
|
||||
X))
|
||||
(WINDOWPROP (fetch (BROWSEWIN WINDOW)
|
||||
of X)
|
||||
'BUTTONEVENTFN
|
||||
(FUNCTION REDRAWBROWSEGRAPH))
|
||||
(replace (BROWSEWIN GRAPH) of X
|
||||
with NIL])
|
||||
((find GRAPHNODE in (fetch (GRAPH GRAPHNODES)
|
||||
of (fetch (BROWSEWIN GRAPH) of X))
|
||||
suchthat (EQ (fetch (GRAPHNODE NODELABEL) of GRAPHNODE)
|
||||
FNNAME))
|
||||
(COND
|
||||
((fetch (BROWSEWIN GRAPH) of X)
|
||||
(DSPFILL NIL CHANGEDSHADE 'PAINT (fetch (BROWSEWIN WINDOW)
|
||||
of X))
|
||||
(WINDOWPROP (fetch (BROWSEWIN WINDOW) of X)
|
||||
'BUTTONEVENTFN
|
||||
(FUNCTION REDRAWBROWSEGRAPH))
|
||||
(replace (BROWSEWIN GRAPH) of X with NIL])
|
||||
|
||||
(BRPATHS1
|
||||
[LAMBDA (FROM) (* ; "Edited 11-Apr-88 11:27 by jrb:")
|
||||
(DECLARE (GLOBALVARS BROWSERFONT))
|
||||
(PROG (TEM)
|
||||
[LAMBDA (FROM DEPTH) (* ; "Edited 25-Apr-2023 10:59 by lmm")
|
||||
(* ; "Edited 11-Apr-88 11:27 by jrb:")
|
||||
(DECLARE (SPECVARS INVERTED)
|
||||
(GLOBALVARS BROWSERFONT MISSING.GRAPH.NODEBORDER))
|
||||
(PROG (TEM ENTRY TOFNS)
|
||||
(MSPATHS2 FROM)
|
||||
(COND
|
||||
((EQ (SETQ TEM (GETHASH FROM SEEN))
|
||||
-1) (* ;
|
||||
"on NOPATHS list - create a node for it with no subs")
|
||||
"on NOPATHS list - create a node for it with no subs")
|
||||
(SETQ TEM (create GRAPHNODE
|
||||
NODEID _ FROM
|
||||
NODELABEL _ FROM
|
||||
NODEFONT _ BROWSERFONT
|
||||
TONODES _ NIL))
|
||||
(push GRAPHNODE.LIST TEM)
|
||||
(PUAH GRAPHNODE.LIST TEM)
|
||||
(PUTHASH FROM TEM SEEN)
|
||||
(RETURN TEM))
|
||||
((NEQ TEM 0) (* ; "already expanded into a list")
|
||||
(RETURN TEM))
|
||||
(T (RETURN (PROG ((ENTRY (create GRAPHNODE
|
||||
NODEID _ FROM
|
||||
NODELABEL _ FROM
|
||||
NODEFONT _ BROWSERFONT)))
|
||||
(push GRAPHNODE.LIST ENTRY)
|
||||
(PUTHASH FROM ENTRY SEEN)
|
||||
(replace (GRAPHNODE TONODES) of ENTRY
|
||||
with (for X
|
||||
in (for Y
|
||||
in (COND
|
||||
((NOT INVERTED)
|
||||
(GETRELATION FROM CALLRELATION))
|
||||
(T (GETRELATION FROM CALLRELATION T)
|
||||
)) when (MSPATHS2 Y)
|
||||
collect Y) when (SETQ X (BRPATHS1
|
||||
X))
|
||||
collect (fetch (GRAPHNODE NODEID) of X)))
|
||||
(RETURN ENTRY])
|
||||
(T [SETQ TOFNS (COND
|
||||
((NOT INVERTED)
|
||||
(GETRELATION FROM CALLRELATION))
|
||||
(T (GETRELATION FROM CALLRELATION T]
|
||||
(SETQ ENTRY (create GRAPHNODE
|
||||
NODEID _ FROM
|
||||
NODELABEL _ FROM
|
||||
NODEFONT _ BROWSERFONT))
|
||||
(PUSH GRAPHNODE.LIST ENTRY)
|
||||
(PUTHASH FROM ENTRY SEEN)
|
||||
(IF (AND TOFNS (<= DEPTH 0))
|
||||
THEN (REPLACE (GRAPHNODE NODEBORDER) OF ENTRY WITH (CDDR (ASSOC 'ENDOFLINE
|
||||
BROWSER.BORDERS))
|
||||
)
|
||||
(RETURN ENTRY))
|
||||
(replace (GRAPHNODE TONODES) of ENTRY with (for X
|
||||
in (for Y in TOFNS
|
||||
when (MSPATHS2 Y) collect Y)
|
||||
when (SETQ X (BRPATHS1 X
|
||||
(- DEPTH 1)))
|
||||
collect (fetch (GRAPHNODE NODEID)
|
||||
of X)))
|
||||
(RETURN ENTRY])
|
||||
|
||||
(BROWSER.LEFTFN
|
||||
[LAMBDA (NODE NWINDOW) (* ; "Edited 31-Mar-87 11:16 by jop")
|
||||
[LAMBDA (NODE NWINDOW) (* ; "Edited 26-Apr-2023 12:41 by lmm")
|
||||
(* ; "Edited 31-Mar-87 11:16 by jop")
|
||||
(* ;
|
||||
"function that is applied upon selection of a node.")
|
||||
(COND
|
||||
((NULL NODE))
|
||||
((EQ (fetch NODELABEL of NODE)
|
||||
(WINDOWPROP (GET.BROWSE.PP.WINDOW)
|
||||
'FNBROWSED))
|
||||
(BROWSERDESCRIBE (fetch NODELABEL of NODE)
|
||||
(GET.BROWSE.DESCRIBE.WINDOW)))
|
||||
(T (* ;
|
||||
"if first time touched, pretty print it.")
|
||||
(BROWSEPP (fetch NODELABEL of NODE)
|
||||
(GET.BROWSE.PP.WINDOW])
|
||||
(PROG (FN SELECTION)
|
||||
(IF (NULL NODE)
|
||||
THEN (RETURN)
|
||||
(MOVEW NWINDOW) (* ;
|
||||
" really want to just drag the content around")
|
||||
(RETURN))
|
||||
(IF (NULL (SETQ FN (FETCH NODELABEL OF NODE)))
|
||||
THEN (RETURN))
|
||||
[SETQ SELECTION (MENU (CREATE MENU
|
||||
ITEMS _ '(CallsFrom CallsTo Edit Show InspectCode]
|
||||
|
||||
(* ;; "Mot implemented: Ignore Avoid")
|
||||
|
||||
(DESTRUCTURING-BIND (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
|
||||
(FOR BW IN BROWSERWINDOWS WHEN (EQ (FETCH (BROWSEWIN WINDOW) OF BW)
|
||||
NWINDOW) DO (RETURN (FETCH (BROWSEWIN ARGS)
|
||||
OF BW))
|
||||
FINALLY (PROMPTPRINT "No browser window found for" FN)
|
||||
(RETURN))
|
||||
|
||||
(* ;; "Now we have the arguments to MSPATHS .. insert this node?")
|
||||
|
||||
(SELECTQ SELECTION
|
||||
((NIL)
|
||||
(RETURN))
|
||||
((CallsFrom CallsTo)
|
||||
(* ;; "new graph, FN at the root")
|
||||
|
||||
(NUMSPATHS (CREATE SENTENCE
|
||||
SUBJECT _ '(NIL NIL . FNS)
|
||||
MSPRED _ 'QUOTE
|
||||
OTHERSTUFF _ (LIST FN))
|
||||
(IF INVERTED
|
||||
THEN TO
|
||||
ELSE FROM)
|
||||
INVERTED AVOIDING NIL NOTRACE MARKING DEPTH))
|
||||
NIL
|
||||
(Ignore (* ; "local ignore"))
|
||||
(Avoid (* ; " global ignore"))
|
||||
(Edit (ED FN (IF (HASDEF FN 'FNS)
|
||||
THEN 'FNS
|
||||
ELSEIF (HASDEF FN 'FUNCTIONS)
|
||||
THEN 'FUNCTIONS
|
||||
ELSE (PROMPTPRINT FN "no definition")
|
||||
NIL)))
|
||||
(Show (CL:UNLESS (EQ FN (WINDOWPROP (GET.BROWSE.PP.WINDOW)
|
||||
'FNBROWSED))
|
||||
(BROWSEPP FN (GET.BROWSE.PP.WINDOW))))
|
||||
(Describe (BROWSERDESCRIBE FN (GET.BROWSE.DESCRIBE.WINDOW)))
|
||||
(InspectCode (IF (NOT (CCODEP FN))
|
||||
THEN (PROMPTPRINT FN "not compiled")
|
||||
ELSE (INSPECTCODE FN)))
|
||||
(HELP])
|
||||
|
||||
(GET.BROWSE.PP.WINDOW
|
||||
[LAMBDA NIL (* ; "Edited 7-Feb-2022 14:01 by rmk")
|
||||
@@ -253,9 +306,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
BOTTOM])
|
||||
|
||||
(PPREPAINTFN
|
||||
[LAMBDA (WINDOW REGION RESHAPE) (* ; "Edited 11-Jun-90 14:11 by mitani")
|
||||
[LAMBDA (WINDOW REGION RESHAPE) (* ; "Edited 11-Jun-90 14:11 by mitani")
|
||||
|
||||
(* ;; "repaints the browser pp window WINDOW. Returns the width of the image so that caller can set the EXTENT.")
|
||||
(* ;; "repaints the browser pp window WINDOW. Returns the width of the image so that caller can set the EXTENT.")
|
||||
|
||||
(PROG ((FN (WINDOWPROP WINDOW 'FNBROWSED))
|
||||
(EXTENT (WINDOWPROP WINDOW 'EXTENT))
|
||||
@@ -265,25 +318,23 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
(MOVETOUPPERLEFT WINDOW EXTENT)
|
||||
(printout WINDOW .FONT DEFAULTFONT)
|
||||
(COND
|
||||
((for FPTYPE in MSFNTYPES
|
||||
when (SETQ DEF (GETDEF FN (ffetch (MSANALYZABLE FILEPKGNAME)
|
||||
of FPTYPE)
|
||||
NIL
|
||||
'NOERROR))
|
||||
do (SETQ FNTYPE (ffetch (MSANALYZABLE FILEPKGNAME)
|
||||
of FPTYPE))
|
||||
(RETURN DEF) finally NIL)
|
||||
(* ;
|
||||
"set up linelength characteristics.")
|
||||
((for FPTYPE in MSFNTYPES when (SETQ DEF (GETDEF FN (ffetch (MSANALYZABLE
|
||||
FILEPKGNAME)
|
||||
of FPTYPE)
|
||||
NIL
|
||||
'NOERROR))
|
||||
do (SETQ FNTYPE (ffetch (MSANALYZABLE FILEPKGNAME) of FPTYPE))
|
||||
(RETURN DEF) finally NIL) (* ;
|
||||
"set up linelength characteristics.")
|
||||
(RESETLST
|
||||
(RESETSAVE (OUTPUT WINDOW))
|
||||
(RESETSAVE (SETREADTABLE T))
|
||||
(RESETSAVE **COMMENT**FLG)
|
||||
(if (EQ FNTYPE 'FNS)
|
||||
then (printout WINDOW "(" .FONT LAMBDAFONT |.P2| FN .FONT
|
||||
DEFAULTFONT T))
|
||||
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION
|
||||
NIL WINDOW))
|
||||
then (printout WINDOW "(" .FONT LAMBDAFONT .P2 FN .FONT
|
||||
DEFAULTFONT T))
|
||||
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION NIL
|
||||
WINDOW))
|
||||
WINDOW)
|
||||
(PRINTDEF DEF (AND (EQ FNTYPE 'FNS)
|
||||
2)
|
||||
@@ -291,19 +342,19 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
(if (EQ FNTYPE 'FNS)
|
||||
then (PRIN1 ")" WINDOW)))
|
||||
(fetch (REGION WIDTH) of (DSPCLIPPINGREGION NIL WINDOW)))
|
||||
(T (* ;
|
||||
"set right margin out so wouldn't clip.")
|
||||
(T (* ;
|
||||
"set right margin out so wouldn't clip.")
|
||||
(DSPRIGHTMARGIN 5000 WINDOW)
|
||||
(APPLY* (FUNCTION PF*)
|
||||
FN NIL (GETSTREAM WINDOW))
|
||||
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION
|
||||
NIL WINDOW))
|
||||
(DSPRIGHTMARGIN (fetch (REGION RIGHT) of (DSPCLIPPINGREGION NIL WINDOW
|
||||
))
|
||||
WINDOW)
|
||||
BrowserPPWindowWidth)))
|
||||
(T 0])
|
||||
|
||||
(PPRESHAPEFN
|
||||
[LAMBDA (WINDOW) (* lmm "20-Jul-84 15:48")
|
||||
[LAMBDA (WINDOW) (* lmm "20-Jul-84 15:48")
|
||||
(BROWSEPP (WINDOWPROP WINDOW 'FNBROWSED)
|
||||
WINDOW])
|
||||
|
||||
@@ -314,17 +365,18 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
(PROG [(FN (WINDOWPROP WIN 'FNBROWSED))
|
||||
(EXTENT (WINDOWPROP WIN 'EXTENT]
|
||||
(COND
|
||||
(FN (RESETLST (RESETSAVE MSPRINTFLG NIL)
|
||||
(RESETSAVE (OUTPUT WIN))
|
||||
(DSPSCROLL 'OFF WIN)
|
||||
(COND
|
||||
(EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
|
||||
(MSDESCRIBE FN])
|
||||
(FN (RESETLST
|
||||
(RESETSAVE MSPRINTFLG NIL)
|
||||
(RESETSAVE (OUTPUT WIN))
|
||||
(DSPSCROLL 'OFF WIN)
|
||||
(COND
|
||||
(EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
|
||||
(MSDESCRIBE FN))])
|
||||
|
||||
(BROWSERDESCRIBE
|
||||
[LAMBDA (FN WIN) (* ; "Edited 31-Mar-87 11:15 by jop")
|
||||
|
||||
(* ;; "puts the masterscope DESCRIBE information in the window DS. Keeps tracks of which fn so if it changes the window can be updated.")
|
||||
|
||||
(* ;; "puts the masterscope DESCRIBE information in the window DS. Keeps tracks of which fn so if it changes the window can be updated.")
|
||||
|
||||
(WINDOWPROP WIN 'FNBROWSED FN)
|
||||
(CLEARW WIN)
|
||||
@@ -337,9 +389,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
(DSPYPOSITION NIL WIN])
|
||||
|
||||
(BROWSER.MIDDLEFN
|
||||
[LAMBDA (NODE NWINDOW) (* ; "Edited 25-Mar-94 13:25 by jds")
|
||||
[LAMBDA (NODE NWINDOW) (* ; "Edited 25-Mar-94 13:25 by jds")
|
||||
(* ;
|
||||
"called when yellow selection from browser. Call display editor on the function.")
|
||||
"called when yellow selection from browser. Call display editor on the function.")
|
||||
(COND
|
||||
((NULL NODE))
|
||||
[(THIS.PROCESS) (* ; "processes are running.")
|
||||
@@ -352,7 +404,7 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
" " "into the Dedit " "window then selecting 'Edit'."))
|
||||
(T (ADD.PROCESS `(ED ',(fetch NODELABEL of NODE])
|
||||
((SEDIT SEDIT:SEDIT) (* ;
|
||||
"SEdit doesn't have to worry about this stuff")
|
||||
"SEdit doesn't have to worry about this stuff")
|
||||
(ED (fetch NODELABEL of NODE)
|
||||
':DONTWAIT))
|
||||
(ED (fetch NODELABEL of NODE]
|
||||
@@ -360,8 +412,8 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
|
||||
(DEDITPROCESSRUNNINGP
|
||||
[LAMBDA NIL (* ; "Edited 31-Mar-87 11:27 by jop")
|
||||
|
||||
(* ;; "is there a dedit process running?")
|
||||
|
||||
(* ;; "is there a dedit process running?")
|
||||
|
||||
(AND (EQ (EDITMODE)
|
||||
'DEDIT)
|
||||
@@ -369,73 +421,69 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
|
||||
(REDRAWBROWSEGRAPH
|
||||
[LAMBDA (WINDOW) (* DECLARATIONS%: (RECORDS BROWSEWIN))
|
||||
(* ; "Edited 15-Apr-2023 16:12 by lmm")
|
||||
(* ; "Edited 31-Mar-87 11:24 by jop")
|
||||
(PROG [(WN (find X in BROWSERWINDOWS suchthat (EQ (fetch (BROWSEWIN WINDOW)
|
||||
of X)
|
||||
WINDOW]
|
||||
(AND WN (APPLY 'NUMSPATHS (fetch (BROWSEWIN ARGS) of WN)))
|
||||
(* ; "(OR WN (SHOULDNT))")
|
||||
(PROG [(WN (find X in BROWSERWINDOWS suchthat (EQ (fetch (BROWSEWIN WINDOW) of X)
|
||||
WINDOW]
|
||||
(AND WN (APPLY (FUNCTION NUMSPATHS)
|
||||
(fetch (BROWSEWIN ARGS) of WN))) (* ; "(OR WN (SHOULDNT))")
|
||||
(WINDOWPROP WINDOW 'BUTTONEVENTFN (FUNCTION APPLYTOSELECTEDNODE))
|
||||
(APPLYTOSELECTEDNODE WINDOW])
|
||||
|
||||
(STBROWSER
|
||||
[LAMBDA (GRAPH ARGS) (* DECLARATIONS%: (RECORDS BROWSEWIN))
|
||||
(* ; "Edited 25-Apr-2023 21:05 by lmm")
|
||||
(* ; "Edited 31-Mar-87 11:18 by jop")
|
||||
|
||||
(* ;; "puts a browser graph for the args FROMFN in a window. If a similar graph is already a window, that window is reused; otherwise a new window is created.")
|
||||
|
||||
(WINDOWADDPROP (bind TMP for W in BROWSERWINDOWS
|
||||
when (EQUAL (fetch (PATHSARGS DISCRIMINANT) of ARGS)
|
||||
(fetch (PATHSARGS DISCRIMINANT) of (fetch
|
||||
(BROWSEWIN ARGS)
|
||||
of W)))
|
||||
(WINDOWADDPROP (bind TMP for W in BROWSERWINDOWS when (EQUAL (fetch (PATHSARGS DISCRIMINANT)
|
||||
of ARGS)
|
||||
(fetch (PATHSARGS DISCRIMINANT)
|
||||
of (fetch (BROWSEWIN ARGS)
|
||||
of W)))
|
||||
do (replace (BROWSEWIN ARGS) of W with ARGS)
|
||||
(replace (BROWSEWIN GRAPH) of W with GRAPH)
|
||||
(SHOWGRAPH GRAPH (SETQ W (fetch (BROWSEWIN WINDOW) of W))
|
||||
(FUNCTION BROWSER.LEFTFN)
|
||||
(FUNCTION BROWSER.MIDDLEFN))
|
||||
(RETURN W)
|
||||
(replace (BROWSEWIN GRAPH) of W with GRAPH)
|
||||
(SHOWGRAPH GRAPH (SETQ W (fetch (BROWSEWIN WINDOW) of W))
|
||||
(FUNCTION BROWSER.LEFTFN)
|
||||
(FUNCTION BROWSER.MIDDLEFN))
|
||||
(RETURN W)
|
||||
finally (SETQ W (SHOWGRAPH GRAPH (CONCAT "PATHS"
|
||||
(COND
|
||||
((SETQ TMP (fetch
|
||||
(PATHSARGS FROM)
|
||||
of ARGS))
|
||||
(COND
|
||||
((SETQ TMP (fetch (PATHSARGS FROM)
|
||||
of ARGS))
|
||||
(CONCAT (COND
|
||||
((CADR (CADR TMP))
|
||||
" FROM ")
|
||||
(T " TO "))
|
||||
(CADDDR TMP)))
|
||||
(T ""))
|
||||
(COND
|
||||
((SETQ TMP (fetch (PATHSARGS TO)
|
||||
of ARGS))
|
||||
(* ;
|
||||
"CADDDR here gets the thing that looks like it might be a function name.")
|
||||
(CONCAT (COND
|
||||
((CADR (CADR TMP))
|
||||
" FROM ")
|
||||
(T " TO "))
|
||||
(CADDDR TMP)))
|
||||
(T ""))
|
||||
(COND
|
||||
((SETQ TMP (fetch
|
||||
(PATHSARGS TO)
|
||||
of ARGS))
|
||||
(* ;
|
||||
"CADDDR here gets the thing that looks like it might be a function name.")
|
||||
(CONCAT (COND
|
||||
((CADR (CADR TMP))
|
||||
" FROM ")
|
||||
(T " TO "))
|
||||
(CADDDR TMP)))
|
||||
(T "")))
|
||||
(FUNCTION BROWSER.LEFTFN)
|
||||
(FUNCTION BROWSER.MIDDLEFN)))
|
||||
"CADDDR here gets the thing that looks like it might be a function name.")
|
||||
(CONCAT (COND
|
||||
((CADR (CADR TMP))
|
||||
" FROM ")
|
||||
(T " TO "))
|
||||
(CADDDR TMP)))
|
||||
(T "")))
|
||||
(FUNCTION BROWSER.LEFTFN)
|
||||
(FUNCTION BROWSER.MIDDLEFN)))
|
||||
(push BROWSERWINDOWS
|
||||
(create BROWSEWIN
|
||||
ARGS _ ARGS
|
||||
GRAPH _ GRAPH
|
||||
WINDOW _ W))
|
||||
(create BROWSEWIN
|
||||
ARGS _ ARGS
|
||||
GRAPH _ GRAPH
|
||||
WINDOW _ W))
|
||||
(RETURN W))
|
||||
'CLOSEFN
|
||||
(FUNCTION (LAMBDA (WINDOW) (* ;
|
||||
"The closing function for browser windows. removes it from BROWSERWINDOWS")
|
||||
"The closing function for browser windows. removes it from BROWSERWINDOWS")
|
||||
(SETQ BROWSERWINDOWS (DREMOVE (for X in BROWSERWINDOWS
|
||||
when (EQ (fetch (BROWSEWIN WINDOW)
|
||||
of X)
|
||||
WINDOW)
|
||||
do (RETURN X))
|
||||
of X)
|
||||
WINDOW) do (RETURN X))
|
||||
BROWSERWINDOWS])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
@@ -457,41 +505,49 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
|
||||
)
|
||||
)
|
||||
|
||||
(RPAQQ BROWSERBOXING NIL)
|
||||
(RPAQ? BROWSER T)
|
||||
|
||||
(RPAQQ BROWSERFORMAT NIL)
|
||||
(RPAQ? BROWSERBOXING )
|
||||
|
||||
(RPAQQ BROWSERWINDOWS NIL)
|
||||
(RPAQ? BROWSERFORMAT )
|
||||
|
||||
(RPAQQ NODESELECTIONWINDOW NIL)
|
||||
(RPAQ? BROWSERWINDOWS )
|
||||
|
||||
(RPAQQ PFWINDOW NIL)
|
||||
(RPAQ? NODESELECTIONWINDOW )
|
||||
|
||||
(RPAQQ BROWSER.DESCRIBE.WINDOW NIL)
|
||||
(RPAQ? PFWINDOW )
|
||||
|
||||
(RPAQQ BrowserPPWindowWidth 750)
|
||||
(RPAQ? BROWSER.DESCRIBE.WINDOW )
|
||||
|
||||
(RPAQQ BROWSERFONT (GACHA 8))
|
||||
(RPAQ? BrowserPPWindowWidth 750)
|
||||
|
||||
(MOVD? 'MSPATHS 'OLDMSPATHS)
|
||||
(RPAQ? BROWSERMAX 10)
|
||||
|
||||
(RPAQ? BROWSERFONT '(GACHA 8))
|
||||
|
||||
(MOVD? 'NILL 'MODERNWINDOW)
|
||||
|
||||
[PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
|
||||
(OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
|
||||
(FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
|
||||
(RPAQQ BROWSER.BORDERS
|
||||
((NORMAL "Normal" 2 -1)
|
||||
(GHOST "Shown elsewhere" 2 8840)
|
||||
(RECURSIVEGHOST "End of recursive chain" 2 0 -1)
|
||||
(MERGED "Includes other branches" 4 42405)
|
||||
(SELFRECURSIVE "Includes self-recursive calls" 2 61375)
|
||||
(RECURSIVE "Head of recursive chain" 4 28086)
|
||||
(ENDOFLINE "exceeded depth limit" 6 64510)))
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(SELECTQ (SYSTEMTYPE)
|
||||
(D (BROWSER T))
|
||||
NIL)
|
||||
(BROWSER T)
|
||||
)
|
||||
(PUTPROPS BROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1987 1988 1990 1993 1994))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2054 25148 (NUMSPATHS 2064 . 5246) (BROWSER 5248 . 5511) (BROWSER.WHENFNSCHANGED 5513
|
||||
. 7812) (BRPATHS1 7814 . 10080) (BROWSER.LEFTFN 10082 . 10940) (GET.BROWSE.PP.WINDOW 10942 . 11767) (
|
||||
GET.BROWSE.DESCRIBE.WINDOW 11769 . 12517) (BROWSEPP 12519 . 13393) (PPREPAINTFN 13395 . 16529) (
|
||||
PPRESHAPEFN 16531 . 16711) (DESCRIBEREPAINTFN 16713 . 17409) (BROWSERDESCRIBE 17411 . 18169) (
|
||||
BROWSER.MIDDLEFN 18171 . 19478) (DEDITPROCESSRUNNINGP 19480 . 19751) (REDRAWBROWSEGRAPH 19753 . 20516)
|
||||
(STBROWSER 20518 . 25146)))))
|
||||
(FILEMAP (NIL (2085 28437 (MSPATHS.DISPATCH 2095 . 2569) (NUMSPATHS 2571 . 6158) (BROWSER 6160 . 6731)
|
||||
(BROWSER.WHENFNSCHANGED 6733 . 8518) (BRPATHS1 8520 . 11171) (BROWSER.LEFTFN 11173 . 14599) (
|
||||
GET.BROWSE.PP.WINDOW 14601 . 15426) (GET.BROWSE.DESCRIBE.WINDOW 15428 . 16176) (BROWSEPP 16178 . 17052
|
||||
) (PPREPAINTFN 17054 . 20180) (PPRESHAPEFN 20182 . 20358) (DESCRIBEREPAINTFN 20360 . 21064) (
|
||||
BROWSERDESCRIBE 21066 . 21808) (BROWSER.MIDDLEFN 21810 . 23125) (DEDITPROCESSRUNNINGP 23127 . 23382) (
|
||||
REDRAWBROWSEGRAPH 23384 . 24148) (STBROWSER 24150 . 28435)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
BIN
library/BROWSER.TEDIT
Normal file
BIN
library/BROWSER.TEDIT
Normal file
Binary file not shown.
BIN
library/CENTRONICS.TEDIT
Normal file
BIN
library/CENTRONICS.TEDIT
Normal file
Binary file not shown.
BIN
library/CHARCODETABLES.TEDIT
Normal file
BIN
library/CHARCODETABLES.TEDIT
Normal file
Binary file not shown.
107
library/CHAT.TEDIT
Normal file
107
library/CHAT.TEDIT
Normal file
File diff suppressed because one or more lines are too long
BIN
library/CLIPBOARD.TEDIT
Normal file
BIN
library/CLIPBOARD.TEDIT
Normal file
Binary file not shown.
BIN
library/CMLFLOATARRAY.TEDIT
Normal file
BIN
library/CMLFLOATARRAY.TEDIT
Normal file
Binary file not shown.
BIN
library/COLOR1.TEDIT
Normal file
BIN
library/COLOR1.TEDIT
Normal file
Binary file not shown.
236
library/COLOR2.TEDIT
Normal file
236
library/COLOR2.TEDIT
Normal file
File diff suppressed because one or more lines are too long
BIN
library/COPYFILES.TEDIT
Normal file
BIN
library/COPYFILES.TEDIT
Normal file
Binary file not shown.
BIN
library/DATABASEFNS.TEDIT
Normal file
BIN
library/DATABASEFNS.TEDIT
Normal file
Binary file not shown.
BIN
library/DEDIT.TEDIT
Normal file
BIN
library/DEDIT.TEDIT
Normal file
Binary file not shown.
BIN
library/EDITBITMAP.TEDIT
Normal file
BIN
library/EDITBITMAP.TEDIT
Normal file
Binary file not shown.
BIN
library/ETHERRECORDS.TEDIT
Normal file
BIN
library/ETHERRECORDS.TEDIT
Normal file
Binary file not shown.
@@ -1,13 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(FILECREATED " 4-Aug-2022 09:32:02" |{DSK}<home>larry>medley>library>FILEBROWSER.;2| 266567
|
||||
(FILECREATED "18-Jul-2023 22:19:30" |{WMEDLEY}<library>FILEBROWSER.;24| 266436
|
||||
|
||||
:CHANGES-TO (VARS FILEBROWSERCOMS)
|
||||
:EDIT-BY |rmk|
|
||||
|
||||
:PREVIOUS-DATE " 2-Dec-2021 19:33:12" |{DSK}<home>larry>medley>library>FILEBROWSER.;1|)
|
||||
:CHANGES-TO (FNS FB.COPYFN)
|
||||
|
||||
:PREVIOUS-DATE " 4-Aug-2022 09:32:02" |{WMEDLEY}<library>FILEBROWSER.;23|)
|
||||
|
||||
; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
|
||||
|
||||
(PRETTYCOMPRINT FILEBROWSERCOMS)
|
||||
|
||||
@@ -463,8 +463,7 @@ Your deletions are thus ignored.")))
|
||||
(* \; "Entries")
|
||||
|
||||
|
||||
(DEFCOMMAND "fb" (&REST PAT&PROPS)
|
||||
(APPLY 'FB PAT&PROPS))
|
||||
(DEFCOMMAND "fb" (&REST PAT&PROPS) (APPLY 'FB PAT&PROPS))
|
||||
(DEFINEQ
|
||||
|
||||
(FB
|
||||
@@ -943,8 +942,9 @@ Your deletions are thus ignored.")))
|
||||
(AND OLDFONT (DSPFONT OLDFONT STREAM)))))
|
||||
|
||||
(FB.COPYFN
|
||||
(LAMBDA (TBROWSER ITEM) (* |bvm:| "13-Oct-85 17:44")
|
||||
(BKSYSBUF (|fetch| (FBFILEDATA FILENAME) |of| (|fetch| TIDATA |of| ITEM)))))
|
||||
(LAMBDA (TBROWSER ITEM) (* \; "Edited 18-Jul-2023 22:19 by rmk")
|
||||
(* |bvm:| "13-Oct-85 17:44")
|
||||
(COPYINSERT (|fetch| (FBFILEDATA FILENAME) |of| (|fetch| TIDATA |of| ITEM)))))
|
||||
)
|
||||
|
||||
|
||||
@@ -4253,54 +4253,52 @@ then click Recompute"))))
|
||||
|
||||
(ADDTOVAR LAMA FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
|
||||
)
|
||||
(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 (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)))))
|
||||
(FILEMAP (NIL (32272 55153 (FB 32282 . 33417) (FB.COPYBINARYCOMMAND 33419 . 33765) (FB.COPYTEXTCOMMAND
|
||||
33767 . 34109) (FILEBROWSER 34111 . 47217) (FB.TABLEBROWSER 47219 . 47436) (FB.SELECTEDFILES 47438 .
|
||||
48075) (FB.FETCHFILENAME 48077 . 48469) (FB.DIRECTORYP 48471 . 48865) (FB.PROMPTWPRINT 48867 . 49913)
|
||||
(FB.PROMPTW.FORMAT 49915 . 50652) (FB.PROMPTFORINPUT 50654 . 52906) (FB.YES-OR-NO-P 52908 . 53942) (
|
||||
FB.ALLOW.ABORT 53944 . 54798) (\\FB.HARDCOPY.TOFILE.EXTENSION 54800 . 55151)) (55177 56130 (FB.STARTUP
|
||||
55187 . 55702) (FB.MAKERIGIDWINDOW 55704 . 56128)) (56131 61614 (FB.PRINTFN 56141 . 61294) (FB.COPYFN
|
||||
61296 . 61612)) (61664 68004 (FB.MENU.WHENSELECTEDFN 61674 . 62032) (FB.COMMANDSELECTEDFN 62034 .
|
||||
63573) (FB.SUBITEMP 63575 . 64176) (FB.MAKE.BROWSER.BUSY 64178 . 64982) (FB.FINISH.COMMAND 64984 .
|
||||
67015) (FB.HANDLE.ABORT.BUTTON 67017 . 68002)) (68005 73521 (FB.DELETECOMMAND 68015 . 68296) (
|
||||
FB.DELVERCOMMAND 68298 . 71491) (FB.IS.NOT.SUBDIRECTORY.ITEM 71493 . 71674) (FB.DELVER.FILES 71676 .
|
||||
72765) (FB.DELETE.FILE 72767 . 73519)) (73522 74847 (FB.UNDELETECOMMAND 73532 . 73817) (
|
||||
FB.UNDELETEALLCOMMAND 73819 . 74098) (FB.UNDELETE.FILE 74100 . 74845)) (74848 99029 (FB.COPYCOMMAND
|
||||
74858 . 75127) (FB.RENAMECOMMAND 75129 . 75404) (FB.COPY/RENAME.COMMAND 75406 . 76329) (
|
||||
FB.COPY/RENAME.ONE 76331 . 78653) (FB.COPY/RENAME.MANY 78655 . 84875) (FB.MERGE.DIRECTORIES 84877 .
|
||||
85295) (FB.GREATEST.PREFIX 85297 . 86653) (FB.MAYBE.INSERT.FILE 86655 . 94095) (FB.GET.NEW.FILE.SPEC
|
||||
94097 . 97928) (FB.CANONICAL.DIRECTORY 97930 . 99027)) (99030 106814 (FB.HARDCOPYCOMMAND 99040 .
|
||||
100170) (FB.HARDCOPY.TOFILE 100172 . 106812)) (106815 117014 (FB.EDITCOMMAND 106825 . 107692) (
|
||||
FB.EDITCOMMAND.ONEFILE 107694 . 111098) (FB.EDITLISPFILE 111100 . 112205) (FB.BROWSECOMMAND 112207 .
|
||||
117012)) (117015 128936 (FB.FASTSEECOMMAND 117025 . 120475) (FB.FASTSEE.ONEFILE 120477 . 123634) (
|
||||
FB.SEEFULLFN 123636 . 127767) (FB.SEEBUTTONFN 127769 . 128934)) (128937 130683 (FB.LOADCOMMAND 128947
|
||||
. 129454) (FB.COMPILECOMMAND 129456 . 129994) (FB.OPERATE.ON.FILES 129996 . 130681)) (130684 178869 (
|
||||
FB.UPDATECOMMAND 130694 . 130919) (FB.FIX-DIRECTORY-DATES 130921 . 131944) (FB.MAYBE.EXPUNGE 131946 .
|
||||
133007) (FB.UPDATEBROWSERITEMS 133009 . 146224) (FB.DATE 146226 . 146867) (FB.ADJUST.DATE.WIDTH 146869
|
||||
. 149837) (FB.SET.BROWSER.TITLE 149839 . 150841) (FB.MAYBE.WIDEN.NAMES 150843 . 152962) (
|
||||
FB.SET.DEFAULT.NAME.WIDTH 152964 . 154328) (FB.CREATE.FILEBUCKET 154330 . 161550) (
|
||||
FB.CHECK.NAME.LENGTH 161552 . 163973) (FB.ADD.FILEGROUP 163975 . 165502) (FB.INSERT.DIRECTORY 165504
|
||||
. 165742) (FB.MAKE.SUBDIRECTORY.ITEM 165744 . 167153) (FB.ADD.FILE 167155 . 167768) (FB.INSERT.FILE
|
||||
167770 . 171182) (FB.ANALYZE.PATTERN 171184 . 176448) (FB.CANONICALIZE.PATTERN 176450 . 177762) (
|
||||
FB.GETALLFILEINFO 177764 . 178867)) (178870 187029 (FB.SORT.VERSIONS 178880 . 181651) (
|
||||
FB.DECREASING.VERSION 181653 . 182322) (FB.INCREASING.VERSION 182324 . 182945) (
|
||||
FB.NAMES.DECREASING.VERSION 182947 . 183982) (FB.NAMES.INCREASING.VERSION 183984 . 184981) (
|
||||
FB.DECREASING.NUMERIC.ATTR 184983 . 185663) (FB.INCREASING.NUMERIC.ATTR 185665 . 186339) (
|
||||
FB.ALPHABETIC.ATTR 186341 . 187027)) (187030 196872 (FB.SORTCOMMAND 187040 . 193870) (
|
||||
FB.INSERT.SUBDIRECTORIES 193872 . 194669) (FB.GET.SORT.MENU 194671 . 196870)) (196873 213094 (
|
||||
FB.EXPUNGECOMMAND 196883 . 199468) (FB.NEWPATTERNCOMMAND 199470 . 199868) (FB.NEWINFOCOMMAND 199870 .
|
||||
202702) (FB.DEPTHCOMMAND 202704 . 204479) (FB.SHAPECOMMAND 204481 . 207823) (FB.REMOVE.FILE 207825 .
|
||||
209646) (FB.COUNT.FILE.CHANGE 209648 . 211093) (FB.SETNEWPATTERN 211095 . 212265) (FB.GET.NEWPATTERN
|
||||
212267 . 212851) (FB.OPTIONSCOMMAND 212853 . 213092)) (213129 214182 (FB.GETWINDOW 213139 . 214180)) (
|
||||
214183 215195 (FB.INFOMENU.SHADEINITIALSELECTIONS 214193 . 214840) (FB.INFO.ITEM.NAMED 214842 . 215193
|
||||
)) (215196 224728 (FB.MAKECOUNTERWINDOW 215206 . 216734) (FB.COUNTERW.REDISPLAYFN 216736 . 217323) (
|
||||
FB.UPDATE.COUNTERS 217325 . 219397) (FB.DISPLAY.COUNTERS 219399 . 224459) (FB.COUNTER.STRING 224461 .
|
||||
224726)) (224729 229438 (FB.MAKEHEADINGWINDOW 224739 . 226353) (FB.HEADINGW.REDISPLAYFN 226355 .
|
||||
226621) (FB.HEADINGW.RESHAPEFN 226623 . 226999) (FB.HEADINGW.DISPLAY 227001 . 229436)) (229439 233622
|
||||
(FB.ICONFN 229449 . 229796) (FB.INFOMENU.WHENSELECTEDFN 229798 . 230528) (FB.CLOSEFN 230530 . 231733)
|
||||
(FB.EXPUNGE?.MENU 231735 . 232147) (FB.AFTERCLOSEFN 232149 . 232510) (FB.CLOSE&EXPUNGE 232512 . 233620
|
||||
)) (233623 245681 (FB.HARDCOPY.DIRECTORY 233633 . 243990) (FB.HARDCOPY.PRINT.TITLE 243992 . 244318) (
|
||||
FB.HARDCOPY.MAXWIDTH 244320 . 245679)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
BIN
library/FILEBROWSER.TEDIT
Normal file
BIN
library/FILEBROWSER.TEDIT
Normal file
Binary file not shown.
BIN
library/FONTSAMPLE.TEDIT
Normal file
BIN
library/FONTSAMPLE.TEDIT
Normal file
Binary file not shown.
BIN
library/FTPSERVER.TEDIT
Normal file
BIN
library/FTPSERVER.TEDIT
Normal file
Binary file not shown.
BIN
library/GCHAX.TEDIT
Normal file
BIN
library/GCHAX.TEDIT
Normal file
Binary file not shown.
BIN
library/GRAPHER.TEDIT
Normal file
BIN
library/GRAPHER.TEDIT
Normal file
Binary file not shown.
BIN
library/GRAPHZOOM.TEDIT
Normal file
BIN
library/GRAPHZOOM.TEDIT
Normal file
Binary file not shown.
33
library/HASH.TEDIT
Normal file
33
library/HASH.TEDIT
Normal file
File diff suppressed because one or more lines are too long
BIN
library/HASHFILE.TEDIT
Normal file
BIN
library/HASHFILE.TEDIT
Normal file
Binary file not shown.
116
library/MASTERSCOPE.TEDIT
Normal file
116
library/MASTERSCOPE.TEDIT
Normal file
File diff suppressed because one or more lines are too long
31
library/MATMULT.TEDIT
Normal file
31
library/MATMULT.TEDIT
Normal file
File diff suppressed because one or more lines are too long
BIN
library/READNUMBER.TEDIT
Normal file
BIN
library/READNUMBER.TEDIT
Normal file
Binary file not shown.
@@ -1,12 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1238
|
||||
|
||||
:EDIT-BY "lmm"
|
||||
(FILECREATED "18-Jul-2023 12:07:08" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;2 1397
|
||||
|
||||
:CHANGES-TO (VARS SYSEDITCOMS)
|
||||
|
||||
:PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
|
||||
:PREVIOUS-DATE "29-Apr-2023 16:15:10" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT SYSEDITCOMS)
|
||||
@@ -20,9 +18,11 @@
|
||||
(CLISPIFTRANFLG T)
|
||||
(CROSSCOMPILING 'ASK)
|
||||
(*REPLACE-OLD-EDIT-DATES* NIL)
|
||||
(COPYRIGHTFLG 'NEVER))
|
||||
(P (RESETVARS ((CROSSCOMPILING T))
|
||||
(FILESLOAD (SOURCE)
|
||||
(COPYRIGHTFLG 'NEVER)
|
||||
(MSRECORDTRANFLG T))
|
||||
(P (MOVD? 'APPLY* 'SPREADAPPLY*X)
|
||||
(RESETVARS ((CROSSCOMPILING T))
|
||||
(FILESLOAD (SOURCE FROM LOADUPS)
|
||||
EXPORTS.ALL])
|
||||
|
||||
(RPAQQ CLISPIFYPRETTYFLG NIL)
|
||||
@@ -43,8 +43,12 @@
|
||||
|
||||
(RPAQQ COPYRIGHTFLG NEVER)
|
||||
|
||||
(RPAQQ MSRECORDTRANFLG T)
|
||||
|
||||
(MOVD? 'APPLY* 'SPREADAPPLY*X)
|
||||
|
||||
(RESETVARS ((CROSSCOMPILING T))
|
||||
(FILESLOAD (SOURCE)
|
||||
(FILESLOAD (SOURCE FROM LOADUPS)
|
||||
EXPORTS.ALL))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL)))
|
||||
|
||||
BIN
library/TCPIP.TEDIT
Normal file
BIN
library/TCPIP.TEDIT
Normal file
Binary file not shown.
BIN
library/TELERAID.TEDIT
Normal file
BIN
library/TELERAID.TEDIT
Normal file
Binary file not shown.
BIN
library/TEXEC.TEDIT
Normal file
BIN
library/TEXEC.TEDIT
Normal file
Binary file not shown.
BIN
library/TEXTMODULES.TEDIT
Normal file
BIN
library/TEXTMODULES.TEDIT
Normal file
Binary file not shown.
BIN
library/UNIXCHAT.TEDIT
Normal file
BIN
library/UNIXCHAT.TEDIT
Normal file
Binary file not shown.
BIN
library/UNIXCOMM.TEDIT
Normal file
BIN
library/UNIXCOMM.TEDIT
Normal file
Binary file not shown.
BIN
library/VIRTUAL.TEDIT
Normal file
BIN
library/VIRTUAL.TEDIT
Normal file
Binary file not shown.
@@ -1,13 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "XEROX-COMMON-LISP" READTABLE "XCL" BASE 10)
|
||||
|
||||
(IL:FILECREATED "11-Mar-2022 22:40:32"
|
||||
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;2| 17501
|
||||
(IL:FILECREATED "30-Apr-2023 13:54:00" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;2| 17396
|
||||
|
||||
:PREVIOUS-DATE "13-Jun-90 01:24:39"
|
||||
IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
|
||||
:EDIT-BY "lmm"
|
||||
|
||||
:CHANGES-TO (IL:FUNCTIONS ADD-WHERE-IS-DATABASE)
|
||||
|
||||
:PREVIOUS-DATE "11-Mar-2022 22:40:32" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;1|)
|
||||
|
||||
; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation.
|
||||
|
||||
(IL:PRETTYCOMPRINT IL:WHERE-ISCOMS)
|
||||
|
||||
@@ -379,15 +379,14 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
|
||||
(IL:PUTPROPS IL:WHERE-IS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "XCL"))
|
||||
|
||||
(IL:PUTPROPS IL:WHERE-IS IL:FILETYPE :COMPILE-FILE)
|
||||
(IL:PUTPROPS IL:WHERE-IS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990))
|
||||
(IL:DECLARE\: IL:DONTCOPY
|
||||
(IL:FILEMAP (NIL (1758 2090 (HASH-FILE-WHERE-IS 1758 . 2090)) (2092 2485 (HASH-FILE-TYPES-OF 2092 .
|
||||
2485)) (2487 4652 (GET-WHERE-IS-ENTRIES 2487 . 4652)) (4654 5169 (WHERE-IS-READ-FN 4654 . 5169)) (5171
|
||||
5327 (ADD-WHERE-IS-DATABASES 5171 . 5327)) (5329 5716 (ADD-WHERE-IS-DATABASE 5329 . 5716)) (5718 6197
|
||||
(DEL-WHERE-IS-DATABASE 5718 . 6197)) (6199 7351 (SAME-WHERE-IS-DATABASE 6199 . 7351)) (7353 8560 (
|
||||
CLOSE-WHERE-IS-FILES 7353 . 8560)) (8818 12235 (WHERE-IS-NOTICE 8818 . 12235)) (12237 12981 (
|
||||
WHERE-IS-NOTICE-INTERNAL 12237 . 12981)) (12983 13719 (WHERE-IS-FILES 12983 . 13719)) (13721 14086 (
|
||||
WHERE-IS-DEFAULT-DEFINE-TYPES 13721 . 14086)) (14088 14507 (WHERE-IS-NAMESTRING 14088 . 14507)) (14509
|
||||
16521 (WHERE-IS-READ-COMS 14509 . 16521)) (16523 16794 (WHERE-IS-SET-WRITE-DATE 16523 . 16794)) (
|
||||
16796 17046 (WHERE-IS-GET-WRITE-DATE 16796 . 17046)))))
|
||||
(IL:FILEMAP (NIL (1737 2069 (HASH-FILE-WHERE-IS 1737 . 2069)) (2071 2464 (HASH-FILE-TYPES-OF 2071 .
|
||||
2464)) (2466 4631 (GET-WHERE-IS-ENTRIES 2466 . 4631)) (4633 5148 (WHERE-IS-READ-FN 4633 . 5148)) (5150
|
||||
5306 (ADD-WHERE-IS-DATABASES 5150 . 5306)) (5308 5695 (ADD-WHERE-IS-DATABASE 5308 . 5695)) (5697 6176
|
||||
(DEL-WHERE-IS-DATABASE 5697 . 6176)) (6178 7330 (SAME-WHERE-IS-DATABASE 6178 . 7330)) (7332 8539 (
|
||||
CLOSE-WHERE-IS-FILES 7332 . 8539)) (8797 12214 (WHERE-IS-NOTICE 8797 . 12214)) (12216 12960 (
|
||||
WHERE-IS-NOTICE-INTERNAL 12216 . 12960)) (12962 13698 (WHERE-IS-FILES 12962 . 13698)) (13700 14065 (
|
||||
WHERE-IS-DEFAULT-DEFINE-TYPES 13700 . 14065)) (14067 14486 (WHERE-IS-NAMESTRING 14067 . 14486)) (14488
|
||||
16500 (WHERE-IS-READ-COMS 14488 . 16500)) (16502 16773 (WHERE-IS-SET-WRITE-DATE 16502 . 16773)) (
|
||||
16775 17025 (WHERE-IS-GET-WRITE-DATE 16775 . 17025)))))
|
||||
IL:STOP
|
||||
|
||||
Binary file not shown.
BIN
library/WHERE-IS.TEDIT
Normal file
BIN
library/WHERE-IS.TEDIT
Normal file
Binary file not shown.
Reference in New Issue
Block a user