(FILECREATED "18-Jan-88 17:54:32" {QV}<NOTECARDS>1.3K>NCCONFIG.;13 169370
changes to: (FNS NCAddStub.SketchCard NCAddStub.GraphCard NCAddStub.BrowserCard
NCAddStub.SearchCard NCAddStub.DocumentCard NCAddStub.LinkIndexCard
NCAddStub.IdeaSketchCard)
previous date: "30-Nov-87 16:46:44" {QV}<NOTECARDS>1.3KNEXT>NCCONFIG.;19)
(* Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT NCCONFIGCOMS)
(RPAQQ NCCONFIGCOMS [(* * NoteCards version control - the stuff kept in this file is all concerned
with getting the user a consistent version of NoteCards. Anything that
depends on getting a particular version of a particular file is indirected
through here. In addition, card type stub functions and pointers to other
autoloadable functions are stored here.)
(* * WARNING! DO NOT SYSLOAD THIS FILE - THE VALUES OF NC.Files, NC.AutoloadableFns, AND
NC.AutoloadStubFns WILL BE SMASHED!)
(GLOBALVARS NC.CoreFiles NC.Files NC.NoUpdateFlg NC.InstallFlg NC.ForceLoadFlg
NC.SketchCardIcon NC.GraphCardIcon)
(E (NC.UpdateConfig))
(INITVARS (NC.NoUpdateFlg NIL)
(NC.InstallFlg NIL)
(NC.ForceLoadFlg NIL))
(DECLARE: DONTEVAL@LOAD
[VARS (NC.CoreFiles (QUOTE (NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE
NCLOCALDEVICE NCCARDS NCLINKS NCTYPESMECH
NCPROGINT NCCROSSFILELINKS KOTOTEDITPATCHES
KOTOSYSTEMPATCHES)))
(NC.Files (QUOTE (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE
NCDATABASE NCLOCALDEVICE NCCOMPACT NCREPAIR
NCCARDS NCLINKS NCTYPESMECH NCPROGINT
NCCROSSFILELINKS NCHASHCARD NCTEXTCARD
NCSKETCHCARD NCGRAPHCARD NCFILEBOXCARD
NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD
NCLINKINDEXCARD NCLISTCARD NCCONVERTVERSION2TO3
KOTOSYSTEMPATCHES KOTOTEDITPATCHES
POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH
NCMAPS NCHACKS NCIDEASKETCHCARD]
(IFPROP ConfigProps * NC.Files)
(CONFIGPROPS * NC.Files)
(IFPROP File * NC.AutoloadableFns))
(FNS * NC.AutoloadStubFns)
(FILEPKGCOMS CONFIGPROPS)
(DECLARE: DONTEVAL@LOAD (BITMAPS NC.SketchCardIcon NC.GraphCardIcon))
(FNS NC.UpdateConfig NC.UpdateSingleFile NC.FixFileDates NC.FindFile
NC.LoadFileFromDirectories NC.LookupAutoloadFnFile NC.StoreAutoloadFnFile
NC.SetStandardConfigProps MAKECONFIGPROPSCOMS)
(MACROS NC.AutoloadApply NC.AutoloadApply* NAMED-RESETLST NAMED-RESETSAVE NAMED-RESETUNSAVE)
(FNS NAMED-RESETLST NAMED-RESETSAVE NAMED-RESETRESTORE NAMED-RESETUNSAVE)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA NAMED-RESETSAVE
NAMED-RESETLST
MAKECONFIGPROPSCOMS)
(NLAML
NAMED-RESETUNSAVE)
(LAMA])
(* * NoteCards version control - the stuff kept in this file is all concerned with getting the
user a consistent version of NoteCards. Anything that depends on getting a particular version
of a particular file is indirected through here. In addition, card type stub functions and
pointers to other autoloadable functions are stored here.)
(* * WARNING! DO NOT SYSLOAD THIS FILE - THE VALUES OF NC.Files, NC.AutoloadableFns, AND
NC.AutoloadStubFns WILL BE SMASHED!)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.CoreFiles NC.Files NC.NoUpdateFlg NC.InstallFlg NC.ForceLoadFlg NC.SketchCardIcon
NC.GraphCardIcon)
)
(RPAQ? NC.NoUpdateFlg NIL)
(RPAQ? NC.InstallFlg NIL)
(RPAQ? NC.ForceLoadFlg NIL)
(DECLARE: DONTEVAL@LOAD
(RPAQQ NC.CoreFiles (NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE NCCARDS NCLINKS
NCTYPESMECH NCPROGINT NCCROSSFILELINKS KOTOTEDITPATCHES
KOTOSYSTEMPATCHES))
(RPAQQ NC.Files (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE
NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCPROGINT
NCCROSSFILELINKS NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD
NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD
NCLISTCARD NCCONVERTVERSION2TO3 KOTOSYSTEMPATCHES KOTOTEDITPATCHES
POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH NCMAPS NCHACKS
NCIDEASKETCHCARD))
(RPAQQ NC.Files (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE
NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCPROGINT
NCCROSSFILELINKS NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD
NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD
NCLISTCARD NCCONVERTVERSION2TO3 KOTOSYSTEMPATCHES KOTOTEDITPATCHES
POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH NCMAPS NCHACKS
NCIDEASKETCHCARD))
(PUTPROPS NOTECARDS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCCONFIG ConfigProps NIL)
(PUTPROPS NCUTILITIES ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCPARAMETERS ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCINTERFACE ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCDATABASE ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCLOCALDEVICE ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCCOMPACT ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCREPAIR ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCCARDS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCLINKS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCTYPESMECH ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCPROGINT ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCCROSSFILELINKS ConfigProps [COPYRIGHT
[SourceFile (LAMBDA
(File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCHASHCARD ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCTEXTCARD ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCSKETCHCARD ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCGRAPHCARD ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCFILEBOXCARD ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCBROWSERCARD ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCSEARCHCARD ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCDOCUMENTCARD ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCLINKINDEXCARD ConfigProps [COPYRIGHT [SourceFile
(LAMBDA
(File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA
(File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File
(QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCLISTCARD ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCCONVERTVERSION2TO3 ConfigProps [COPYRIGHT
[SourceFile (LAMBDA (File Directory)
(FINDFILE File T (OR (EVAL (GETPROP File (QUOTE Directories)))
(LIST Directory]
[CompiledFile (LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS KOTOSYSTEMPATCHES ConfigProps [COPYRIGHT
[SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS KOTOTEDITPATCHES ConfigProps [COPYRIGHT
[SourceFile (LAMBDA
(File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS POSTRELEASEPATCHES ConfigProps NIL)
(PUTPROPS KOTOSKETCHPATCHES ConfigProps [COPYRIGHT
[SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS GRAPHERPATCH ConfigProps [COPYRIGHT [SourceFile
(LAMBDA (File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE
FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCMAPS ConfigProps [COPYRIGHT [SourceFile (LAMBDA
(File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCHACKS ConfigProps [Directories COPYRIGHT
[SourceFile (LAMBDA
(File Directory)
(FINDFILE
File T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[CompiledFile
(LAMBDA (File Directory)
(FINDFILE (PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(PUTPROPS NCIDEASKETCHCARD ConfigProps [COPYRIGHT
Directories
[SourceFile (LAMBDA
(File Directory)
(FINDFILE File T
(OR (EVAL (GETPROP File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA
(File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File (QUOTE
Directories)))
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(RPAQQ NC.Files (NOTECARDS NCCONFIG NCUTILITIES NCPARAMETERS NCINTERFACE NCDATABASE NCLOCALDEVICE
NCCOMPACT NCREPAIR NCCARDS NCLINKS NCTYPESMECH NCPROGINT
NCCROSSFILELINKS NCHASHCARD NCTEXTCARD NCSKETCHCARD NCGRAPHCARD
NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD
NCLISTCARD NCCONVERTVERSION2TO3 KOTOSYSTEMPATCHES KOTOTEDITPATCHES
POSTRELEASEPATCHES KOTOSKETCHPATCHES GRAPHERPATCH NCMAPS NCHACKS
NCIDEASKETCHCARD))
(PUTPROPS NOTECARDS COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NCCONFIG COPYRIGHT ("Xerox Corporation" 1987 1988))
(PUTPROPS NCUTILITIES COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(PUTPROPS NCPARAMETERS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987))
(PUTPROPS NCINTERFACE COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(PUTPROPS NCDATABASE COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(PUTPROPS NCLOCALDEVICE COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NCCOMPACT COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS NCREPAIR COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS NCCARDS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(PUTPROPS NCLINKS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(PUTPROPS NCTYPESMECH COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(PUTPROPS NCPROGINT COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
(PUTPROPS NCCROSSFILELINKS COPYRIGHT ("Xerox Corporation" 1986 1987 1988))
(PUTPROPS NCHASHCARD COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NCTEXTCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988))
(PUTPROPS NCSKETCHCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS NCGRAPHCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS NCFILEBOXCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS NCBROWSERCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988))
(PUTPROPS NCSEARCHCARD COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NCDOCUMENTCARD COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NCLINKINDEXCARD COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NCLISTCARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988))
(PUTPROPS NCCONVERTVERSION2TO3 COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS KOTOSYSTEMPATCHES COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS KOTOTEDITPATCHES COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS POSTRELEASEPATCHES COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS KOTOSKETCHPATCHES COPYRIGHT ("Xerox Corporation" 1987))
(PUTPROPS GRAPHERPATCH COPYRIGHT ("Xerox Corporation" 1987))
(PUTPROPS NCMAPS COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NCHACKS COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
(PUTPROPS NCIDEASKETCHCARD COPYRIGHT ("Xerox Corporation" 1986 1987))
(PUTPROPS NOTECARDS SourceFile {QV}<NOTECARDS>1.3K>NOTECARDS.;20)
(PUTPROPS NCUTILITIES SourceFile {QV}<NOTECARDS>1.3K>NCUTILITIES.;15)
(PUTPROPS NCPARAMETERS SourceFile {QV}<NOTECARDS>1.3K>NCPARAMETERS.;11)
(PUTPROPS NCINTERFACE SourceFile {QV}<NOTECARDS>1.3K>NCINTERFACE.;13)
(PUTPROPS NCDATABASE SourceFile {QV}<NOTECARDS>1.3K>NCDATABASE.;14)
(PUTPROPS NCLOCALDEVICE SourceFile {QV}<NOTECARDS>1.3K>NCLOCALDEVICE.;9)
(PUTPROPS NCCOMPACT SourceFile {QV}<NOTECARDS>1.3K>NCCOMPACT.;12)
(PUTPROPS NCREPAIR SourceFile {QV}<NOTECARDS>1.3K>NCREPAIR.;14)
(PUTPROPS NCCARDS SourceFile {QV}<NOTECARDS>1.3K>NCCARDS.;14)
(PUTPROPS NCLINKS SourceFile {QV}<NOTECARDS>1.3K>NCLINKS.;13)
(PUTPROPS NCTYPESMECH SourceFile {QV}<NOTECARDS>1.3K>NCTYPESMECH.;13)
(PUTPROPS NCPROGINT SourceFile {QV}<NOTECARDS>1.3K>NCPROGINT.;16)
(PUTPROPS NCCROSSFILELINKS SourceFile {QV}<NOTECARDS>1.3K>NCCROSSFILELINKS.;11)
(PUTPROPS NCHASHCARD SourceFile {QV}<NOTECARDS>1.3K>NCHASHCARD.;7)
(PUTPROPS NCTEXTCARD SourceFile {QV}<NOTECARDS>1.3K>NCTEXTCARD.;11)
(PUTPROPS NCSKETCHCARD SourceFile {QV}<NOTECARDS>1.3K>NCSKETCHCARD.;11)
(PUTPROPS NCGRAPHCARD SourceFile {QV}<NOTECARDS>1.3K>NCGRAPHCARD.;14)
(PUTPROPS NCFILEBOXCARD SourceFile {QV}<NOTECARDS>1.3K>NCFILEBOXCARD.;11)
(PUTPROPS NCBROWSERCARD SourceFile {QV}<NOTECARDS>1.3K>NCBROWSERCARD.;15)
(PUTPROPS NCSEARCHCARD SourceFile {QV}<NOTECARDS>1.3K>NCSEARCHCARD.;7)
(PUTPROPS NCDOCUMENTCARD SourceFile {QV}<NOTECARDS>1.3K>NCDOCUMENTCARD.;12)
(PUTPROPS NCLINKINDEXCARD SourceFile {QV}<NOTECARDS>1.3K>NCLINKINDEXCARD.;8)
(PUTPROPS NCLISTCARD SourceFile {QV}<NOTECARDS>1.3K>NCLISTCARD.;8)
(PUTPROPS NCCONVERTVERSION2TO3 SourceFile {QV}<NOTECARDS>1.3K>NCCONVERTVERSION2TO3.;7)
(PUTPROPS KOTOSYSTEMPATCHES SourceFile {QV}<NOTECARDS>1.3K>KOTOSYSTEMPATCHES.;11)
(PUTPROPS KOTOTEDITPATCHES SourceFile {QV}<NOTECARDS>1.3K>KOTOTEDITPATCHES.;6)
(PUTPROPS KOTOSKETCHPATCHES SourceFile {QV}<NOTECARDS>1.3K>KOTOSKETCHPATCHES.;4)
(PUTPROPS GRAPHERPATCH SourceFile {QV}<NOTECARDS>1.3K>GRAPHERPATCH.;3)
(PUTPROPS NCMAPS SourceFile {QV}<NOTECARDS>1.3K>LIBRARY>NCMAPS.;4)
(PUTPROPS NCHACKS SourceFile {QV}<NOTECARDS>1.3K>LIBRARY>NCHACKS.;6)
(PUTPROPS NCIDEASKETCHCARD SourceFile {QV}<NOTECARDS>1.3K>LIBRARY>NCIDEASKETCHCARD.;6)
(PUTPROPS NOTECARDS CompiledFile {QV}<NOTECARDS>1.3K>NOTECARDS.DCOM;23)
(PUTPROPS NCUTILITIES CompiledFile {QV}<NOTECARDS>1.3K>NCUTILITIES.DCOM;16)
(PUTPROPS NCPARAMETERS CompiledFile {QV}<NOTECARDS>1.3K>NCPARAMETERS.DCOM;12)
(PUTPROPS NCINTERFACE CompiledFile {QV}<NOTECARDS>1.3K>NCINTERFACE.DCOM;12)
(PUTPROPS NCDATABASE CompiledFile {QV}<NOTECARDS>1.3K>NCDATABASE.DCOM;15)
(PUTPROPS NCLOCALDEVICE CompiledFile {QV}<NOTECARDS>1.3K>NCLOCALDEVICE.DCOM;10)
(PUTPROPS NCCOMPACT CompiledFile {QV}<NOTECARDS>1.3K>NCCOMPACT.DCOM;12)
(PUTPROPS NCREPAIR CompiledFile {QV}<NOTECARDS>1.3K>NCREPAIR.DCOM;14)
(PUTPROPS NCCARDS CompiledFile {QV}<NOTECARDS>1.3K>NCCARDS.DCOM;15)
(PUTPROPS NCLINKS CompiledFile {QV}<NOTECARDS>1.3K>NCLINKS.DCOM;14)
(PUTPROPS NCTYPESMECH CompiledFile {QV}<NOTECARDS>1.3K>NCTYPESMECH.DCOM;14)
(PUTPROPS NCPROGINT CompiledFile {QV}<NOTECARDS>1.3K>NCPROGINT.DCOM;16)
(PUTPROPS NCCROSSFILELINKS CompiledFile {QV}<NOTECARDS>1.3K>NCCROSSFILELINKS.DCOM;11)
(PUTPROPS NCHASHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCHASHCARD.DCOM;7)
(PUTPROPS NCTEXTCARD CompiledFile {QV}<NOTECARDS>1.3K>NCTEXTCARD.DCOM;11)
(PUTPROPS NCSKETCHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCSKETCHCARD.DCOM;13)
(PUTPROPS NCGRAPHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCGRAPHCARD.DCOM;14)
(PUTPROPS NCFILEBOXCARD CompiledFile {QV}<NOTECARDS>1.3K>NCFILEBOXCARD.DCOM;12)
(PUTPROPS NCBROWSERCARD CompiledFile {QV}<NOTECARDS>1.3K>NCBROWSERCARD.DCOM;16)
(PUTPROPS NCSEARCHCARD CompiledFile {QV}<NOTECARDS>1.3K>NCSEARCHCARD.DCOM;8)
(PUTPROPS NCDOCUMENTCARD CompiledFile {QV}<NOTECARDS>1.3K>NCDOCUMENTCARD.DCOM;14)
(PUTPROPS NCLINKINDEXCARD CompiledFile {QV}<NOTECARDS>1.3K>NCLINKINDEXCARD.DCOM;9)
(PUTPROPS NCLISTCARD CompiledFile {QV}<NOTECARDS>1.3K>NCLISTCARD.DCOM;8)
(PUTPROPS NCCONVERTVERSION2TO3 CompiledFile {QV}<NOTECARDS>1.3K>NCCONVERTVERSION2TO3.DCOM;6)
(PUTPROPS KOTOSYSTEMPATCHES CompiledFile {QV}<NOTECARDS>1.3K>KOTOSYSTEMPATCHES.DCOM;12)
(PUTPROPS KOTOTEDITPATCHES CompiledFile {QV}<NOTECARDS>1.3K>KOTOTEDITPATCHES.DCOM;8)
(PUTPROPS KOTOSKETCHPATCHES CompiledFile {QV}<NOTECARDS>1.3K>KOTOSKETCHPATCHES.DCOM;5)
(PUTPROPS GRAPHERPATCH CompiledFile {QV}<NOTECARDS>1.3K>GRAPHERPATCH.DCOM;3)
(PUTPROPS NCMAPS CompiledFile {QV}<NOTECARDS>1.3K>LIBRARY>NCMAPS.DCOM;4)
(PUTPROPS NCHACKS CompiledFile {QV}<NOTECARDS>1.3K>LIBRARY>NCHACKS.DCOM;5)
(PUTPROPS NCIDEASKETCHCARD CompiledFile {QV}<NOTECARDS>1.3K>LIBRARY>NCIDEASKETCHCARD.DCOM;6)
(PUTPROPS NOTECARDS FileDate " 4-Sep-87 12:27:40")
(PUTPROPS NCUTILITIES FileDate "18-Jan-88 17:00:46")
(PUTPROPS NCPARAMETERS FileDate "14-Jul-87 17:18:09")
(PUTPROPS NCINTERFACE FileDate "18-Jan-88 17:01:24")
(PUTPROPS NCDATABASE FileDate "18-Jan-88 17:04:05")
(PUTPROPS NCLOCALDEVICE FileDate "30-Nov-87 15:28:28")
(PUTPROPS NCCOMPACT FileDate "30-Nov-87 15:30:26")
(PUTPROPS NCREPAIR FileDate "30-Nov-87 15:31:06")
(PUTPROPS NCCARDS FileDate "18-Jan-88 17:07:02")
(PUTPROPS NCLINKS FileDate "18-Jan-88 17:09:47")
(PUTPROPS NCTYPESMECH FileDate "18-Jan-88 17:11:41")
(PUTPROPS NCPROGINT FileDate "18-Jan-88 17:12:15")
(PUTPROPS NCCROSSFILELINKS FileDate "18-Jan-88 17:14:03")
(PUTPROPS NCHASHCARD FileDate "30-Nov-87 15:56:33")
(PUTPROPS NCTEXTCARD FileDate "18-Jan-88 17:14:42")
(PUTPROPS NCSKETCHCARD FileDate "30-Nov-87 15:58:43")
(PUTPROPS NCGRAPHCARD FileDate "30-Nov-87 15:59:21")
(PUTPROPS NCFILEBOXCARD FileDate "30-Nov-87 16:00:23")
(PUTPROPS NCBROWSERCARD FileDate "18-Jan-88 17:15:25")
(PUTPROPS NCSEARCHCARD FileDate "30-Nov-87 16:24:33")
(PUTPROPS NCDOCUMENTCARD FileDate "30-Nov-87 16:24:58")
(PUTPROPS NCLINKINDEXCARD FileDate "30-Nov-87 16:26:06")
(PUTPROPS NCLISTCARD FileDate "18-Jan-88 17:16:50")
(PUTPROPS NCCONVERTVERSION2TO3 FileDate "30-Nov-87 16:27:11")
(PUTPROPS KOTOSYSTEMPATCHES FileDate "30-Nov-87 16:28:15")
(PUTPROPS KOTOTEDITPATCHES FileDate "31-Aug-87 15:39:25")
(PUTPROPS KOTOSKETCHPATCHES FileDate "31-Aug-87 15:40:36")
(PUTPROPS GRAPHERPATCH FileDate "14-Jul-87 21:06:40")
(PUTPROPS NCMAPS FileDate "14-Jul-87 21:25:44")
(PUTPROPS NCHACKS FileDate "18-Aug-87 15:31:00")
(PUTPROPS NCIDEASKETCHCARD FileDate "14-Jul-87 21:13:31")
(PUTPROPS NOTECARDS InitialFile ((NOTECARDSCOMS . Compiled)))
(PUTPROPS NCUTILITIES InitialFile ((NCUTILITIESCOMS . Compiled)))
(PUTPROPS NCPARAMETERS InitialFile ((NCPARAMETERSCOMS . Compiled)))
(PUTPROPS NCINTERFACE InitialFile ((NCINTERFACECOMS . Compiled)))
(PUTPROPS NCDATABASE InitialFile ((NCDATABASECOMS . Compiled)))
(PUTPROPS NCLOCALDEVICE InitialFile ((NCLOCALDEVICECOMS . Compiled)))
(PUTPROPS NCCOMPACT InitialFile ((NCCOMPACTCOMS . Compiled)))
(PUTPROPS NCREPAIR InitialFile ((NCREPAIRCOMS . Compiled)))
(PUTPROPS NCCARDS InitialFile ((NCCARDSCOMS . Compiled)))
(PUTPROPS NCLINKS InitialFile ((NCLINKSCOMS . Compiled)))
(PUTPROPS NCTYPESMECH InitialFile ((NCTYPESMECHCOMS . Compiled)))
(PUTPROPS NCPROGINT InitialFile ((NCPROGINTCOMS . Compiled)))
(PUTPROPS NCCROSSFILELINKS InitialFile ((NCCROSSFILELINKSCOMS . Compiled)))
(PUTPROPS NCHASHCARD InitialFile ((NCHASHCARDCOMS . Compiled)))
(PUTPROPS NCTEXTCARD InitialFile ((NCTEXTCARDCOMS . Compiled)))
(PUTPROPS NCSKETCHCARD InitialFile ((NCSKETCHCARDCOMS . Compiled)))
(PUTPROPS NCGRAPHCARD InitialFile ((NCGRAPHCARDCOMS . Compiled)))
(PUTPROPS NCFILEBOXCARD InitialFile ((NCFILEBOXCARDCOMS . Compiled)))
(PUTPROPS NCBROWSERCARD InitialFile ((NCBROWSERCARDCOMS . Compiled)))
(PUTPROPS NCSEARCHCARD InitialFile ((NCSEARCHCARDCOMS . Compiled)))
(PUTPROPS NCDOCUMENTCARD InitialFile ((NCDOCUMENTCARDCOMS . Compiled)))
(PUTPROPS NCLINKINDEXCARD InitialFile ((NCLINKINDEXCARDCOMS . Compiled)))
(PUTPROPS NCLISTCARD InitialFile ((NCLISTCARDCOMS . Compiled)))
(PUTPROPS NCCONVERTVERSION2TO3 InitialFile ((NCCONVERTVERSION2TO3COMS . Compiled)))
(PUTPROPS KOTOSYSTEMPATCHES InitialFile ((KOTOSYSTEMPATCHESCOMS . Compiled)))
(PUTPROPS KOTOTEDITPATCHES InitialFile ((KOTOTEDITPATCHESCOMS . Compiled)))
(PUTPROPS KOTOSKETCHPATCHES InitialFile ((KOTOSKETCHPATCHESCOMS . Compiled)))
(PUTPROPS GRAPHERPATCH InitialFile ((GRAPHERPATCHCOMS . Compiled)))
(PUTPROPS NCMAPS InitialFile ((NCMAPSCOMS . Compiled)))
(PUTPROPS NCHACKS InitialFile ((NCHACKSCOMS . Compiled)))
(PUTPROPS NCIDEASKETCHCARD InitialFile ((NCIDEASKETCHCARDCOMS . Compiled)))
(PUTPROPS NOTECARDS FileComs [(* * This Release)
(GLOBALVARS NC.ThisDirectory NC.ReleaseIdentifier
NOTECARDSNEXTDIRECTORIES NOTECARDSDIRECTORIES
NC.SourceAccessFlg NC.LoadedFiles
UseMapWithPoliticalBoundaries AFTERLOGOUTFORMS)
(INITVARS (NC.LoadedFiles NIL))
(VARS (NC.ReleaseIdentifier "1.3K"))
(* * Set up the NoteCards directories globalvars)
(FNS NC.SetUpNOTECARDSDIRECTORIES)
(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.SetUpNOTECARDSDIRECTORIES)))
(* * card types and library packages)
(GLOBALVARS NOTECARDTYPESTUBS NOTECARDTYPES NOTECARDSLIBRARYFILES
NOTECARDSLISPUSERSFILES)
(ADDVARS (NOTECARDTYPESTUBS Sketch Graph Browser Search Document
LinkIndex IdeaSketch))
(ADDVARS (NOTECARDTYPES Hash List Text FileBox))
(ADDVARS (NOTECARDSLIBRARYFILES NCHACKS))
(* ADDVARS (NOTECARDSLIBRARYFILES NCKEYS))
(ADDVARS (NOTECARDSLISPUSERSFILES TEDIT-PROCESS-KILLER))
(* * This is for link icon formatting until it is part of <LISPUSERS>
proper)
(FILES (SYSLOAD FROM NOTECARDS)
SCALEBITMAP)
(* * These are for the NoteFile browser and can go away when
incorporated into the standard release (Lute))
[DECLARE: EVAL@LOADWHEN (EQ MAKESYSNAME (QUOTE KOTO))
(P (LOAD? (FINDFILE (QUOTE TABLEBROWSER.DCOM)
T NOTECARDSDIRECTORIES)
(QUOTE SYSLOAD))
(LOAD? (FINDFILE (QUOTE FILEBROWSER.DCOM)
T NOTECARDSDIRECTORIES)
(QUOTE SYSLOAD))
(if (GETD (QUOTE FB.AddArchiveCommandToMenu))
then
(FB.AddArchiveCommandToMenu]
(* * code module lists for the convenience of programmers)
(GLOBALVARS NC.CoreFiles NC.Files)
(* * global params)
(GLOBALVARS NC.DeletedLinkImageObject NC.DeletedLinkImageFns
NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns
NC.LinkIconImageFns NC.NoDeleteImageFns NC.SystemDate
TEDIT.INPUT.FORMATS WindowMenuCommands
NCINITIALGLOBALPARAMS)
(INITVARS NCINITIALGLOBALPARAMS)
(* * Load the NoteCards files)
[DECLARE: DONTEVAL@LOAD DOCOPY (FILES (FROM NOTECARDS NIL)
NCCONFIG)
[P (ADVISE (QUOTE WHEREIS)
(QUOTE BEFORE)
NIL
(QUOTE (if (GETPROP (QUOTE NOTECARDS)
(QUOTE FILEDATES))
then
(NC.FixFileDates (QUOTE NOTECARDS))
(UNADVISE (QUOTE WHEREIS]
(P (for File in NC.CoreFiles do (NC.LoadFileFromDirectories
File]
(* * Initialization functions)
(FNS NC.PostGreet)
(ADDVARS (POSTGREETFORMS (NC.PostGreet)))
(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.PostGreet)))
(* * Set up Lafite Bug Report Forms)
(FNS NC.MakeLafiteForm)
(ADDVARS (LAFITESPECIALFORMS ("NoteCards Report"
(FUNCTION NC.MakeLafiteForm)
"Report bug or request new feature for NoteCards.")))
(DECLARE: DONTEVAL@LOAD DOCOPY (P (SETQ LAFITEFORMSMENU NIL)))
(* * INITIALIZE NoteCards)
(FNS NC.Setup)
(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.Setup)))
(ADDVARS (BackgroundMenuCommands (NoteCards (NC.BringUpNoteCardsIcon)
"Bring up the NoteCards control icon.")))
(DECLARE: DONTEVAL@LOAD DOCOPY (P (SETQ BackgroundMenu)))
(FNS NC.SetSystemDate)
(DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.SetSystemDate])
(PUTPROPS NCUTILITIES FileComs [(* * UTILITIES)
(GLOBALVARS WHOLEDISPLAY NC.OffScreenPosition \NC.NoBreakInReportError)
[DECLARE: DONTEVAL@LOAD DOCOPY (VARS (\NC.NoBreakInReportError)
(NC.OffScreenPosition (QUOTE (1500 . 1500]
(* * Coercing functions)
(FNS NC.CoerceToCard NC.CardFromWindow)
(MACROS NC.ActivateCardAndDo)
[DECLARE: DONTEVAL@LOAD DOCOPY (P (NC.StoreAutoloadFnFile (FUNCTION
NC.ConvertNoteFileVersion2To3)
(QUOTE NCCONVERTVERSION2TO3)
(QUOTE NOTECARDSDIRECTORIES]
(* * Shorthand window fns)
(FNS WW FLASHW)
(* * Other stuff)
(GLOBALVARS NC.PrintMsgFont)
(INITVARS (NC.PrintMsgFont (FONTCREATE (QUOTE HELVETICA)
10)))
(MACROS NC.WithTopWindowsUnattached)
(MACROS ABORT.PROTECT)
(FNS GETWREGION TEDIT.LIST.OF.OBJECTS WINDOW.FROM.TEDIT.THING WINDOW.OF.TEXTSTREAM
NC.AskUserWithMenu NC.AskYesOrNo NC.YesP FILDIR-EARLIEST FILDIR-VERSION GETMOUSEX
GETMOUSEY LOWERLEFT MBUTTON.NEXT.FIELD.AS.TEXT.OR.IMAGEOBJ NC.AskUser
NC.ZapAskUserProcess NC.AskUserResetWindow NC.ClearMsg NC.GreyCard NC.IDFromNumber
NC.MoveWindowOntoScreen NC.NotDaughterP NC.MarkerMatchesCardP NC.PlaceMarkerP
NC.ReportError NC.PrintMsg DFIRSTREMOVE NC.HoldTTYProcess NC.GetShrunkenWin
NC.CoerceToNoteFileStream NC.DrawInnerBox NC.UnionListsOfLinks NC.ParseString
NC.AppendStringToStream NC.CoerceToInterestedWindow)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
(NLAML)
(LAMA NC.PrintMsg])
(PUTPROPS NCPARAMETERS FileComs ((* * Tailoring parameters for the user to set.)
[DECLARE: DONTEVAL@LOAD DOCOPY FIRST (P (NC.LoadFileFromDirectories (QUOTE STYLESHEET)
(QUOTE
LISPUSERSDIRECTORIES]
(GLOBALVARS NC.FixedMenuFlg NC.AdviseWindowMenuFlg NC.ForceSourcesFlg NC.ForceFilingFlg
NC.ForceTitlesFlg NC.MarkersInFileBoxesFlg NC.AlphabetizedFileBoxChildrenFlg
NC.LinkIconAttachBitmapFlg NC.LinkIconShowLinkTypeFlg NC.LinkIconShowTitleFlg
NC.MainMenuPosition NC.ShowNoteFileOnCards NC.IncludeCardObjectInShowInfo
World5File NC.SpecialBrowserSpecsFlg NC.AnnoFlg NC.LinkDashingInBrowser
NC.ArrowHeadsInBrowser NC.EnableBravoToTEditConversionFlg NC.DefaultFont
NC.LinkIconFont NC.NoteFileIndicatorFont NC.MenuFont NC.DefaultCardType
NC.BringUpCardAtOldPosFlg NC.CloseCardsOffScreenFlg NC.NoteCardsParameters
NC.SpecialBrowserMiddleButtonFn NCINITIALGLOBALPARAMS
NC.UseDeletedLinkIconIndicatorsFlg NC.DelTEditProcessAtShrinkFlg
NC.UserSpecifiedTEditProps NC.AskTEditPropsWindowWidth
NC.AskTEditPropsWindowHeight NC.NoteFileMenuLingerFlg
NC.DefaultIndexSizeInEntries NC.MsgDelay NC.LinkIconMultiLineMode
NC.LinkIconMaxWidth)
(INITVARS (NC.FixedMenuFlg NIL)
(NC.ShortWindowMenuFlg T)
(NC.ShowNoteFileOnCards T)
(NC.IncludeCardObjectInShowInfo NIL)
(NC.ForceSourcesFlg NIL)
(NC.ForceFilingFlg T)
(NC.ForceTitlesFlg T)
(NC.MarkersInFileBoxesFlg T)
(NC.AlphabetizedFileBoxChildrenFlg NIL)
(NC.LinkIconAttachBitmapFlg T)
(NC.LinkIconShowTitleFlg T)
(NC.LinkIconShowLinkTypeFlg NIL)
(NC.LinkDashingInBrowser NIL)
(NC.ArrowHeadsInBrowser (QUOTE None))
(NC.MainMenuPosition NIL)
(World5File (QUOTE {DSK}WORLD5.MAPDATA))
(NC.SpecialBrowserSpecsFlg NIL)
(NC.AnnoFlg NIL)
(NC.DefaultCardType (QUOTE Text))
(NC.CloseCardsOffScreenFlg NIL)
(NC.BringUpCardAtOldPosFlg NIL)
(NC.EnableBravoToTEditConversionFlg NIL)
(NC.DefaultFont (FONTCREATE (QUOTE TimesRoman)
12))
(NC.LinkIconFont (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD)))
(NC.NoteFileIndicatorFont (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD)))
(NC.MenuFont (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD)))
(NCINITIALGLOBALPARAMS NIL)
(NC.UseDeletedLinkIconIndicatorsFlg T)
(NC.DelTEditProcessAtShrinkFlg NIL)
(NC.UserSpecifiedTEditProps NIL)
(NC.AskTEditPropsWindowWidth 425)
(NC.AskTEditPropsWindowHeight 70)
(NC.NoteFileMenuLingerFlg T)
(NC.DefaultIndexSizeInEntries 1000)
(NC.MsgDelay 1500)
(NC.LinkIconMultiLineMode NIL)
(NC.LinkIconMaxWidth SCREENWIDTH))
(GLOBALVARS NC.ListOfFontFamilies NC.ListOfFontSizes NC.ListOfFontFaces)
[INITVARS (NC.ListOfFontFamilies (QUOTE (TIMESROMAN HELVETICA GACHA CLASSIC MODERN
TERMINAL TITAN CREAM OLDENGLISH)))
(NC.ListOfFontSizes (QUOTE (8 9 10 11 12 14 18 24 30 36)))
(NC.ListOfFontFaces (QUOTE (STANDARD BOLD ITALIC BOLDITALIC]
[DECLARE: DONTEVAL@LOAD DOCOPY (PROPS (NC.NoteCardsParameters DefaultCardType)
(NC.NoteCardsParameters
MenuLingersAfterNoteFileClose)
(NC.NoteCardsParameters ShowNoteFileOnCards)
(NC.NoteCardsParameters NewNoteFileInitialSize)
(NC.NoteCardsParameters ForceFiling)
(NC.NoteCardsParameters ForceTitles)
(NC.NoteCardsParameters CloseCardsOffScreen)
(NC.NoteCardsParameters BringUpCardsAtPreviousPos)
(NC.NoteCardsParameters MarkersInFileBoxes)
(NC.NoteCardsParameters AlphabetizedFileBoxChildren)
(NC.NoteCardsParameters DefaultLinkIconAttachBitmap)
(NC.NoteCardsParameters DefaultLinkIconShowTitle)
(NC.NoteCardsParameters DefaultLinkIconShowLinkType)
(NC.NoteCardsParameters UseDeletedLinkIconIndicators)
(NC.NoteCardsParameters DelTEditProcessWhenShrinking)
(NC.NoteCardsParameters ExtraTEditProps)
(NC.NoteCardsParameters EnableBravoToTEditConversion)
(NC.NoteCardsParameters IncludeCardObjectInShowInfo)
(NC.NoteCardsParameters LinkDashingInBrowsers)
(NC.NoteCardsParameters ArrowHeadsInBrowsers)
(NC.NoteCardsParameters SpecialBrowserSpecs)
(NC.NoteCardsParameters DefaultFont)
(NC.NoteCardsParameters LinkIconFont)
(NC.NoteCardsParameters MenuFont)
(NC.NoteCardsParameters NoteFileIndicatorFont)
(NC.NoteCardsParameters LinkIconMultiLineMode)
(NC.NoteCardsParameters LinkIconMaxWidthInPixels)
(NC.NoteCardsParameters LinkIconBorderWidth)
(NC.NoteCardsParameters NewCrossFileLinksMode))
(VARS (NC.NoteCardsParameters (PROPNAMES (QUOTE NC.NoteCardsParameters]
(* * Parameter Inspector & Editor)
(RECORDS GLOBALPARAMETER)
(FNS NC.BuildInspector NC.InspectorFetchFn NC.InspectorSelectionFn
NC.DefaultCardTypeSelectionFn NC.DefaultCardTypeCheckFn
NC.ArrowHeadsInBrowserSelectionFn NC.ArrowHeadsInBrowserCheckFn
NC.EnableBravoToTEditConversionFetchFn NC.EnableBravoToTEditConversionSelectionFn
NC.DefaultFontFetchFn NC.DefaultFontSelectionFn NC.GetFontFromUser
NC.FontFaceShorthand NC.UserSpecifiedTEditPropsSelectionFn
NC.UserSpecifiedTEditPropsCheckFn NC.DefaultLinkIconParametersSelectionFn
NC.ClearAllLinkIconImageBoxCaches NC.SetNewFileInitialSize NC.MenuFontAfterChangeFn
NC.NewCrossFileLinksModeSelectionFn NC.NewCrossFileLinksModeCheckFn)
(FNS NC.SetLinkIconMaxWidth NC.SetLinkIconBorderWidth)))
(PUTPROPS NCINTERFACE FileComs ((* * Internal variables)
(GLOBALVARS NCP.NoticedNoteFileNames NC.NoticedNoteFilesMenuNewItem
NC.NoticedNoteFilesMenu NC.CachedMenus NC.NoteCardsIconPosition
NC.SelectionInProgress NC.SelectedCards NC.SelectingSourcesMenu
NC.SelectingContentsMenu NC.SelectingSingleCardMenu
NC.SelectingMultipleCardsMenu NC.DeleteSelectingMenu NC.SelectingParentsMenu
NC.SelectingBrowserSourceMenu NC.SelectingFileBoxChildrenMenu
NC.SelectingCardsMenu NC.SelectingCardMenu NC.TEditMenus NC.NoteCardTypeMenu
NC.DatabaseOperationsMenu NC.LinkLabelMenu NC.WindowRightButtonMenu
NC.LogoWindow LOGOW ExecWindow PROCESS.STATUS.WINDOW QUADTREE.HIGHRES
NC.BrowseOrSearchMenu FONTDIRECTORIES NC.DatabaseFileNameSuggestion
NC.UncachingNotCompleted NC.UnspecifiedLinkLabel NC.UCASESystemLinkLabels
NC.MainMenuPosition NC.NoteCardsIconWindow NC.NewCardsIconBitmap
NC.BoxesIconBitmap NC.NoteFileIndicatorFont NC.NoteFileMenuLingerFlg
NC.FileBrowserExpungeMenuItem NC.FileBrowserRecomputeMenuItem
NC.FileBrowserMenuItemsToKeep NC.DefaultNoteFileIconMiddleButtonItems
NC.OpenedNoteFileMenu NC.ClosedNoteFileMenu NC.NoteFileIconOperationsMenuItems
NC.NoteFileIconOpenOperations NC.NoteFileIconCloseOperations
NC.NoteCardTypeMenu NC.DefaultLeftButtonMenuItems NC.LocalInsertLinkMenuItem
NC.GlobalInsertLinkMenuItem NC.DefaultMiddleButtonMenuItems
NC.PromptWindowMonitorLock)
(INITVARS (NC.LinkLabelMenu NIL)
(NC.LinkDisplayModesMenu NIL)
(NC.DatabaseFileNameSuggestion NIL)
(NC.TEditMenus NIL)
(NC.OpenedNoteFileMenu NIL)
(NC.ClosedNoteFileMenu NIL)
(NCP.NoticedNoteFileNames NIL)
(NC.NoteCardsIconPosition)
(NC.PromptWindowMonitorLock (CREATE.MONITORLOCK "PromptWindowMonitorLock"))
(NC.FileNameFont (FONTCREATE (QUOTE HELVETICA)
10
(QUOTE BOLD)))
(NC.FullFileNameFont (FONTCREATE (QUOTE HELVETICA)
8
(QUOTE STANDARD)))
(NC.MaxFileNameChars 18))
(* * Setup and top level interaction)
[DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILE (P (LOAD? (NC.FindFile (QUOTE FILEBROWSER)
NIL NIL T)
(QUOTE PROP]
(FNS NoteCards NC.MakeMainMenu NC.LogoutAdvice NC.AttachPromptWindow
NC.AttachPromptWindowOffScreen NC.GETPROMPTWINDOW NC.MaxPromptWindowWidth
NC.PromptWindowOpenP)
(* * Menus of all sorts)
(DECLARE: DONTEVAL@LOAD (VARS (NC.CachedMenus (QUOTE (NC.NoteCardTypeMenu
NC.LinkIconMiddleButtonMenu
NC.CardOpsMenu
NC.NoteFileOpsMenu
NC.OtherOpsMenu)))
(NC.NoticedNoteFilesMenu)
(NC.NoticedNoteFilesMenuNewItem)))
(FNS NC.AskLinkLabel NC.AskNoteCardType NC.ChooseTopLevelCard NC.RemoveSketchMenuItems
NC.SelectionMenusWhenSelectedFn NC.InstallTitleBarButtonEventFn
NC.InstallTitleBarLeftMenu NC.InstallCopyButtonEventFn
NC.NoteFileTitleLeftWhenSelectedFn NC.MakeNoteFileIconOperationsMenus
NC.ResetCachedMenus NC.CreateNoteFileMenuItems NC.GetNoteFileMenu NC.SetNoteFileMenu
NC.PrintReadOnlyMsg NC.CopyMenu NC.ReadOnlyTEditSelFn NC.MakeTEditReadOnly
NC.MakeTEditReadWrite)
(* * Selection Mechanism)
(DECLARE: DONTEVAL@LOAD (VARS NC.SelectionInProgress))
(FNS NC.SelectNoteCards NC.ZapBinLoopProcess NC.SelectNoteCardsCopyInsertFn
NC.CopyButtonEventFn NC.CardImageObjP NC.MakeCardImageObject)
(GLOBALVARS NC.CardImageObjFns)
[DECLARE: DONTEVAL@LOAD (VARS (NC.CardImageObjFns (IMAGEFNSCREATE]
(* * Fix up Lisp)
(DECLARE: DONTEVAL@LOAD (ADVISE LOGOUT))
(* * Stuff for creating and operating the NoteCards session icon.)
(GLOBALVARS NC.CardOpsMenu NC.CardOpsItems NC.NoteFileOpsMenu NC.NoteFileOpsItems
NC.OtherOpsMenu NC.OtherOpsItems NC.NoteCardsIconBitmap)
(DECLARE: DONTEVAL@LOAD DOCOPY (VARS NC.NoteCardsIconWindow)
(BITMAPS NCCURSOR NC.NoteCardsIconBitmap NC.NewCardsIconBitmap
NC.BoxesIconBitmap NC.OldStyleIconBitmap NC.NoteCardsIconMask
NC.NoteCardsIconShrunkenBitmap NC.NoteCardsIconShrunkenMask))
(FNS NC.NoteCardsWindowP NC.NoteCardsIconWindowP NC.MakeNoteCardsIcon
NC.BringUpNoteCardsIcon NC.NoteCardsIconAfterMoveFn NC.FileBrowserMenu
NC.ListOfNoteFilesMenu NC.CheckpointSession NC.CloseSession)
(DECLARE: DONTEVAL@LOAD (ADDVARS (NC.NoteFileIconOperationsMenuItems
(Open NIL "Opens this NoteFile."
(SUBITEMS (Read-only% Open NIL
"Opens this NoteFile for read-only.")))
(Checkpoint NIL
"Checkpoint this NoteFile, saving changed cards.")
(Close NIL "Closes this NoteFile."
(SUBITEMS (Close% w/o% confirm NIL
"Close this notefile w/o asking for user confirm before closing open cards.")))
(Abort NIL
"Close NF, deleting changes since last checkpoint.")
(Compact NIL "Compacts this NoteFile to a new file."
(SUBITEMS (Compact% To% New% File NIL
"Compact a NoteFile copying to a new file.")
(Compact% In% Place NIL
"Compact a NoteFile w/o copying to a new file.")))
(Inspect&Repair NIL
"Inspects and optionally repairs this NoteFile."
(SUBITEMS (Read% Substances NIL
"Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down.")))
(Copy NIL "Copies this notefile to a target file.")
(Rename NIL "Rename this NoteFile")
(Delete NIL "Deletes this NoteFile."))
(NC.NoteFileIconOpenOperations Open Checkpoint Close
Abort Close% w/o% confirm)
(NC.NoteFileIconCloseOperations Open Compact
Read-only% Open
Inspect&Repair
Read% Substances Copy
Rename Delete
Compact% To% New% File
Compact% In% Place)))
(GLOBALVARS NC.InitialNoteFileIconOperationsMenuItems NC.InitialNoteFileIconOpenOperations
NC.InitialNoteFileIconCloseOperations NC.ShowPropListMenu NC.EditPropListMenu)
(DECLARE: DONTEVAL@LOAD (VARS (NC.InitialNoteFileIconOperationsMenuItems
NC.NoteFileIconOperationsMenuItems)
(NC.InitialNoteFileIconOpenOperations
NC.NoteFileIconOpenOperations)
(NC.InitialNoteFileIconCloseOperations
NC.NoteFileIconCloseOperations)))
[INITVARS (NC.DefaultMiddleButtonMenuItems NIL)
(NC.ShowPropListMenu (create MENU ITEMS ← (QUOTE (("Quit" (NC.ClosePropListEditor
W
(QUOTE NoSave))
"Quit from pointer list display.")))
CENTERFLG ← T MENUFONT ← NC.MenuFont ITEMHEIGHT ←
(IPLUS (FONTPROP NC.MenuFont (QUOTE HEIGHT))
1)))
(NC.EditPropListMenu (create MENU ITEMS ← (QUOTE (("Add New Property"
(NC.AddPropToPropList W)
"Add a new property to this card's property list.")
("Delete Selected Property"
(NC.DelPropFromList W)
"Delete selected property from this card's property list.")
("Quit w/o Saving Changes"
(NC.ClosePropListEditor
W
(QUOTE NoSave))
"Quit from property list edit. Changes are not saved.")
("Quit - Saving Changes"
(NC.ClosePropListEditor
W
(QUOTE Save))
"Quit from property list editor. Save changes.")))
CENTERFLG ← T MENUFONT ← NC.MenuFont ITEMHEIGHT ←
(IPLUS (FONTPROP NC.MenuFont (QUOTE HEIGHT))
1)))
[NC.LocalInsertLinkMenuItem (QUOTE (Insert% Link
(FUNCTION NC.AddLinkToCard)
"Insert a link to another card at the currently selected point in the text."
(SUBITEMS (Insert% Link
(FUNCTION NC.AddLinkToCard)
"Insert a link to another card at the currently selected point in the text.")
(Insert% Links
(FUNCTION NC.AddLinksToCard)
"Insert links to other cards at the currently selected point in the text.")
(Add% Global% Link
(FUNCTION
NC.AddGlobalLinkToCard)
"Add a global link emanating from this card.")
(Add% Global% Links
(FUNCTION
NC.AddGlobalLinksToCard)
"Add multiple global links emanating from this card."]
[NC.GlobalInsertLinkMenuItem (QUOTE (Add% Global% Link
(FUNCTION NC.AddGlobalLinkToCard)
"Add a global link emanating from this card."
(SUBITEMS (Add% Global% Link
(FUNCTION
NC.AddGlobalLinkToCard)
"Add a global link emanating from this card.")
(Add% Global% Links
(FUNCTION
NC.AddGlobalLinksToCard)
"Add multiple global links emanating from this card."]
(NC.DefaultLeftButtonMenuItems
(BQUOTE ((Edit% Property% List (FUNCTION NC.EditProperties)
"Brings up an editor for the property list of this card.")
(Show% Links (FUNCTION NC.ShowLinks)
"Brings up a list of the links to and from this card.")
(Show% Info (FUNCTION NC.ShowInfo)
"Brings up a window containing special information about this card."
(SUBITEMS (Indicate% NoteFile (FUNCTION
NC.AttachNoteFileName)
"Shows the name of this card's NoteFile.")))
(Designate% FileBoxes (FUNCTION NC.AddParents)
"File this note card in one or more file boxes."
(SUBITEMS (Unfile% from% FileBoxes
(FUNCTION NC.UnfileNoteCard)
"Remove this card from one or more of its file boxes.")))
(Assign% Title (FUNCTION NC.AssignTitle)
"Assigns a (new) title to this note card.")
(Title/FileBoxes (FUNCTION [LAMBDA (TextStream)
(NC.AssignTitle TextStream)
(NC.AddParents TextStream])
"Do both assigning of title and filing in fileboxes.")
, NC.LocalInsertLinkMenuItem
(Close% and% Save (FUNCTION CLOSEW)
"Close this note card after saving it in the NoteFile."
(SUBITEMS (Close% and% Save (FUNCTION CLOSEW)
"Close this note card after saving it in the NoteFile.")
(Close% w/o% Saving
(FUNCTION NC.QuitWithoutSaving)
"Close this note card without saving any changes made since the last Save.")
(Save% in% NoteFile
(FUNCTION NC.CardSaveFn)
"Save this card in the NoteFile but don't close the card.")
(Delete% Card (FUNCTION NC.DeleteNoteCard)
"Permanently delete this card from the NoteFile."]
[DECLARE: DONTEVAL@LOAD
(ADDVARS [NC.CardOpsItems (% Close% (NC.CloseNoteCards NIL
NC.NoteCardsIconWindow)
"Delete several note cards."
(SUBITEMS (Close% Structure (
NC.CloseStructure NIL NIL NC.NoteCardsIconWindow)
"Close note cards belonging to a structure.")))
(% Delete% (NC.DeleteNoteCards NIL T NIL
NC.NoteCardsIconWindow)
"Delete several note cards."
(SUBITEMS (Delete% Structure (
NC.DeleteStructure NIL NIL NC.NoteCardsIconWindow)
"Delete note cards belonging to a structure.")))
(% Copy% (NC.CopyCards NIL NIL NIL NIL
NC.NoteCardsIconWindow)
"Copy note cards to a filebox"
(SUBITEMS (Copy% Structure (NC.CopyStructure
NIL NIL NIL
NC.NoteCardsIconWindow)
"Copy note cards belonging to a structure.")))
(% Move% (NC.MoveCards NIL NIL NIL NIL
NC.NoteCardsIconWindow)
"Move note cards to a filebox"
(SUBITEMS (Move% Structure (NC.MoveStructure
NIL NIL NIL
NC.NoteCardsIconWindow)
"Move note cards belonging to a structure."]
(NC.NoteFileOpsItems (% Open% (NC.DoNoteFileOp (QUOTE Open% NoteFile))
"Opens a notefile."
(SUBITEMS (Read-only% Open
(NC.DoNoteFileOp
(QUOTE Read-only% Open))
"Open a notefile for read-only.")))
(% Checkpoint% (NC.DoNoteFileOp (QUOTE
Checkpoint% NoteFile))
"Checkpoint a NoteFile"
(SUBITEMS (Checkpoint% All
(NC.CheckpointSession)
"Checkpoint all currently open NoteFiles")))
(% Close% (NC.DoNoteFileOp (QUOTE Close% NoteFile)
)
"Close a notefile."
(SUBITEMS (Close% w/o% confirm
(NC.DoNoteFileOp
(QUOTE
Close% w/o% confirm))
"Close a notefile w/o asking for user confirm before closing open cards.")
(Close% All (NC.CloseSession)
"Close all currently open NoteFiles")
(Close% All% w/o% confirm
(NC.CloseSession NIL T)
"Close all open notefiles w/o asking for user confirm before closing open cards.")))
(% Abort% (NC.DoNoteFileOp (QUOTE Abort% NoteFile)
)
"Close NF, deleting changes since last checkpoint."
(SUBITEMS (Abort% All (NC.CloseSession
T)
"Abort all currently open NoteFiles")))
(% Compact% (NC.DoNoteFileOp (QUOTE
Compact% NoteFile))
"Compact a NoteFile."
(SUBITEMS (Compact% To% New% File
(NC.DoNoteFileOp
(QUOTE
Compact% NoteFile))
"Compact a NoteFile copying to a new file.")
(Compact% In% Place
(NC.DoNoteFileOp
(QUOTE
Compact% In% Place))
"Compact a NoteFile w/o copying to a new file.")))
(% Inspect&Repair%
(NC.DoNoteFileOp (QUOTE Inspect&Repair% NoteFile)
)
"Do an Inspect & Repair on a NoteFile."
(SUBITEMS (Read% Substances (NC.DoNoteFileOp
(QUOTE
Read% Substances))
"Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down.")))
(% Copy% (NC.DoNoteFileOp (QUOTE Copy% NoteFile))
"Copy a NoteFile.")
(% Rename% (NC.DoNoteFileOp (QUOTE
Rename% NoteFile))
"Rename a NoteFile")
(% Delete% (NC.DoNoteFileOp (QUOTE
Delete% NoteFile))
"Delete a NoteFile")
(% Create% (NC.DoNoteFileOp (QUOTE
Create% NoteFile))
"Create a new NoteFile w/o opening it."
(SUBITEMS (% Create% and% Open%
(NC.DoNoteFileOp
(QUOTE Create% and% Open)
)
"Create a new NoteFile and open it.")))
(% --------% NIL "")
(% NC% FileBrowser% (NC.FileBrowserMenu
NC.NoteCardsIconWindow)
"Bring up a NoteFile browser."))
(NC.OtherOpsItems
(% Edit% Parameters% (NC.BuildInspector)
"Adjust NoteCards profile for this session.")
(% NF% Indicators% On% (NC.ShowNoteFiles)
"Turn on the NoteFile indicator for all currently open cards"
(SUBITEMS (Indicators% Off (NC.ShowNoteFiles
T)
"Turn off any NoteFile indicator on each card on the screen.")))
(% TEdit% Killer% On%
(START-TEDIT-KILLER)
"Start the TEDIT-KILLER process."
(SUBITEMS (TEdit% Killer% Off (STOP-TEDIT-KILLER)
"Stop the TEDIT-KILLER process.")
(New% Process% Limit (SETQ
TEDIT-PROCESS-LIMIT
(OR (NUMBERP (RNUMBER
(CONCAT
"Old TEdit process limit: "
TEDIT-PROCESS-LIMIT)
NIL NIL NIL T))
TEDIT-PROCESS-LIMIT))
"Change value of TEdit process limit.")
(New% Wait% Time (SETQ TEDIT-KILLER-WAIT-TIME
(OR (NUMBERP (RNUMBER
(CONCAT
"Old TEdit killer wait time: "
TEDIT-KILLER-WAIT-TIME)
NIL NIL NIL T))
TEDIT-KILLER-WAIT-TIME))
"Change value of TEdit killer wait time.")))
(% Session% Icon% Style% NIL
"Change the style of the NoteCards session icon."
(SUBITEMS (% Old% Style%
(NC.ResetNoteCardsIcon
(QUOTE OldStyle))
"Change session icon to Roll-through style")
(% New% Style%
(NC.ResetNoteCardsIcon
(QUOTE NewStyle))
"Change session icon to Filebox style"]
(GLOBALVARS NC.InitialCardOpsItems NC.InitialNoteFileOpsItems NC.InitialOtherOpsItems)
(DECLARE: DONTEVAL@LOAD (VARS (NC.InitialCardOpsItems NC.CardOpsItems)
(NC.InitialNoteFileOpsItems NC.NoteFileOpsItems)
(NC.InitialOtherOpsItems NC.OtherOpsItems)))
(DECLARE: DONTEVAL@LOAD (VARS (NC.CardOpsMenu)
(NC.OtherOpsMenu)
(NC.NoteFileOpsMenu)))
(GLOBALVARS NC.NoteCardsIconMenuBitMap NC.OldStyleIconMenuBitmap NC.OldStyleIconBitmap
NC.OldStyleIconMenuBitmap NC.NoteCardsIconMask NC.NoteCardsIconShrunkenBitmap
NC.NoteCardsIconShrunkenMask NC.OtherOpsItems NC.OtherOpsMenu)
(DECLARE: DONTEVAL@LOAD (VARS (NC.NoteCardsIconMenuBitMap)
(NC.OldStyleIconMenuBitmap)))
(FNS NC.RedisplayNoteCardsIconWindow NC.NoteCardsIconButtonEventFn NC.DoNoteFileOp
NC.NoteCardsIconCursorEventFn NC.NoteCardsIconFn NC.ResetNoteCardsIcon
NC.MakeNewStyleNoteCardsIcon NC.MakeOldStyleNoteCardsIcon)
(* * Command Menu interface to NC functions)
(FNS NC.CloseNoteCards NC.CopyStructure NC.CloseStructure NC.DeleteStructure
NC.MoveStructure)
(* * NoteFile interface)
(FNS NC.NoteFileMenuWindowP NC.SetUpNoteFileInterface NC.ResetNoteFileInterface
NC.NoteFileIconButtonEventFn NC.NoteFileOperations NC.NoteFileIconMiddleButtonFn
NC.PopUpNoteFileName)
[DECLARE: DONTEVAL@LOAD (VARS (NC.DefaultNoteFileIconMiddleButtonItems
(QUOTE ((Full% File% Name NC.PopUpNoteFileName
"Display full file name of this notefile."]
(* * Show NoteFile Indicators)
(FNS NC.ShowNoteFiles NC.AttachNoteFileName NC.MakeNoteFileNameIndicator
NC.NoteFileIndicatorWinHeight)
(* * File Browser)
(GLOBALVARS NC.FileBrowserMenuItemsToRemove NC.FileBrowserMenuItemsToAdd
NC.FileBrowserMenuItems NC.FileBrowserPatterns NC.FileBrowserDefaultPatterns)
[DECLARE: DONTEVAL@LOAD (VARS (NC.FileBrowserMenuItemsToRemove (QUOTE (Hardcopy See Edit
Load
Compile
Copy
Rename
Expunge)))
(NC.FileBrowserMenuItemsToKeep (QUOTE (Delete Undelete
Recompute Sort)
))
[NC.FileBrowserMenuItemsToAdd
(QUOTE ((Open NC.FileBrowserOpen
"Open selected Notefiles."
(SUBITEMS (Read-only% Open (
NC.FileBrowserOpen INPUT)
"Open selected Notefiles for read-only.")))
(Checkpoint NC.FileBrowserCheckpoint
"Checkpoint the selected Notefiles, saving dirty cards.")
(Close NC.FileBrowserClose
"Close selected Notefiles.")
(Abort NC.FileBrowserAbort
"Aborts the selected Notefiles losing work since last checkpoint.")
(Compact NC.FileBrowserCompact
"Compacts selected Notefiles copying to new files."
(SUBITEMS (Compact% To% New% File
NC.FileBrowserCompact
"Compacts selected Notefiles copying to new files.")
(Compact% In% Place
(NC.FileBrowserCompact
(QUOTE InPlace))
"Compacts selected Notefiles w/o copyig to new files.")))
(Inspect&Repair NC.FileBrowserInspect&Repair
"Inspects and optionally repairs selected Notefiles."
(SUBITEMS
(Read% Substances
(NC.FileBrowserInspect&Repair
(QUOTE ReadSubstances))
"Inspects and optionally repairs selected Notefiles, but reads every substance. This slows things WAY down."
)))
(Copy FB.COPYCOMMAND
"Copies given notefile(s) to target file (or directory).")
(Rename FB.RENAMECOMMAND
"Moves given notefile(s) to target file (or directory)."]
(NC.FileBrowserExpungeMenuItem (QUOTE (Expunge
NC.FileBrowserExpunge
"Permanently removes from the file system all files marked for deletion")))
(NC.FileBrowserRecomputeMenuItem
(QUOTE (Recompute FB.UPDATECOMMAND
"Recomputes set of notefiles satisfying selection pattern"
(SUBITEMS ("Same Pattern"
FB.UPDATECOMMAND
"Recomputes set of files satisfying current pattern")
("New Pattern"
NC.FileBrowserRecomputeWithNewPattern
"Prompts for a new selection pattern and updates browser")
("New Info" FB.NEWINFOCOMMAND
"Change the set of file attributes that are displayed"]
(* * Build the menu items for notecards file browser.)
[DECLARE: DONTEVAL@LOAD (VARS (NC.FileBrowserMenuItems
(APPEND NC.FileBrowserMenuItemsToAdd
(for MenuItem in FB.MENU.ITEMS when
(FMEMB (CAR MenuItem)
NC.FileBrowserMenuItemsToKeep)
collect
(if (EQ (CAR MenuItem)
(QUOTE Recompute))
then NC.FileBrowserRecomputeMenuItem else
MenuItem))
(LIST NC.FileBrowserExpungeMenuItem)
(for MenuItem in FB.MENU.ITEMS unless
(OR (FMEMB (CAR MenuItem)
NC.FileBrowserMenuItemsToRemove)
(FMEMB (CAR MenuItem)
NC.FileBrowserMenuItemsToKeep))
collect MenuItem]
[INITVARS (NC.FileBrowserPatterns NIL)
(NC.FileBrowserDefaultPatterns (QUOTE ({DSK}*.NOTEFILE;*]
(* * Functions called from file browser menu.)
(FNS NC.FileBrowserOpen NC.FileBrowserClose NC.FileBrowserCheckpoint NC.FileBrowserAbort
NC.FileBrowserCompact NC.FileBrowserInspect&Repair NC.FileBrowserExpunge
NC.GetFileBrowserPattern NC.FileBrowserRecomputeWithNewPattern
NC.FindFileBrowserWinForPattern)
(FNS NC.FlashFileBrowserWin)))
(PUTPROPS NCDATABASE FileComs [(* * Internal variables)
(GLOBALVARS NC.LockLock NC.SessionProcessInProgress NC.SessionOperationInProgress
NC.NoteFileBusyList NC.CardBusyList NC.LinksIdentifier NC.ItemIdentifier
NC.TitlesIdentifier NC.PropsIdentifier NC.IdentifierAtoms
NC.DatabaseFileNameSuggestion NC.VersionNumber NC.InitialLinkLabels
NC.DataFormatVersionNumber NC.DateStringLength NC.ClippedIdentifierAtoms
NC.MainMenu NC.OrigReadTable NC.TEditPasswordDividedBy100
NC.NoteFileVersionsList NC.NoteFilesHashArray NC.NoteFilesHashArraySize
NC.UIDCtr NC.LastNoteFileOpened NC.CopyCardsLinksHashArraySize
NC.CopyBrowserHashArraySize NC.IndexFractionToExpandBy)
(DECLARE: DONTEVAL@LOAD (VARS (NC.VersionNumber 3)
(NC.LinksIdentifier (QUOTE ###LINKS#))
(NC.ItemIdentifier (QUOTE ###ITEM#))
(NC.TitlesIdentifier (QUOTE ###TITLES#))
(NC.PropsIdentifier (QUOTE ###PROPS#))
(NC.IdentifierAtoms (LIST NC.LinksIdentifier
NC.ItemIdentifier
NC.TitlesIdentifier
NC.PropsIdentifier))
(NC.LastNoteFileOpened NIL)
(NC.NoticedNoteFileNames NIL)))
(INITVARS (NC.LockLock (CREATE.MONITORLOCK "NoteCards Meta-lock"))
(NC.SessionProcessInProgress NIL)
(NC.SessionOperationInProgress NIL)
(NC.NoteFileBusyList NIL)
(NC.CardBusyList NIL)
(NC.OrigReadTable (COPYREADTABLE (QUOTE ORIG)))
(NC.NoteFilesHashArraySize 50)
(NC.UIDCtr 0)
(NC.CopyCardsLinksHashArraySize 100)
(NC.CopyBrowserHashArraySize 100)
(NC.IndexFractionToExpandBy .5))
(* Vars for date stuff.)
[DECLARE: DONTEVAL@LOAD (VARS (NC.DataFormatVersionNumber 1)
(NC.DateStringLength 18)
(NC.ClippedIdentifierAtoms (for Atom in NC.IdentifierAtoms
collect
(SUBATOM Atom 1 -3]
(* * The Notecard Database)
(DECLARE: DONTCOPY (RECORDS MONITORLOCK WORD))
(* * Implementing the notefile device vector)
(RECORDS NoteFileDevice)
(FNS NC.CompactNoteFile NC.RemoteHostP NC.DeviceVectorForHost NC.InspectAndRepairNoteFile
NC.InstallDeviceVectorInNoteFile)
(GLOBALVARS NC.DeviceVectorsHashArray NC.OpenLocalNoteFilesPublicOrPrivate)
(INITVARS (NC.DeviceVectorsHashArray (HASHARRAY 10))
(NC.OpenLocalNoteFilesPublicOrPrivate (QUOTE PRIVATE)))
(* * Creating a NoteFile)
(FNS NC.CreateDatabaseFile NC.CreateNoteFile NC.InitializeSpecialCards
NC.InitializeSpecialCard)
(* * Opening a NoteFile)
(FNS NC.NoteFileOpenP NC.OpenDatabaseFile NC.OpenNoteFile NC.CacheTypesAndTitles
NC.AskUserAboutTruncation NC.InstallCriticalUIDsInNoteFile
NC.ProcessInspectAndRepairRequest NC.ProcessNoteFileNotFoundError
NC.ProcessTruncationRequest NC.ProcessNoteFileNeedsConversionError
NC.ProcessNoteFileNeedsTruncationError)
(RECORDS NoteFileCriticalUIDs)
(GLOBALVARS NC.OpenNoteFileFns NC.CloseNoteFileFns)
(INITVARS NC.OpenNoteFileFns NC.CloseNoteFileFns)
(* * Open events card)
(FNS NC.RunOpenEvents NC.RunCloseEvents)
(DECLARE: DONTEVAL@LOAD (ADDVARS (NC.OpenNoteFileFns NC.RunOpenEvents)
(NC.CloseNoteFileFns NC.RunCloseEvents)))
(* * closing notefiles.)
(FNS NC.CloseDatabaseFile NC.CloseNoteFile NC.CloseListOfActiveCards NC.CleanupCardObjects)
(GLOBALVARS NC.CloseNoteFileFns)
(INITVARS NC.CloseNoteFileFns)
(* * Checkpointing)
(FNS NC.CheckpointDatabase NC.CheckpointNoteFile NC.SaveDirtyCards)
(* * Aborting an open NoteFile)
(FNS NC.AbortSession NC.ForceDatabaseClose)
(* * Stuff to handle read-only notefiles.)
(FNS NC.ReadOnlyNoteFileP NC.CheckForNotReadOnly)
(* * Other database operations.)
(* see also NCCOMPACT)
(FNS NC.DeleteDatabaseFile NC.CopyNoteFile NC.RenameNoteFile NC.RemoveAccessToNoteFile)
(* * Functions for getting stuff off the notefile. These manipulate file pointer so run
with monitor lock.)
(MACROS NC.DoCardPartFn)
(FNS NC.GetNoteCard NC.GetMainCardData NC.GetLinks NC.GetTitle NC.GetPropList NC.GetType
NC.GetSpecialCards)
(FNS NC.FetchSpecialCards)
(* * Functions for putting stuff on the notefile. These manipulate file pointer so run
with monitor lock.)
(FNS NC.PutNoteCard NC.PutMainCardData NC.PutLinks NC.PutFromLinks NC.PutRegion
NC.PutTitle NC.PutPropList NC.PutNoteFileHeader NC.PutCheckptPtr)
(* * Functions for reading things off the notefile. Expect file pointer to already be set.)
(FNS NC.ReadCardPartHeader NC.ReadIdentifier NC.ReadRegion NC.ReadListOfLinks NC.ReadUID
NC.ReadDate NC.ReadCardType NC.ReadTitle NC.ReadPropList NC.ReadLink)
(* * Functions for writing things on the notefile. Expect file pointer to already be set.)
(FNS NC.WriteCardPartHeader NC.WriteIdentifier NC.WriteRegion NC.WriteListOfLinks
NC.WriteUID NC.WriteDate NC.WriteCardType NC.WriteTitle NC.WritePropList NC.WriteLink)
(* * The NoteFile object, Notefiles hash array and accompanying functions.)
(RECORDS NoteFile)
(FNS NC.NoteFileFromNoteFileUID NC.FetchTopLevelCards NC.StoreNoteFileInHashArray
NC.RemoveNoteFile NC.TotalIndexSize NC.NoteFileLocFromIndexNum NC.FetchMonitor
NC.SetMonitor NC.SameNoteFileP NC.ListOfNoteFiles NC.NoteFileFromFileName)
(FNS NC.RemoveNoteFileFromHashArray NC.RemoveNoteFileName NC.NoticeNoteFile
NC.NoticeNoteFileName NC.NoticedNoteFileNamesMenu NC.NoteFileNoticedP)
(* * Stuff for dealing with the hash array.)
(FNS NC.InstallCardInNoteFile NC.CardFromUID)
(FNS NC.MakeHashKey NC.CreateUIDHashArray)
(INITVARS (NC.NoteFilesHashArray (NC.CreateUIDHashArray NC.NoteFilesHashArraySize)))
(* * Stuff for dealing with CardLocs.)
(FNS NC.SetStatus NC.SetMainLoc NC.SetLinksLoc NC.SetTitleLoc NC.SetPropListLoc)
(* * The version object.)
(RECORDS NoteFileVersion)
[DECLARE: DONTEVAL@LOAD
(VARS (NC.NoteFileVersionsList (LIST (create NoteFileVersion Version ← 3
NumberOfReservedCards ← 20
NoteFileIndexWidth ← 28
NoteFileHeaderSize ← 30]
(FNS NC.FetchCurrentVersionObject)
(* * Stuff for copying cards from one notefile to another, or to the same.)
(RECORDS IndexLocs)
(RECORDS CardPartRecord)
(FNS NC.CopyCards NC.MoveCards NC.PutNoteCardToStream NC.GetNoteCardFromStream
NC.MakeHashKeyFromCard)
(FNS NC.CopyCardPart NC.ExpandIndexInPlace NC.CheckForExpandIndex NC.FindNextCardPart
NC.SearchFor### NC.RobustReadItemIdentifier NC.RobustReadDate NC.RobustReadUID
NC.RobustReadChar NC.RobustReadByte NC.RobustRead NC.CopyCardPartInPlaceToEOF
NC.UpdateIndexLocIfNeeded)
(FNS NC.FixUpLinksInCardCopy NC.FixUpBrowserCardCopy NC.BrowserCopyConvertGraphNodeID)
(* * Traversal specs, should be in an NCTRAVERSAL module.)
(RECORDS TRAVERSALSPECS)
(GLOBALVARS NC.TraversalSpecsStylesheet)
[DECLARE: DONTEVAL@LOAD (VARS (NC.TraversalSpecsStylesheet (CREATE.STYLE
(QUOTE ITEMS)
(LIST (create MENU ITEMS ← T))
(QUOTE SELECTIONS)
(QUOTE (T))
(QUOTE ITEM.TITLES)
(QUOTE (Forward% Links
Backward% Links
Depth))
(QUOTE ITEM.TITLE.FONT)
(FONTCOPY MENUFONT
(QUOTE WEIGHT)
(QUOTE BOLD))
(QUOTE NEED.NOT.FILL.IN)
(QUOTE (MULTI MULTI NIL))
(QUOTE TITLE)
"Include cards at:"]
(FNS NC.AskTraversalSpecs)
(* * UIDs)
(GLOBALVARS NC.UIDBasis)
(INITVARS (NC.UIDBasis NIL))
(RECORDS UID)
(FNS NC.MakeUID NC.InitializeUID NC.SameUIDP)
(FNS NC.UIDPutProp NC.UIDGetProp NC.UIDSetPropList NC.UIDGetPropList NC.UIDAddProp
NC.UIDRemProp)
(* * This stuff makes it possible for UIDs encountered by PRINT when writing card's
proplists, to be written down in a way that can be read back by READ.)
(GLOBALVARS NC.VerticalBarREADTABLE)
(FNS NC.BuildVerticalBarREADTABLE)
(INITVARS (NC.VerticalBarREADTABLE (NC.BuildVerticalBarREADTABLE)))
(FNS NC.ReassembleUID NC.DisassembleUID)
[DECLARE: DONTEVAL@LOAD (P (DEFPRINT (QUOTE UID)
(FUNCTION NC.DisassembleUID]
(* * contention lock machinery)
(FNS NC.NoteFileProp NC.NoteFileAddProp NC.NoteFileDelProp)
(FNS NC.PrintOperationInProgressMsg NC.CardOperationsInProgress NC.OperationInProgress
NC.CardCheckOpInProgress NC.NoteFileCheckOpInProgress NC.SessionCheckOpInProgress
NC.SessionToNoteFileLock NC.LockListOfCards NC.ResetCardProcessInProgress
NC.SwitchNoteFileLock)
(MACROS NC.ProtectedCardOperation NC.ProtectedNoteFileOperation
NC.ProtectedSessionOperation NC.IfAllCardsFree)
(* * Miscellaneous.)
(FNS NC.GetNewCard NC.DatabaseFileName NC.WriteStatus NC.TotalCardsInNoteFile)
(MACROS NC.ReadPtr NC.WritePtr NC.ReadStatus)
[DECLARE: DONTEVAL@LOAD (ADDVARS (HPRINTMACROS (FONTDESCRIPTOR . WRITE.FONTDESCRIPTOR]
(FNS WRITE.FONTDESCRIPTOR READ.FONTINTODESCRIPTOR)
[DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION NC.FindNextCardPart)
(QUOTE NCREPAIR)
(QUOTE NOTECARDSDIRECTORIES]
(* * The following aren't called anymore, but are saved for reference purposes.)
(MACROS NC.GetPtr NC.PutPtr NC.GetStatus NC.PutStatus)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
(NLAML)
(LAMA
NC.NoteFileProp])
(PUTPROPS NCLOCALDEVICE FileComs [(* * Implements Local Single User Device)
(* * The LOCALSINGLEUSER device vector.)
[COMS (* The basic device vector functions.)
(FNS NCLocalDevice.OpenNoteFile NCLocalDevice.CloseNoteFile
NCLocalDevice.CreateNoteFile NCLocalDevice.CompactNoteFile
NCLocalDevice.InspectAndRepairNoteFile NCLocalDevice.BuildHashArray
NCLocalDevice.NoteFileOpenP NCLocalDevice.CheckpointNoteFile
NCLocalDevice.ConvertNoteFileFormat NCLocalDevice.TruncateNoteFile
NCLocalDevice.NewCardUID NCLocalDevice.MarkCardDeleted
NCLocalDevice.GetCardInfo NCLocalDevice.PutCardPart NCLocalDevice.GetCardPart
NCLocalDevice.ObtainWritePermission NCLocalDevice.ReleaseWritePermission
NCLocalDevice.CancelCacheSubscription NCLocalDevice.DeleteNoteFile)
(* Install the device vector.)
(GLOBALVARS NC.DeviceVectorsHashArray)
(DECLARE: DONTEVAL@LOAD (P (PUTHASH (QUOTE LOCALSINGLEUSER)
(create NoteFileDevice OpenNoteFileFn ←
(FUNCTION NCLocalDevice.OpenNoteFile)
CloseNoteFileFn ←
(FUNCTION NCLocalDevice.CloseNoteFile)
CreateNoteFileFn ←
(FUNCTION NCLocalDevice.CreateNoteFile)
DeleteNoteFileFn ←
(FUNCTION NCLocalDevice.DeleteNoteFile)
CompactNoteFileFn ←
(FUNCTION NCLocalDevice.CompactNoteFile)
RepairNoteFileFn ←
(FUNCTION
NCLocalDevice.InspectAndRepairNoteFile)
BuildHashArrayFn ←
(FUNCTION NCLocalDevice.BuildHashArray)
NoteFileOpenPFn ←
(FUNCTION NCLocalDevice.NoteFileOpenP)
CheckpointNoteFileFn ←
(FUNCTION
NCLocalDevice.CheckpointNoteFile)
ConvertNoteFileFormatFn ←
(FUNCTION
NCLocalDevice.ConvertNoteFileFormat)
TruncateNoteFileFn ←
(FUNCTION NCLocalDevice.TruncateNoteFile)
NewCardUIDFn ← (FUNCTION
NCLocalDevice.NewCardUID)
MarkCardDeletedFn ←
(FUNCTION NCLocalDevice.MarkCardDeleted)
GetCardInfoFn ← (FUNCTION
NCLocalDevice.GetCardInfo)
PutCardPartFn ← (FUNCTION
NCLocalDevice.PutCardPart)
GetCardPartFn ← (FUNCTION
NCLocalDevice.GetCardPart)
ObtainWritePermissionFn ←
(FUNCTION
NCLocalDevice.ObtainWritePermission)
ReleaseWritePermissionFn ←
(FUNCTION
NCLocalDevice.ReleaseWritePermission)
CancelCacheSubscriptionFn ←
(FUNCTION
NCLocalDevice.CancelCacheSubscription))
NC.DeviceVectorsHashArray]
(* * Version information for LOCALSINGLEUSER device.)
[COMS (GLOBALVARS NCLocalDevice.NoteFileVersionsList
NCLocalDevice.CurrentNoteFileVersionNumber)
(FNS NCLocalDevice.CurrentVersion)
(DECLARE: DONTEVAL@LOAD
(VARS (NCLocalDevice.CurrentNoteFileVersionNumber 3)
(NCLocalDevice.NoteFileVersionsList (LIST (create NoteFileVersion
Version ← 3
NumberOfReservedCards ←
20
NoteFileIndexWidth ←
28
NoteFileHeaderSize ←
30]
(* * Supporting functions and variables)
(COMS (FNS NCLocalDevice.GetNoteFileHeader NCLocalDevice.GetHashArray
NCLocalDevice.GetSpecialCardUIDs NCLocalDevice.PutNoteFileHeader
NCLocalDevice.PutHashArray NCLocalDevice.PutIndexEntry
NCLocalDevice.NoteFileVersionOkayP
NCLocalDevice.CheckForPlausibleNoteFileHeader
NCLocalDevice.NoteFileNeedsTruncationP NCLocalDevice.OpenFailed
NCLocalDevice.ReadIndexEntry NCLocalDevice.SaveInformationPastCheckpoint
NCLocalDevice.PutFromLinks NCLocalDevice.TotalNoteFileIndexSize))
(DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengerPhase1)
(QUOTE NCREPAIR)
(QUOTE NOTECARDSDIRECTORIES))
(NC.StoreAutoloadFnFile (FUNCTION NC.CompactNoteFileInPlace)
(QUOTE NCCOMPACT)
(QUOTE NOTECARDSDIRECTORIES))
(NC.StoreAutoloadFnFile (FUNCTION NC.CompactNoteFileToTarget)
(QUOTE NCCOMPACT)
(QUOTE NOTECARDSDIRECTORIES])
(PUTPROPS NCCOMPACT FileComs ((* File created by KELLEY)
(* * NoteFile compactor.)
(RECORDS SortingRecord)
(FNS NC.GetCardPartLength NC.SortIndexEntries NC.UpdateCardLoc)
(* * Compact to target)
(FNS NC.CompactNoteFileToTarget NC.CopySortedCardPart
NC.CopySortedCardParts NC.ComputeNewDatabaseIndexSize)
(* * Compact in place)
(FNS NC.CompactNoteFileInPlace NC.CopySortedCardPartInPlace)))
(PUTPROPS NCREPAIR FileComs [(* * Scavenger mechanisms)
(GLOBALVARS NC.TitlesIdentifier NC.PropsIdentifier NC.LinksIdentifier NC.ItemIdentifier
NC.CardInspectorAttachedMenuFont NC.IdentifierAtoms NC.LightShade
NC.IndexArrayOffsets NC.ScavengerInteractionWinRegion
NC.ScavengerCriticalOffsets NC.OffScreenPosition NC.CardsPerMenuLimit
NC.ScavengerAttachedMenuFont NC.NumCharsOfTitleToShow)
(DECLARE: DONTEVAL@LOAD (VARS (NC.IndexArrayOffsets (QUOTE (3 1 2 4)))
(NC.ScavengerCriticalOffsets (QUOTE (1 2)))
(NC.CardInspectorAttachedMenuFont (FONTCREATE (QUOTE
HELVETICA)
12
(QUOTE BOLD)))
(NC.LightShade 4096)
(NC.OffScreenPosition (CONS 1500 1500))
(NC.ScavengerInteractionWinRegion
(CREATEREGION (fetch (POSITION XCOORD)
of NC.OffScreenPosition)
(fetch (POSITION YCOORD)
of NC.OffScreenPosition)
400 250))
(NC.CardsPerMenuLimit 200)
(NC.ScavengerAttachedMenuFont (FONTCREATE (QUOTE HELVETICA)
12
(QUOTE BOLD)))
(NC.NumCharsOfTitleToShow 10)))
(* * Phase 3 scavenger stuff.)
(FNS NC.ScavengeDatabaseFile)
(* * Top level functions.)
(FNS NC.ScavengerPhase1 NC.ScavengerCleanup NC.CheckUnknownCardTypes
NC.RepositionWindowIfNeeded NC.MessageWinAttachedMenuWhenSelectedFn
NC.MessageWinCloseFn)
(* * Functions for getting the scavenger info for all valid card parts and reading things
in the data area robustly.)
(FNS NC.GetScavengerInfo NC.RobustReadCardPart NC.CheckForValidSubstance NC.AtEndOfItemP
NC.RobustReadString NC.RobustReadList NC.RobustReadLinks NC.RobustReadAtom
NC.RobustReadRegion NC.RobustGetSubstance)
(* * Functions for accessing scavenger info for a card.)
(FNS NC.SetScavengerInfo NC.SetScavengerTitleInfo NC.SetScavengerMainDataInfo
NC.SetScavengerLinksInfo NC.SetScavengerPropListInfo NC.FetchScavengerInfo
NC.FetchScavengerTitleInfo NC.FetchScavengerMainDataInfo NC.FetchScavengerLinksInfo
NC.FetchScavengerPropListInfo NC.FetchTypeFromScavengerInfo
NC.FetchTitleFromScavengerInfo)
(* * Functions for building bad cards list based on the index array and scavenger array.)
(FNS NC.BuildBadCardsList NC.WorthlessCardP NC.CheckIndexLocs NC.CheckIndexLoc
NC.CheckForLocBeyondCheckptPtr NC.EncodeCardProblems)
(* * Functions for interacting with the user.)
(FNS NC.BuildCardInspectorMenu NC.CardInspectorCloseFn NC.CardInspectorRepaintFn
NC.CardInspectorMenuWhenSelectedFn NC.CardInspectorAttachedMenuWhenSelectedFn
NC.BuildCardPartsInspector NC.CardPartsAttachedMenuWhenSelectedFn
NC.BuildTitlesInspectorMenu NC.BuildSubstancesInspectorMenu
NC.BuildLinksInspectorMenu NC.BuildPropListsInspectorMenu
NC.CardPartsMenusWhenSelectedFn NC.CardTitleVersionInspector
NC.CardSubstanceVersionInspector NC.CardLinksVersionInspector
NC.CardPropListVersionInspector NC.CloseInspectorWindows)
(* * Miscellaneous.)
(FNS NC.CheckForBadLinksAndTitlesAndPropLists NC.UndeletableCardP NC.ShaveTitleString
NC.SortCardsBySlotNums)
(RECORDS ScavengerInfo LINKSDATA TITLEDATA PROPLISTDATA)
(* * Possible reasons for bad card parts.)
(DECLARE: DONTEVAL@LOAD (P (PUTPROP (QUOTE BADMAINDATA)
(QUOTE ReasonString)
"improper main card data.")
(PUTPROP (QUOTE BADLINKS)
(QUOTE ReasonString)
"improper links data.")
(PUTPROP (QUOTE BADTITLE)
(QUOTE ReasonString)
"improper title data.")
(PUTPROP (QUOTE BADPROPLIST)
(QUOTE ReasonString)
"improper prop list data.")
(PUTPROP (QUOTE MAINDATAPASTCHKPT)
(QUOTE ReasonString)
"main card data beyond chkpt pointer.")
(PUTPROP (QUOTE LINKSPASTCHKPT)
(QUOTE ReasonString)
"links beyond chkpt pointer.")
(PUTPROP (QUOTE TITLEPASTCHKPT)
(QUOTE ReasonString)
"title beyond chkpt pointer.")
(PUTPROP (QUOTE PROPLISTPASTCHKPT)
(QUOTE ReasonString)
"prop list beyond chkpt pointer.")
(PUTPROP (QUOTE UNKNOWNCARDTYPE)
(QUOTE ReasonString)
"card type definition not loaded.")))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
(NLAML)
(LAMA])
(PUTPROPS NCCARDS FileComs ((* * Internal variables)
(GLOBALVARS NC.SubBoxMarkerLabel NC.FiledCardMarkerLabel NC.PlaceMarkerDisplayFont
USERNAME NC.SavePropEditMenu TEDIT.SELPENDING NC.SystemLinkLabels
NC.SourceLinkLabel NC.FiledCardLinkLabel NC.CloseCardsOffScreenFlg
NC.BringUpCardAtOldPosFlg NC.DefaultLinkIconAttachedBitMapHeights
NC.SystemCardPropNames NC.UnknownLinkIconAttachedBitMap
NC.UnknownLinkIconAttachedBitMaps)
(BITMAPS NC.UnknownLinkIconAttachedBitMap)
[DECLARE: DONTEVAL@LOAD (VARS (NC.SubBoxMarkerLabel "File Boxes")
(NC.FiledCardMarkerLabel "Note Cards")
(NC.PlaceMarkerDisplayFont (FONTCREATE (QUOTE HELVETICA)
12
(QUOTE ITALIC)))
(NC.SystemCardPropNames (QUOTE (Updates]
(INITVARS (NC.DefaultLinkIconAttachedBitMapHeights (QUOTE (11 13 15 17 18 19 20 21 23 25)))
(NC.UnknownLinkIconAttachedBitMaps NC.UnknownLinkIconAttachedBitMap))
(* * The Card Objects)
(RECORDS CardObject CardCache Card LinksCache)
(FNS NC.CardOrCardHolderFromUID NC.CardP NC.DeleteNoteCard NC.DeleteNoteCardInternal
NC.SameCardP)
(* * Manipulate Note Card Representations)
(FNS NC.FetchStatus NC.SetNewCardFlg NC.FetchNewCardFlg NC.ActivateCard NC.ActiveCardP
NC.DeactivateCard NC.FetchFromLinks NC.FetchGlobalLinks NC.FetchLinksDirtyFlg
NC.FetchPropList NC.FetchRegion NC.FetchSavedRegion NC.FetchRegionViewed
NC.FetchScale NC.FetchSlotNum NC.FetchSubstance NC.FetchTitle NC.FetchToLinks
NC.FetchType NC.FetchWindow NC.IDP NC.MarkCardDirty NC.CardDirtyP NC.SetFromLinks
NC.SetGlobalLinks NC.SetLinksDirtyFlg NC.SetPropList NC.SetRegion NC.SetSavedRegion
NC.SetRegionViewed NC.SetScale NC.SetSubstance NC.SetTitle NC.SetToLinks NC.SetType
NC.FetchTitleDirtyFlg NC.SetTitleDirtyFlg NC.FetchPropListDirtyFlg
NC.SetPropListDirtyFlg NC.SetSubstanceDirtyFlg NC.FetchSubstanceDirtyFlg
NC.TurnOffDirtyFlgs NC.FetchUserDataProp NC.SetUserDataProp NC.SetUserDataPropList
NC.MakeTypeIconBitMapSet NC.MakeNewCardWindow)
(* * Read subscriptions and write locks on card parts)
(FNS NC.ObtainEditPermission NC.CardPartBusy)
(MACROS NC.WithWritePermission NC.IfCardPartNotBusy NC.IfMultipleCardPartsNotBusy)
(* * Stuff to handle read-only notefiles.)
(FNS NC.ReadOnlyCardP NC.CardSomehowDirtyP)
(* * Hash Array Handler)
(MACROS NC.MapCards)
(* * Retrieve Note Card Info)
(FNS NC.RetrieveFromLinks NC.RetrieveLinkLabels NC.StoreLinkLabels NC.RetrievePropList
NC.RetrieveTitle NC.RetrieveToLinks NC.RetrieveGlobalLinks NC.RetrieveType
NC.RetrieveTypeAndTitle NC.LinksCachedP NC.ShowInfo)
(* * General note card manipulations)
(FNS NC.AddParents NC.SeverExternalLinks NC.AssignTitle NC.DeleteNoteCards
NC.CardsToDelete NC.EditNoteCard NC.MakeNoteCard NC.QuitCard NC.CheckFiling
NC.CheckTitle NC.ForceFilingForCardTypeP NC.InsureProperFiling NC.QuitWithoutSaving
NC.UnfileNoteCard NC.UpdateUpdateList NC.CollectReferences NC.CardSaveFn
NC.DetermineDisplayRegion NC.AbortCard NC.CardNeedsFilingP NC.TopLevelCardP
NC.MakeDummyRegion NC.ValidCardP NC.TitleBarButtonEventFn
NC.InstallTitleBarMiddleMenu)
(* * Prop List Editor)
(RECORDS PropListItem)
(FNS NC.AddPropToPropList NC.CloseAllPropListEditors NC.ClosePropListEditor
NC.DelPropFromList NC.EditPropButtonFN NC.EditProperties NC.EditPropList
NC.ExtractPropList NC.OpenPropListEditor NC.ProcessEditedPropList
NC.PropListEditorOpenP NC.SelectProperty NC.ShowLinks NC.StringIsListP NC.PutProp
NC.GetProp NC.RemProp)
(* * Unknown ?????????)
(FNS NC.FetchBeingDeletedFlg NC.SetBeingDeletedFlg NC.RemoveDELETEMEImageObjsFromCard
NC.InsureIntegerDate)
(* * Place marker ImageObjects)
(FNS NC.PlaceMarkerCopyFn NC.PlaceMarkerDisplayFn NC.PlaceMarkerGetFn
NC.PlaceMarkerImageBoxFn NC.PlaceMarkerPutFn NC.MakePlaceMarker)
(* * Functions for handling dates.)
(FNS NC.FetchTitleDate NC.FetchItemDate NC.FetchPropListDate NC.FetchLinksDate
NC.FetchLinkIconAttachedBitMap NC.FetchLinkDisplayMode NC.FetchDefaultWidth
NC.FetchDefaultHeight NC.FetchLinkAnchorModesSupported)
(FNS NC.SetTitleDate NC.SetItemDate NC.SetPropListDate NC.SetLinksDate)))
(PUTPROPS NCLINKS FileComs ((* * Internal variables)
(GLOBALVARS NC.LinkIconSpaceInterLine NC.FileBoxLinkSpacer NC.NoDeleteImageFns
NC.SystemLinkLabels NC.InitialLinkLabels NC.SubBoxLinkLabel
NC.FiledCardLinkLabel NC.BrowserContentsLinkLabel NC.ListContentsLinkLabel
NC.UnspecifiedLinkLabel NC.UCASESystemLinkLabels NC.DocBackPtrLinkLabel
NC.LinkIndexBackPtrLinkLabel NC.LinkIconImageFns NC.LinkIconMiddleButtonMenu
NC.LinkDisplayModesStylesheet NC.LinkIconBorderWidth NC.LinkIconSpaceOuterY
NC.LinkIconSpaceInnerY NC.LinkIconSpaceOuterX NC.LinkIconSpaceInnerX
NC.OrphanID MINIMUM.VISIBLE.SCALE.FACTOR DEFAULT.VISIBLE.SCALE.FACTOR
TEDIT.DEFAULT.FONT)
[DECLARE: DONTEVAL@LOAD (VARS (NC.SubBoxLinkLabel (QUOTE SubBox))
(NC.FiledCardLinkLabel (QUOTE FiledCard))
(NC.BrowserContentsLinkLabel (QUOTE BrowserContents))
(NC.ListContentsLinkLabel (QUOTE ListContents))
(NC.UnspecifiedLinkLabel (QUOTE Unspecified))
(NC.DocBackPtrLinkLabel (QUOTE DocBackPtr))
(NC.LinkIndexBackPtrLinkLabel (QUOTE LinkIndexBackPtr))
(NC.SystemLinkLabels (LIST NC.ListContentsLinkLabel
NC.BrowserContentsLinkLabel
NC.FiledCardLinkLabel
NC.SubBoxLinkLabel
NC.DocBackPtrLinkLabel
NC.LinkIndexBackPtrLinkLabel))
(NC.UCASESystemLinkLabels (FOR Label in NC.SystemLinkLabels
collect (U-CASE Label)))
(NC.InitialLinkLabels (APPEND (QUOTE (Comment See
Unspecified))
NC.SystemLinkLabels]
(INITVARS (NC.LinkIconSpaceInterLine 0)
(NC.LinkIconBorderWidth 1)
(NC.LinkIconSpaceOuterY 2)
(NC.LinkIconSpaceInnerY 1)
(NC.LinkIconSpaceOuterX 2)
(NC.LinkIconSpaceInnerX 3)
(NC.FileBoxLinkSpacer (CHARACTER 13)))
(* * Links mechanism)
(RECORDS Link LINKDISPLAYMODE)
(FNS NC.GlobalLinkP NC.ChildLinkP NC.ContentsLinkP NC.SubContentsLinkP
NC.ReverseLinkLabelP NC.MakeGlobalLink NC.AddFromLink NC.AddLinkToGraphCard
NC.AddLinkToSketchCard NC.InsertLinkInSketch NC.InsertLinkInText NC.AddToLink
NC.CachedAddToLink NC.DelFromLink NC.CachedDelFromLink NC.DelToLink
NC.DelReferencesToCard NC.DelReferencesToCardFromGlobalList NC.DeleteLink
NC.DeleteToLink NC.DeleteFromLink NC.DeletedLinkDisplayFn NC.DeletedLinkGetFn
NC.DeletedLinkImageBoxFn NC.DeletedLinkPutFn NC.DeletedLinkImageObjP NC.DeleteBadLink
NC.ReplaceWithDeletedLinkImageObj NC.CheckForOrphanDelete NC.FileInOrphanBox
NC.HookToOrphanCard NC.InsertLinkBeforeMarker NC.LinkLabelP NC.IDAlphOrder
NC.MakeLink NC.CachedMakeFilingLink NC.MakeFilingLink NC.MakeFilingLinks
NC.RelabelLink NC.SystemLinkLabelP NC.ValidLinkP NC.MakeChildLink NC.EnsureNoCycles
NC.SameLinkP NC.SameLinksP NC.AddGlobalLinkToCard NC.AddGlobalLinksToCard
NC.ChangeCardTitleFromLinkIcon NC.UncacheLinks NC.TraverseLink
NC.CreateLinkIconStrings)
(FNS NC.AddLinkToCard NC.AddLinksToCard)
(FNS NC.DelReferencesToCardFromShowLinks NC.UpdateLinkImagesInShowLinks
NC.FetchShowLinksWindow NC.ChangeLinkLabelInShowLinksWin)
(* * New Display Mode format)
(FNS NC.CheckDisplayModeFormat NC.InsureLinkDisplayMode NC.MakeNewDisplayMode
NC.DisplayModeFromStylesheetSelections NC.StylesheetSelectionsFromDisplayMode)
(GLOBALVARS NC.MenuItems/DisplayModeValues)
[DECLARE: DONTEVAL@LOAD
(VARS (NC.MenuItems/DisplayModeValues (QUOTE (Yes T No NIL Float FLOAT Yes T No
NIL Float FLOAT Yes T No NIL
Float FLOAT]
(* * New fns to support No-Link cards/substances)
(FNS NC.LinksSupportedP)
(* * Link display icons)
(FNS NC.FetchLinkIconForLink NC.MakeLinkIcon NC.LinkIconButtonEventInFn
NC.LinkIconDisplayFn NC.LinkIconImageBoxFn NC.LinkIconImageObjP NC.LinkIconPutFn
NC.LinkIconGetFn NC.LinkIconMiddleButtonFn NC.LinkIconWhenCopiedFn
NC.LinkIconWhenDeletedFn NC.LinkIconWhenInsertedFn NC.LinkIconWhenMovedFn
NC.FetchLinkFromLinkIcon NC.ChangeLinkDisplayMode NC.UpdateLinkImages
NC.LinkIconCopyFn NC.LinkAtCharPos NC.LinkIconLeftButtonFn)
(FNS NC.FillInLinkIcon NC.InvisibleLinkImageBoxFn NC.InvisibleLinkPutFn
NC.InvisibleLinkGetFn)
(* * Pointer icons. These act like links, except that their icon boxes are dashed, and
they're invisible as far as the source or destination cards are concerned. That is,
only the imageobject containing the pointer knows about the connection. Functions exist
for creating pointer icons and converting them into link icons.)
(GLOBALVARS NC.PointerIconImageObjFns NC.PointerIconDashingStyle
NC.PointerIconMiddleButtonMenu)
[INITVARS (NC.PointerIconImageObjFns (IMAGEFNSCREATE (FUNCTION NC.PointerIconDisplayFn)
(FUNCTION NC.PointerIconImageBoxFn)
(FUNCTION NC.PointerIconPutFn)
(FUNCTION NC.PointerIconGetFn)
(FUNCTION NC.PointerIconCopyFn)
(FUNCTION NC.LinkIconButtonEventInFn))
)
(NC.PointerIconDashingStyle (QUOTE (4 2]
(RECORDS NCPointer)
(* * Functions likely to be useful externally.)
(FNS NC.InsertPointerInText NC.ConvertPointerIconToLinkIcon NC.MakePointerIcon
NC.MakePointer NC.PointerIconImageObjP NC.FetchPointerFromPointerIcon)
(* * Internal functions.)
(FNS NC.PointerIconDisplayFn NC.PointerIconImageBoxFn NC.PointerIconPutFn
NC.PointerIconGetFn NC.PointerIconCopyFn NC.WritePointer NC.ReadPointer)
(FNS NC.PointerIconLeftButtonFn NC.PointerIconMiddleButtonFn NC.TraversePointer
NC.ChangePointerDisplayMode NC.RelabelPointer NC.ChangeCardTitleFromPointerIcon)
(FNS NC.DeleteBadPointer NC.DrawLinkOrPointerIcon NC.ComputeLinkOrPointerImageBox)
(DECLARE: DONTEVAL@LOAD (P (NC.MakePointerIcon)))
(* * New stuff for allowing put to work from TEdit.)
(GLOBALVARS NC.ExternalPutLinkIconImageFns)
[DECLARE: DONTEVAL@LOAD (VARS (NC.ExternalPutLinkIconImageFns
(IMAGEFNSCREATE (FUNCTION NC.ExternalPutLinkIconDisplayFn)
(FUNCTION NC.ExternalPutLinkIconImageBoxFn)
(FUNCTION NC.ExternalPutLinkIconPutFn)
(FUNCTION NC.ExternalPutLinkIconGetFn)
NIL
(FUNCTION NILL]
(FNS NC.ExternalPutLinkIconDisplayFn NC.ExternalPutLinkIconImageBoxFn
NC.ExternalPutLinkIconPutFn NC.ExternalPutLinkIconGetFn
NC.CoerceToExternalPutLinkIcon)
(* * Stuff to register our image object for intermezzo.)
(FNS NC.RegisterPlaceMarkerImageObj)
(DECLARE: DONTEVAL@LOAD (P (NC.RegisterPlaceMarkerImageObj)))
(* * Stuff for handling link icons in sketches.)
(FNS NC.LinkIconSketchElementP NC.DeleteLinkIconSketchElement)
(* * Icons representing notecards types.)
(GLOBALVARS NC.FileBoxIcon NC.GraphCardIcon NC.SketchCardIcon NC.TextCardIcon
NC.TypelessIcon)
(* * DELETEME imageobjs)
(GLOBALVARS NC.DELETEMEImageObjDatum NC.RemoveDELETEMEImageObjsFromCardFlg)
(INITVARS (NC.DELETEMEImageObjDatum "[[DELETE ME]]")
(NC.RemoveDELETEMEImageObjsFromCardFlg NIL))
(FNS NC.DELETEMEImageObjP)))
(PUTPROPS NCTYPESMECH FileComs [(* * Internal variables)
(GLOBALVARS NC.CardTypes NC.TypesLock)
(INITVARS (NC.CardTypes NIL)
(NC.TypesLock (CREATE.MONITORLOCK "NoteCards Type Mechanism")))
(* * Note Cards Type Mechanism)
(RECORDS NoteCardType)
(MACROS NC.GetCardTypeField NC.ApplyFn NC.ApplySupersFn)
(FNS NC.IsSubTypeOfP NC.CardTypeRecord NC.MakeCardTypesList NC.AddCardType
NC.AddCardTypeStub NC.ModifyCardType NC.RecomputeCardType NC.ListOfCardTypes
NC.SubTypesOfCardType NC.DeleteCardType NC.InheritFieldsFromSuperType
NC.PropagateCardTypeFieldsDownward NC.AutoLoadCardType NC.CardTypeLoader
NC.CardTypeStubLoader NC.GetCardTypeFieldOfSuper)
(BITMAPS NC.TypelessIcon)
(DECLARE: DONTEVAL@LOAD (P (NC.MakeCardTypesList])
(PUTPROPS NCPROGINT FileComs [(* * Notefile creation and access)
(FNS NCP.CreateNoteFile NCP.OpenNoteFile NCP.OpenNoteFileP NCP.ListOfOpenNoteFiles
NCP.CloseNoteFiles NCP.CheckpointNoteFiles NCP.AbortNoteFiles NCP.CompactNoteFile
NCP.CompactNoteFileInPlace NCP.RepairNoteFile NCP.DeleteNoteFile
NCP.NoteFileFromFileName NCP.FileNameFromNoteFile NCP.NoteFileMenu
NCP.CheckInNoteFile NCP.CheckOutNoteFile NCP.LockFileName NCP.NumCardSlotsRemaining
NCP.ExpandNoteFileIndex NCP.NoteFileClosingP NCP.NoteFileAddProp)
(* * Creating and accessing NoteCard types and substances.)
(FNS NCP.CardTypes NCP.CreateCardType NCP.DeleteCardType NCP.CreateCardTypeStub
NCP.ChangeCardTypeFields NCP.CardTypeSuper NCP.CardTypeLinkDisplayMode NCP.CardTypeFn
NCP.CardTypeVar NCP.CardTypeP NCP.CardTypeFnP NCP.CardTypeVarP NCP.CardTypeFns
NCP.CardTypeVars NCP.CardTypeDisplayedInMenu NCP.IsSubTypeOfP NCP.TextBasedP
NCP.SketchBasedP NCP.GraphBasedP NCP.AutoLoadCardType NCP.AddSpecialCard
NCP.RemoveSpecialCard NCP.CardsOfTypes)
(MACROS NCP.ApplyCardTypeFn NCP.ApplySuperTypeFn)
(* * Creating Notecards and fileboxes)
(FNS NCP.CreateCard NCP.CreateTextCard NCP.CreateFileBox NCP.CreateBrowserCard
NCP.CreateSketchCard NCP.CreateGraphCard NCP.MakeDocument NCP.MakeLinkIndex)
(* * Opening, closing, activating, display, etc.)
(FNS NCP.OpenCard NCP.CloseCards NCP.DisplayCard NCP.UndisplayCards NCP.CacheCards
NCP.UncacheCards NCP.CardCachedP NCP.CardDisplayedP NCP.CardWindow NCP.WindowFromCard
NCP.CardFromWindow NCP.CardFromTextStream)
(* * Accessing cards and boxes)
(FNS NCP.CardType NCP.ValidCardP NCP.CardTitle NCP.FileCards NCP.UnfileCards
NCP.CardParents NCP.FileBoxChildren NCP.CardNeighbors NCP.GetLinks NCP.CardPropList
NCP.CardProp NCP.CardAddProp NCP.CardDelProp NCP.CardSubstance NCP.CardRegion
NCP.CardAddText NCP.ChangeLoc NCP.DeleteCards NCP.FileBoxP NCP.AllCards NCP.AllBoxes
NCP.ContentsFileBox NCP.OrphansFileBox NCP.ToBeFiledFileBox NCP.NoteFileFromCard
NCP.CardNoteFile NCP.SameCardP NCP.CoerceToCard NCP.DetermineDisplayRegion
NCP.LockListOfCards NCP.GetCrossFileLinkDestCard NCP.CardBeingDeletedP NCP.NewCardP)
(MACROS NCP.MapCards NCP.MapCardsOfType)
(MACROS NCP.WithLockedCards)
(* * Collecting, copying, moving, deleting, cards)
(FNS NCP.CollectCards NCP.CopyCards NCP.MoveCards)
(* * Creating and accessing links)
(FNS NCP.CreateLink NCP.LocalGlobalLink NCP.GlobalGlobalLink NCP.GlobalLocalLink
NCP.LocalLocalLink NCP.LinkDesc NCP.LinkDisplayMode NCP.LinkType NCP.LinkSource
NCP.LinkDestination NCP.DeleteLinks NCP.ValidLinkP NCP.AllLinks NCP.SameLinkP
NCP.LinkFromLinkIcon NCP.MakeLinkIcon NCP.MarkCardDirty)
(MACROS NCP.MapLinks NCP.MapLinksOfType)
(* * Creating and accessing link labels.)
(FNS NCP.CreateLinkType NCP.DeleteLinkType NCP.RenameLinkType NCP.LinkTypes
NCP.ReverseLinkTypes NCP.UserLinkTypes NCP.ValidLinkTypeP NCP.SystemLinkTypeP)
(* * Dealing with card parts dates.)
(RECORDS NOTECARDDATES)
(FNS NCP.CardDates)
(* * Open events card)
(FNS NCP.GetOpenEventsCard NCP.GetCloseEventsCard NCP.MarkAsNotNeedingFiling)
(* * Functions for adding menu items)
(FNS NCP.AddSessionIconMenuItem NCP.RemoveSessionIconMenuItem NCP.RestoreSessionIconMenu
NCP.AddNoteFileIconMenuItem NCP.RemoveNoteFileIconMenuItem
NCP.RestoreNoteFileIconMenu NC.CreateSessionIconNoteFileMenuItem
NCP.AddDefaultNoteFileIconMiddleButtonItems NCP.NoticedNoteFileNamesMenu
NCP.AddTitleBarMenuItemsToType NCP.AddTitleBarMenuItemsToWindow
NCP.LinkIconAttachedBitMap NCP.SessionIconWindow NCP.BringUpSessionIcon)
(* * Miscellaneous)
(FNS NCP.TitleSearch NCP.PropSearch NCP.WhichCard NCP.WhichNoteFile NCP.SelectCards
NCP.DocumentParameters NCP.NoteCardsParameters NCP.PrintMsg NCP.ClearMsg NCP.AskUser
NCP.AskYesOrNo NCP.RegisterCardByName NCP.ListRegisteredCards NCP.LookupCardByName
NCP.UnregisterName NCP.DisplayedCards NCP.CardUserDataProp NCP.NoteFileProp
NCP.SetUpTitleBar NCP.AddNoteFileIconMiddleButtonItems NCP.NoteFileIconWindow)
(DECLARE: DONTEVAL@LOAD (P (MOVD (QUOTE NCP.WhichCard)
(QUOTE NCP.WC)
T)
(MOVD (QUOTE NCP.WhichNoteFile)
(QUOTE NCP.WNF)
T)))
(* * Handy internal functions)
(FNS NCP.ReportError NCP.ReportWarning NCP.LinkAnchorDesc NCP.GetTypeRecord
NCP.AddLeftButtonTitleBarMenuItems NCP.AddMiddleButtonTitleBarMenuItems
NCP.CoerceToLinkDisplayMode NCP.CoerceToInterestedWindow)
(* * Global variables.)
(GLOBALVARS NCP.ErrorBrkWhenFlg NCP.LinkDisplayModes NCP.TypeFnsAssocLst
NCP.NoteCardTypeFns NCP.NoteCardTypeVars NC.MakeDocParameters NC.CardTypes
NC.SubstanceTypes NC.SystemLinkLabels NC.FiledCardLinkLabel NC.SubBoxLinkLabel
NC.SelectingCardsMenu NC.SelectingCardMenu NC.UCASESystemLinkLabels
NC.SourceLinkLabel NC.NoteCardsParameters)
[INITVARS (NCP.ErrorBrkWhenFlg NIL)
(NCP.DefaultLinkIconAttachedBitMapSize 17)
(NCP.LinkDisplayModes (QUOTE (Icon Title Label Both)))
(NCP.NoteCardTypeFns (QUOTE (MakeFn EditFn QuitFn GetFn PutFn CopyFn MarkDirtyFn
DirtyPFn CollectLinksFn DeleteLinksFn
UpdateLinkIconsFn InsertLinkFn
TranslateWindowPositionFn)))
(NCP.NoteCardTypeVars (QUOTE (SuperType StubFlg FullDefinitionFile
LinkDisplayMode DefaultWidth
DefaultHeight LinkAnchorModesSupported
DisplayedInMenuFlg
LinkIconAttachedBitMap
LeftButtonMenuItems
MiddleButtonMenuItems]
(* * Following is for backward compatibility with 1.2)
(DECLARE: DONTEVAL@LOAD (P (MOVD (QUOTE NCP.OpenCard)
(QUOTE NCP.BringUpCard)
T)
(MOVD (QUOTE NCP.CacheCards)
(QUOTE NCP.ActivateCards)
T)
(MOVD (QUOTE NCP.CardCachedP)
(QUOTE NCP.ActiveCardP)
T)
(MOVD (QUOTE NCP.CardTypeFnP)
(QUOTE NCP.ValidCardTypeFn)
T)
(MOVD (QUOTE NCP.CardTypeP)
(QUOTE NCP.ValidCardType)
T)
(MOVD (QUOTE NCP.CardTypeVarP)
(QUOTE NCP.ValidCardTypeVar)
T)
(MOVD (QUOTE NCP.CloseCards)
(QUOTE NCP.DeactivateCards)
T)
(MOVD (QUOTE NCP.ValidCardP)
(QUOTE NCP.ValidCard)
T)
(MOVD (QUOTE NCP.ContentsFileBox)
(QUOTE NCP.GetContentsFileBox)
T)
(MOVD (QUOTE NCP.OrphansFileBox)
(QUOTE NCP.GetOrphansFileBox)
T)
(MOVD (QUOTE NCP.ToBeFiledFileBox)
(QUOTE NCP.GetToBeFiledFileBox)
T)
(MOVD (QUOTE NCP.LinkSource)
(QUOTE NCP.GetLinkSource)
T)
(MOVD (QUOTE NCP.LinkDestination)
(QUOTE NCP.GetLinkDestination)
T)
(MOVD (QUOTE NCP.CreateLinkType)
(QUOTE NCP.CreateLinkLabel)
T)
(MOVD (QUOTE NCP.DeleteLinkType)
(QUOTE NCP.DeleteLinkLabel)
T)
(MOVD (QUOTE NCP.RenameLinkType)
(QUOTE NCP.RenameLinkLabel)
T)
(MOVD (QUOTE NCP.LinkTypes)
(QUOTE NCP.GetLinkLabels)
T)
(MOVD (QUOTE NCP.UserLinkTypes)
(QUOTE NCP.GetUserLinkLabels)
T)
(MOVD (QUOTE NCP.ReverseLinkTypes)
(QUOTE NCP.GetReverseLinkLabels)
T)
(MOVD (QUOTE NCP.ValidLinkTypeP)
(QUOTE NCP.ValidLinkLabel)
T)
(MOVD (QUOTE NCP.ValidLinkP)
(QUOTE NCP.ValidLink)
T)))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDVARS (NLAMA)
(NLAML)
(LAMA NCP.NoteFileProp NCP.CardUserDataProp NCP.PrintMsg NCP.PropSearch
NCP.LinkType NCP.LinkDisplayMode NCP.CardRegion NCP.CardSubstance
NCP.CardProp NCP.CardTitle NCP.CardTypeDisplayedInMenu])
(PUTPROPS NCCROSSFILELINKS FileComs ((* * This file defines a card type called CrossFileLink that
is a stand-in for really being able to link across
notefiles.)
(* * A programmer can customize the icon which will appear on
the right side of the link icon for cross-file links. The
main hook is the property "AttachedBitMapFn" which should
be placed on the card type's atom; which in this case is
CrossFileLink. This function is called in the display code
by NC.FetchCrossFileLinkIconAttachedBitMap when a
cross-file link is encountered.)
(GLOBALVARS NC.CopyCrossFileLinksMode NC.CrossFileLinkIcon
NC.MakeCrossFileLinkIconStandIn
NC.NewCrossFileLinksMode
NC.AttachedBitMapsHashArray
NC.NoteFileAttachedBitMap
NC.NoteFileAttachedBitMapMask)
(INITVARS (NC.NewCrossFileLinksMode (QUOTE ASK))
(NC.AttachedBitMapsHashArray))
(FNS NC.CrossFileLinkAttachedBitMapFn
NC.FetchNoteFileAttachedBitmap)
(BITMAPS NC.CrossFileLinkIcon NC.NoteFileAttachedBitMap
NC.NoteFileAttachedBitMapMask)
(DECLARE: DONTEVAL@LOAD (VARS (NC.NewCrossFileLinksTwoWayFlg
T)
(NC.CopyCrossFileLinksMode
NIL)))
(FNS NC.AskCrossFileLinkMode NC.DeleteCrossFileLinkCard
NC.FetchRemoteCrossFileLinkCard
NC.CheckCrossFileLinkCardTitle NC.CheckCrossFileLinkType
NC.MakeCrossFileLinkIconStandIn
NC.ComputeCrossFileLinkMode
NC.FetchCrossFileLinkIconAttachedBitMap)
(FNS NC.GetCrossFileLinkDestCard NC.CreateCrossFileLinkCard
NC.CrossFileLinkCardP NC.OpenCrossFileLinkDestNoteFile)
(FNS NC.AddCrossFileLink NC.CrossFileLinkCopyFn
NC.CrossFileLinkMakeFn NC.CrossFileLinkEditFn
NC.CrossFileLinkGetFn NC.CrossFileLinkPutFn)
(RECORDS CrossFileLinkSubstance)
(DECLARE: DONTEVAL@LOAD (P (NC.AddCrossFileLink)
(PUTPROP (QUOTE CrossFileLink)
(QUOTE Don'tForceFilingFlg)
T)))
(FNS NCAddStub.CrossFileLink)))
(PUTPROPS NCHASHCARD FileComs [(* * Stuff for the hash card type. This includes the basic general
hash card and a specialization called Registry card type.)
(FNS NCAddStub.HashCard)
(GLOBALVARS NC.DefaultHashCardHashArraySize)
(INITVARS (NC.DefaultHashCardHashArraySize 100))
(FNS NC.AddHashCard NC.HashCardMakeFn NC.HashCardEditFn
NC.HashCardGetFn NC.HashCardPutFn NC.HashCardCopyFn)
(DECLARE: DONTEVAL@LOAD (P (NC.AddHashCard)))
(* * This is a specialization of Hash card called Registry card. It
maps atoms to UIDs and has tailored Get and Put fns.)
(GLOBALVARS NC.RegistrySubstanceEndMarker
NC.DefaultRegistryCardHashArraySize)
(INITVARS (NC.DefaultRegistryCardHashArraySize 100)
(NC.RegistrySubstanceEndMarker (QUOTE
##EndRegistrySubstance##)))
(FNS NC.AddRegistryCard NC.RegistryCardMakeFn NC.RegistryCardGetFn
NC.RegistryCardPutFn)
(FNS NC.RegisterCardByName NC.LookupCardByName NC.UnregisterName)
(DECLARE: DONTEVAL@LOAD (P (NC.AddRegistryCard])
(PUTPROPS NCTEXTCARD FileComs ((* * Stuff for the Text card type.)
(FILES NCTYPESMECH TEDIT)
(FNS NCAddStub.TextCard)
(GLOBALVARS TEDIT.DEFAULT.MENU TEDIT.TITLED.ICON.TEMPLATE TEDIT.ICON.FONT
NC.TEditPasswordDividedBy100 NC.DefaultFont NC.DeletedLinkImageObject
NC.CardTypes NC.AnnoFlg NC.UseDeletedLinkIconIndicatorsFlg
NC.DelTEditProcessAtShrinkFlg NC.TextCardIcon NC.UserSpecifiedTEditProps)
(* * basic fns)
(FNS NC.MakeTEditCard NC.BringUpTEditCard NC.MakeTextCardReadOnly NC.MakeTextCardReadWrite
NC.RevertTextCard NC.CollectReferencesInText NC.InstallTextTitleBarMiddleMenu
NC.MarkTextDirty NC.ResetTEdit NC.ResetTEditProcess NC.TEditBasedP NC.TEditCloseFn
NC.TEditMenuFn NC.TEditQuitFn NC.TextCopySubstance NC.TextDirtyP NC.TextCardShrinkFn
NC.PutTextSubstance NC.GetTextSubstance NC.UpdateLinkImagesInText
NC.CharPosFromTextObject NC.DelReferencesToCardFromText)
(DECLARE: DONTEVAL@LOAD (VARS (TEDIT.DEFAULT.PROPS (CONS (QUOTE SLOWUPDATE)
(CONS (QUOTE T)
TEDIT.DEFAULT.PROPS)))
(NC.TEditPasswordDividedBy100 314)))
(* * This stuff supports the "push-copy" method of copying links in NC)
(FNS NC.TranslateWindowPositionToTEditPosition NC.InsertLinkInTextWindow)
(* * New FNS)
(GLOBALVARS NC.ExternalPutLinkIconImageFns)
(FNS NC.CardFromTextStream NC.TEditPutFn NC.TEditPutFnAuxiliary NC.TEditGetFn
NC.MakeTEditPropsList NC.TEditPropsListQuitFn NC.DelTEditProcesses)
(* * prevent TEdit splitwindow facilities)
(DECLARE: DONTEVAL@LOAD (ADVISE \TEDIT.SPLITW))
(* * Add the Text card type to the card types list.)
(FNS NC.AddTextCard NC.ComputeTextCardMiddleButtonMenuItems)
(DECLARE: DONTEVAL@LOAD (BITMAPS NC.TextCardIcon))
(DECLARE: DONTEVAL@LOAD (P (NC.AddTextCard)))
(DECLARE: DONTEVAL@LOAD (ADVISE TEDIT.ADD.MENUITEM TEDIT.REMOVE.MENUITEM))))
(PUTPROPS NCSKETCHCARD FileComs [(* * Definition of the Sketch card type.)
[DECLARE: COPY FIRST (P (NC.LoadFileFromDirectories (QUOTE SKETCH)
(QUOTE LISPUSERSDIRECTORIES))
(NC.LoadFileFromDirectories (QUOTE KOTOSKETCHPATCHES]
(FNS NCAddStub.SketchCard)
(GLOBALVARS NC.SketchCardIcon NC.SketchTitleBarMenu NC.DeletedLinkImageObject
NC.UseDeletedLinkIconIndicatorsFlg)
(DECLARE: DONTEVAL@LOAD (BITMAPS NC.SketchCardIcon))
(* * Basic functions)
(FNS NC.MakeSketchCard NC.BringUpSketchCard NC.SketchDirtyP NC.SketchTitleBarButtonEventFn
NC.SketchCardCloseFn NC.SketchCardShrinkFn NC.SketchCopySubstance NC.MarkSketchDirty
NC.CollectReferencesInSketch NC.GetSketchSubstance NC.PutSketchSubstance
NC.PutCachedMap NC.GetCachedMap NC.UpdateLinkImagesInSketch
NC.DelReferencesToCardFromSketch NC.ExternalizeLinkIconsInSketch
NC.MakeExternalSketchCopy NC.SK.COPY.BUTTONEVENTFN)
(DECLARE: DONTEVAL@LOAD (ADVISE CREATE.SKETCHW.COMMANDMENU))
(* * This stuff supports the "push-copy" method of copying links in NC)
(FNS NC.TranslateWindowPositionToSketchPosition)
(* * Special stuff for autoloading maps)
(FNS NC.FakeMapInputFn NC.FakeMapInsideFn)
[DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INPUTFN)
(QUOTE NCMAPS)
(QUOTE NOTECARDSDIRECTORIES))
(NC.StoreAutoloadFnFile (FUNCTION SK.MAP.INSIDEFN)
(QUOTE NCMAPS)
(QUOTE NOTECARDSDIRECTORIES))
(NC.StoreAutoloadFnFile (FUNCTION SetCachedBitMap)
(QUOTE NCMAPS)
(QUOTE NOTECARDSDIRECTORIES))
(OR (FMEMB (QUOTE MAP)
SKETCH.ELEMENT.TYPE.NAMES)
(CREATE.SKETCH.ELEMENT.TYPE (QUOTE MAP)
"Map"
"Forces autoload of MAP package."
NIL NIL NIL NIL
(FUNCTION NC.FakeMapInputFn)
(FUNCTION NC.FakeMapInsideFn]
(* * Add sketch card type to CardType list)
(FNS NC.AddSketchCard)
(DECLARE: DONTEVAL@LOAD (P (NC.AddSketchCard))
(P (if (NULL (GETD (QUOTE VIEWER.SCALE)))
then
(DEFINEQ (VIEWER.SCALE (LAMBDA (Window)
(WINDOWPROP Window (QUOTE SCALE])
(PUTPROPS NCGRAPHCARD FileComs [[DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories
(QUOTE GRAPHER)
(QUOTE LISPUSERSDIRECTORIES))
(NC.LoadFileFromDirectories
(QUOTE GRAPHERPATCH))
(NC.LoadFileFromDirectories
(QUOTE HGRAPH)
(QUOTE LISPUSERSDIRECTORIES]
(FILES NCTYPESMECH)
(FNS NCAddStub.GraphCard)
(GLOBALVARS NC.GraphCardIcon NC.ShrunkenGraphIconBM NC.ShrunkenGraphIconMask
NC.ShrunkenGraphIconTemplate NC.UseDeletedLinkIconIndicatorsFlg
TEDIT.ICON.FONT)
[DECLARE: DONTEVAL@LOAD (VARS (ScalableLinkParameters (QUOTE (LINEWIDTH]
(* * Basic functions.)
(FNS NC.MakeGraphCard NC.BringUpGraphCard NC.RelayoutGraphCard NC.CollectReferencesInGraph
NC.GraphCardCloseFn NC.GraphCardLeftButtonFn NC.GraphCardMiddleButtonFn
NC.GraphCopySubstance NC.MarkGraphDirty NC.GraphDirtyP NC.GraphNodeLinkIconUpdate
NC.GetGraphSubstance NC.PutGraphSubstance NC.UpdateLinkImagesInGraph
NC.DelReferencesToCardFromGraph NC.GraphChangeLabelFn)
(* * Hooks into Grapher for NoteCards applications)
(FNS NC.GRAPHERCOPYBUTTONEVENTFN NC.InsideGrapherNodeP NC.GraphAddNodeFn
NC.GraphDeleteNodeFn NC.GraphAddLinkFn NC.GraphDeleteLinkFn NC.GraphMoveNodeFn
NC.GraphFontChangeFn NC.GraphRemoveNode NC.TrackCursorInGrapherWindow)
(* * This stuff supports the "push-copy" method of copying links in NC)
(FNS NC.TranslateWindowPositionToGraphPosition NC.InsertLinkInGraph)
(* * Stuff for shrinking graphs and browsers.)
(DECLARE: DONTEVAL@LOAD (BITMAPS NC.ShrunkenGraphIconBM NC.ShrunkenGraphIconMask
NC.GraphCardIcon))
(FNS NC.GraphCardShrinkFn)
[DECLARE: DONTEVAL@LOAD (VARS (NC.ShrunkenGraphIconTemplate (create TITLEDICON ICON ←
NC.ShrunkenGraphIconBM
MASK ←
NC.ShrunkenGraphIconMask
TITLEREG ←
(QUOTE (16 4 64 77]
(* * Stuff for making copies of graphs for making imageobj's.)
(FNS NC.MakeExternalGraphCopy)
(* * Add the Graph card to the cardtypes list.)
(FNS NC.AddGraphCard)
(DECLARE: DONTEVAL@LOAD (P (NC.AddGraphCard])
(PUTPROPS NCFILEBOXCARD FileComs [[DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories
(QUOTE NCTEXTCARD]
(FNS NCAddStub.FileBoxCard)
(GLOBALVARS NC.FileBoxIcon NC.MarkersInFileBoxesFlg
NC.SubBoxMarkerLabel NC.FiledCardMarkerLabel
NC.AlphabetizedFileBoxChildrenFlg)
(FNS NC.FileBoxP NC.MakeFileBox NC.FileBoxCollectChildren)
(FNS NC.AddFileBoxCard)
(BITMAPS NC.FileBoxIcon)
(DECLARE: DONTEVAL@LOAD (P (NC.AddFileBoxCard])
(PUTPROPS NCBROWSERCARD FileComs [(* * Stuff for the Notecards browser.)
[DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories (QUOTE NCGRAPHCARD]
(FNS NCAddStub.BrowserCard)
(GLOBALVARS NC.SelectingBrowserSourceMenu NC.SpecialBrowserSpecsFlg
NC.BrowserContentsLinkLabel NC.SubBoxLinkLabel NC.FiledCardLinkLabel
NC.SelectingCardMenu NC.DashingStyles NC.GraphFlowerLinkSeparation
NC.LinkDashingInBrowser NC.ArrowHeadsInBrowser NC.BrowserSpecsStylesheet
NC.BrowserFormatOptions NC.*Graph*BrowserFormat NC.GraphEditMenuItems
NC.GraphEditUnfixedMenuItems NC.LinkIconShowTitleFlg
NC.LinkIconShowLinkTypeFlg NC.LinkIconAttachBitmapFlg NC.BrowserHashArraySize
NC.UseDeletedLinkIconIndicatorsFlg)
(INITVARS (NC.LinkDashingInBrowser NIL)
(NC.ArrowHeadsInBrowser (QUOTE None))
(NC.BrowserHashArraySize 2000))
[DECLARE: DONTEVAL@LOAD
(VARS [NC.DashingStyles (QUOTE (NIL (4 4)
(10 4 2 4)
(1 4)
(4 10)
(8 4)
(14 4)
(10 4 2 4 2 4)
(10 4 2 4 2 4 2 4]
(NC.GraphFlowerLinkSeparation 8)
(NC.BrowserSpecsStylesheet (CREATE.STYLE (QUOTE ITEMS)
(LIST (create MENU ITEMS ← T)
(create MENU ITEMS ← T)
(create MENU ITEMS ← T)
(create MENU ITEMS ← T)
(create MENU ITEMS ← T))
(QUOTE SELECTIONS)
(QUOTE (T T T T T))
(QUOTE ITEM.TITLES)
(QUOTE (Forward% Links
Backward% Links
Depth
Format
Orientation))
(QUOTE ITEM.TITLE.FONT)
(FONTCOPY MENUFONT (QUOTE WEIGHT)
(QUOTE BOLD))
(QUOTE NEED.NOT.FILL.IN)
(QUOTE (MULTI MULTI NIL NIL NIL))
(QUOTE TITLE)
"Browser Specs?"))
[NC.BrowserFormatOptions (QUOTE ((*GRAPH* *GRAPH*
"Build a directed graph (no virtual nodes).")
(LATTICE LATTICE
"Build an acyclic directed graph (uses virtual nodes in case of cycles).")
(COMPACT COMPACT
"Build a forest using minimal screen space.")
(FAST FAST
"Build a forest, sacrificing screen space for speed."]
(NC.*Graph*BrowserFormat (QUOTE *GRAPH*))
[NC.GraphEditMenuItems (QUOTE ((Create% Card% &% Node
NC.BrowserCreateCardFn
"Create a new card and a corresponding browser node.")
(Create% Link% &% Edge
NC.BrowserCreateLinkFn
"Create a new link and a corresponding browser edge."
(SUBITEMS
(
Create% Global% Link% &% Edge NC.BrowserCreateGlobalLinkFn
"Create a new global link and a corresponding browser edge.")))
(Delete% Card% &% Node
NC.BrowserDeleteCardFn
"Delete an existing card and its browser node.")
(Delete% Link% &% Edge
NC.BrowserDeleteLinkFn
"Delete an existing link and its browser edge.")
(Add% Label NC.BrowserAddLabelFn
"Add a string label to graph.")
(Add% Node NC.BrowserAddNodeFn
"Add a node to the browser corresponding to some existing card.")
(Add% Edge NC.BrowserAddEdgeFn
"Add an edge to the browser (no link created).")
(Remove% Node NC.BrowserRemoveNodeFn
"Remove a browser node (no card deleted).")
(Remove% Edge NC.BrowserRemoveEdgeFn
"Remove an edge from the browser (no link deleted).")
(Move% Node NC.BrowserMoveNodeFn
"Move a browser node."
(SUBITEMS (Move% Single% Node
NC.BrowserMoveNodeFn
"Move a browser node.")
(
Move% Node% &% Subtree NC.BrowserMoveSubtreeFn
"Move a subtree of nodes following the movement of the root.")
(Move% Region
NC.BrowserMoveNodesInRegionFn
"Move all nodes within a specified region to another region.")))
(Label% Smaller NC.BrowserShrinkLabelFn
"Reduce font size for a browser label.")
(Label% Larger NC.BrowserGrowLabelFn
"Increase font size for a browser label.")
("<-> Shade" EDITTOGGLELABEL
"Inverts label shade for a browser label."]
(NC.GraphEditUnfixedMenuItems (APPEND NC.GraphEditMenuItems
(QUOTE ((FIX% MENU
NC.BrowserFixGraphEditMenuFn
"Attach this menu to edge of browser window."]
(* * BROWSER mechanisms)
(FNS NC.MakeBrowserCard NC.BringUpBrowserCard)
(FNS NC.GrowLinkLattice NC.UpdateBrowserCard NC.RelayoutBrowserCard
NC.LayoutNewBrowserNodes NC.ConnectNodesInBrowser NC.UnconnectNodesInBrowser
NC.ExpandBrowserNode NC.AskBrowserSpecs NC.ChangeBrowserSpecs
NC.AskSpecialBrowserSpecs NC.BrowserFlipRoots NC.SelectGraphNode
NC.DisplayGraphLinksBetween NC.RebuildFromNodesInGraph
NC.RemoveDuplicateNodesFromGraph NC.ShowBrowserGraph)
(RECORDS SPECIALBROWSERSPECS)
(* * Graph editor menu functions.)
(FNS NC.GetGraphEditMenu NC.BrowserRightButtonFn NC.GraphEditMenuWhenSelectedFn
NC.BrowserCreateCardFn NC.BrowserAddLabelFn NC.BrowserAddNodeFn
NC.BrowserCreateLinkFn NC.BrowserCreateGlobalLinkFn NC.BrowserAddLink
NC.BrowserAddGlobalLink NC.BrowserAddEdgeFn NC.BrowserDeleteCardFn
NC.BrowserRemoveNodeFn NC.BrowserDeleteLinkFn NC.BrowserRemoveEdgeFn
NC.BrowserShrinkLabelFn NC.BrowserGrowLabelFn NC.BrowserMoveNodeFn
NC.BrowserMoveNodesInRegionFn NC.BrowserMoveSubtreeFn NC.BrowserFixGraphEditMenuFn
NC.BrowserCreateCard NC.BrowserCreateLink NC.BrowserDeleteLink NC.BrowserAddNode
NC.BrowserAddLabel NC.BrowserAddEdge NC.BrowserRemoveNode NC.DelBrowserContentsLink
NC.BrowserRemoveEdge)
(* * Grapher hacks for browser)
(FNS NC.MakeLinksLegend NC.MakeLinksLegendMenu NC.LinksLegendRepaintFn
NC.BrowserDrawLinkFn NC.DrawFlowerLinks NC.DrawFlowerLink NC.LinksLegendReshapeFn
NC.DrawArrowHead)
(* * for making and manipulating the tiny attached shrunken browser window.)
(INITVARS (NC.BrowserOverviewDefaultWidth 75)
(NC.BrowserOverviewDefaultHeight 75)
(NC.LeastScaleForGraphNodeShrinking .3))
(GLOBALVARS NC.BrowserOverviewDefaultWidth NC.BrowserOverviewDefaultHeight
NC.LeastScaleForGraphNodeShrinking NC.BrowserOverviewSpecsStylesheet
NC.DefaultWhereToAttachOverviewWin NC.DefaultBrowserOverviewMode
NC.OverviewWinMode.Compress NC.OverviewWinMode.Expand)
[DECLARE: DONTEVAL@LOAD (VARS (NC.OverviewWinMode.Compress (QUOTE Compress% Overview% Win))
(NC.OverviewWinMode.Expand (QUOTE Expand% Overview))
(NC.DefaultBrowserOverviewMode (QUOTE Neither]
[INITVARS (NC.DefaultWhereToAttachOverviewWin (QUOTE (LEFT . TOP)))
(NC.BrowserOverviewSpecsStylesheet (CREATE.STYLE
(QUOTE TITLE)
"Choose browser overview specs"
(QUOTE ITEM.TITLES)
(QUOTE (Edge Position% on% Edge Mode))
(QUOTE ITEM.TITLE.FONT)
(FONTCOPY MENUFONT (QUOTE WEIGHT)
(QUOTE BOLD))
(QUOTE ITEMS)
(LIST [create MENU ITEMS ←
(QUOTE ((LEFT LEFT
"Position along left edge.")
(TOP TOP
"Position along top edge.")
(RIGHT RIGHT
"Position along right edge.")
(BOTTOM BOTTOM
"Position along bottom edge."]
[create MENU ITEMS ←
(QUOTE ((TOP/RIGHT TOP
"Position at top or right end of edge.")
(CENTER CENTER
"Position at center of edge.")
(BOTTOM/LEFT BOTTOM
"Position at bottom or left of edge."]
(create MENU ITEMS ←
(QUOTE ((
Compress% Overview% Win Compress% Overview% Win
"Compress the overview window to exactly fit the overview contents.")
(Expand% Overview
Expand% Overview
"Expand the overview contents to exactly fill the overview window.")
(Neither Neither
"Neither expand the overview contents nor compress the overview window."]
(FNS NC.MakeBrowserOverviewWin NC.AskBrowserOverviewSpecs)
(FNS NC.DRAWBOX NC.ShrinkGraphToWindow NC.ScaleGraphNode NC.ComputeOverviewScale
NC.RedrawBrowserOverviewWin NC.DrawWireFrameInOverviewWin NC.CompressOverviewWin
NC.ReattachBrowserOverviewWin NC.BrowserScrollFn NC.BrowserReshapeFn
NC.BrowserOverviewWinRepaintFn NC.BrowserOverviewWinReshapeFn
NC.BrowserOverviewWinMINSIZEFn NC.BrowserOverviewWinButtonEventFn
NC.BrowserCardQuitFn)
(* * Miscellaneous)
(FNS NC.DelReferencesToCardFromBrowser NC.NewBrowserNodeUIDFromOldUID
NC.GetBrowserSubstance NC.ComputeBrowserSavedLinkingInfo
NC.ComputeBrowserSavedLinkingInfoForNode)
(FNS NC.FetchBrowserRootsInfo NC.FetchBrowserLinkLabels NC.FetchBrowserFormat
NC.FetchSpecialBrowserSpecs NC.FetchBrowserDepth NC.FetchBrowserSavedLinkingInfo
NC.FetchBrowserLinksLegend)
(FNS NC.SetBrowserRootsInfo NC.SetBrowserLinkLabels NC.SetBrowserFormat
NC.SetSpecialBrowserSpecs NC.SetBrowserDepth NC.SetBrowserSavedLinkingInfo
NC.SetBrowserLinksLegend)
(FNS NC.ReadBrowserRootsInfo NC.ReadBrowserLinkLabels NC.ReadBrowserFormat
NC.ReadSpecialBrowserSpecs NC.ReadBrowserDepth NC.ReadBrowserSavedLinkingInfo
NC.ReadBrowserSavedLinkingInfoForNode NC.ReadBrowserLinksLegend)
(FNS NC.WriteBrowserRootsInfo NC.WriteBrowserLinkLabels NC.WriteBrowserFormat
NC.WriteSpecialBrowserSpecs NC.WriteBrowserDepth NC.WriteBrowserSavedLinkingInfo
NC.WriteBrowserSavedLinkingInfoForNode NC.WriteBrowserLinksLegend)
(FNS NC.GraphLinkIconUpdateCheck NC.BrowserRepaintFn NC.CoerceToGraphNodeID
NC.CoerceToGraphNodeIDOrLabel NC.GetBrowserNodeID NC.MakeBrowserNodeUID
NC.GetBrowserHashArray NC.RemoveBrowserNodeHashArrayEntry NC.HashArrayFromBrowserCard
NC.CardFromBrowserNodeID NC.SmashGraphNodeIDProps NC.PutBrowserSubstance
NC.FetchBrowserRoots NC.SetBrowserRoots)
(FNS NC.GraphNodeIDGetProp NC.GraphNodeIDPutProp NC.GraphNodeIDRemProp)
(GLOBALVARS NC.ArrowHeadLength NC.ArrowHeadAngle NC.ArrowHeadXVal NC.ArrowHeadYVal)
[DECLARE: DONTEVAL@LOAD (VARS (NC.ArrowHeadLength 7)
(NC.ArrowHeadAngle 20)
(NC.ArrowHeadXVal (TIMES NC.ArrowHeadLength (COS
NC.ArrowHeadAngle)))
(NC.ArrowHeadYVal (TIMES NC.ArrowHeadLength (SIN
NC.ArrowHeadAngle]
(* * init)
(FNS NC.AddBrowserCard)
(DECLARE: DONTEVAL@LOAD (P (NC.AddBrowserCard])
(PUTPROPS NCSEARCHCARD FileComs [(* * Stuff for the Notecards search card.)
(DECLARE: DONTEVAL@LOAD (FILES NCTEXTCARD))
(FNS NCAddStub.SearchCard)
(FNS NC.MakeSearchCard NC.AddSearchCard NC.TitleSearch)
(DECLARE: DONTEVAL@LOAD (P (NC.AddSearchCard])
(PUTPROPS NCDOCUMENTCARD FileComs [(* * Stuff for the Document compiler facility.)
(DECLARE: DONTEVAL@LOAD (FILES NCTEXTCARD))
(FNS NCAddStub.DocumentCard)
(GLOBALVARS NC.MakeDocParameters NC.DocBackPtrLinkLabel NC.SubBoxLinkLabel
NC.FiledCardLinkLabel PSA.Database NC.SelectingCardMenu NC.CRString
NC.DocTitleParaLeading)
(DECLARE: DONTEVAL@LOAD (VARS [NC.MakeDocParameters (QUOTE ((HeadingsFromFileboxes
NumberedBold
UnnumberedBold
NONE)
(TitlesFromNoteCards Bold
NotBold
NONE)
(BuildBackLinks ToCardsBoxes
ToCards
ToBoxes NONE)
(CopyEmbeddedLinks ALL NONE
Select)
(ExpandEmbeddedLinks ALL NONE
Select)
(--DONE--]
(NC.CRString (CONCAT (CHARACTER 13)))
(NC.DocTitleParaLeading 20)))
(* * MakeDocument stuff)
(FNS NC.MakeDocument NC.DumpCardToDoc NC.DumpFileBoxToDoc NC.DumpNoteCardToDoc
NC.FetchToLinksInOrder NC.BuildMakeDocInspector NC.MakeDocInspectorSelectionFn
NC.AddCRIfNeeded NC.ChangeParaLeading NC.DumpExportableCardToDoc)
[DECLARE: DONTEVAL@LOAD
(P (SETPROPLIST (QUOTE NC.MakeDocParameters)
(QUOTE (HeadingsFromFileboxes NumberedBold TitlesFromNoteCards
Bold BuildBackLinks NONE
CopyEmbeddedLinks ALL
ExpandEmbeddedLinks NONE --DONE--
--CANCEL-- VALUE
((HeadingsFromFileboxes
NumberedBold
UnnumberedBold
NONE)
(TitlesFromNoteCards Bold NotBold
NONE)
(BuildBackpointers ToCardsBoxes
ToCards
ToBoxes NONE)
(CopyEmbeddedLinks ALL NONE
Select)
(ExpandEmbeddedLinks ALL NONE
Select)
(--DONE--]
(FNS NC.AddDocumentCard)
(DECLARE: DONTEVAL@LOAD (P (NC.AddDocumentCard])
(PUTPROPS NCLINKINDEXCARD FileComs [(* * Link Index stuff)
(DECLARE: DONTEVAL@LOAD (FILES NCTEXTCARD))
(FNS NCAddStub.LinkIndexCard)
(GLOBALVARS NC.LinkIndexExtraMenuItems NC.LinkIndexSpecsStylesheet)
[DECLARE: DONTEVAL@LOAD (VARS [NC.LinkIndexExtraMenuItems
(QUOTE ((Recompute% Link% Index (FUNCTION
NC.RecomputeLinkIndex)
"Recompute this link index throwing away current contents.")
(Change% Link% Index% Specs
(FUNCTION NC.ChangeLinkIndexSpecs
"Change some or all of Link Index specs."]
(NC.LinkIndexSpecsStylesheet (CREATE.STYLE
(QUOTE ITEMS)
(LIST (create MENU ITEMS ← T)
(create MENU ITEMS ← T)
(create MENU ITEMS ← T))
(QUOTE SELECTIONS)
(QUOTE (T T T))
(QUOTE ITEM.TITLES)
(QUOTE (Forward% Links
Backward% Links
Create% Back% Links?))
(QUOTE ITEM.TITLE.FONT)
(FONTCOPY MENUFONT
(QUOTE WEIGHT)
(QUOTE BOLD))
(QUOTE NEED.NOT.FILL.IN)
(QUOTE (MULTI MULTI NIL))
(QUOTE TITLE)
"Link Index Specs?"]
(* * Link Index functions)
(FNS NC.MakeLinkIndex NC.BringUpLinkIndexCard NC.ComputeLinkIndex NC.RecomputeLinkIndex
NC.AskLinkIndexSpecs NC.ChangeLinkIndexSpecs NC.AppendLinkIndexEntry
NC.LinkIndexCompareFn)
(FNS NC.AddLinkIndexCard)
(DECLARE: DONTEVAL@LOAD (P (NC.AddLinkIndexCard])
(PUTPROPS NCLISTCARD FileComs [(* * The list card -- just a Lisp list stored on the file!)
(FNS NCAddStub.ListCard)
(FNS NC.AddListCard NC.ListCardCopyFn NC.ListCardCreateFn
NC.ListCardEditFn NC.ListCardGetFn NC.ListCardPutFn
NC.EvaluateListCardSubstance)
(DECLARE: DONTEVAL@LOAD (P (NC.AddListCard])
(PUTPROPS NCCONVERTVERSION2TO3 FileComs [(* * The junk in here is for converting a 1.2 style file
into 1.3 style.)
(FNS NC.ConvertNoteFileVersion2To3 NC.BuildVersion2HashArray NC.GetAndPutVersion2Card
NC.ReadVersion2Title NC.ReadVersion2Links NC.ReadVersion2PropList
NC.ReadVersion2MainCardData NC.ReadVersion2LinkLabels NC.ConvertVersion2LinkIcon
NC.ReadVersion2CardPartHeader NC.Version3CardFromVersion2ID)
(FNS NC.ConvertLinkFormat)
(* * Functions to convert version 2 browsers to version 3.0 This is just the
MergeNoteFiles browser code modified.)
(FNS NC.ConvertVersion2BrowserCard NC.ConvertVersion2GraphNodeID)
(* * Functions and vars basically stolen and renamed from the old 1.2 source.)
(GLOBALVARS NC.Version2LinkLabelsIdentifier NC.Version2ItemIdentifier
NC.Version2LinksIdentifier NC.Version2PropsIdentifier
NC.Version2TitlesIdentifier NC.DateStringLength)
(DECLARE: DONTEVAL@LOAD (VARS (NC.Version2LinkLabelsIdentifier (QUOTE ###LABELS###))
(NC.Version2ItemIdentifier (QUOTE ###ITEM###))
(NC.Version2LinksIdentifier (QUOTE ###LINKS###))
(NC.Version2PropsIdentifier (QUOTE ###PROPS###))
(NC.Version2TitlesIdentifier (QUOTE ###TITLES###))
(NC.DateStringLength 18)))
(FNS NC.IndexInFileFromID NC.ReadVersion2Ptrs NC.ReadVersion2Region
NC.ReadVersion2Identifier NC.ReadVersion2Date)
(RECORDS POINTERLIST NOTECARDLINK)
(DECLARE: DONTEVAL@LOAD (P (NC.StoreAutoloadFnFile (FUNCTION NC.ScavengeDatabaseFile)
(QUOTE NCREPAIR)
(QUOTE NOTECARDSDIRECTORIES])
(PUTPROPS KOTOSYSTEMPATCHES FileComs [(* * to compile SHAPEW must have EXPORTS.ALL loaded)
(DECLARE: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY
(FILES EXPORTS.ALL (LOADFROM)
NSPRINT))
(FNS SHAPEW \NSPRINT.INTERNAL COPY.TEXT.TO.IMAGE)
(RESOURCES HPRINTHARRAY)
(MACROS HPRINTSTRING)
(GLOBALVARS HPFILLSTRING)
[DECLARE: EVAL@COMPILE DONTCOPY
(VARS HPFILLCHAR HPBAKCHAR
(HPFILLSTRING (PACKC (LIST HPBAKCHAR
HPFILLCHAR]
(FNS HPRINT HPRINT1 HCOPYALL HCOPYALL1 HPRINTEND HPRINTSP)
(* * fgh&rht 8/6/86: Insure that correct imageobj HPRINTMACRO
is at front of the HPRINTMACROS list.)
(FNS WRITE.IMAGEOBJ)
(DECLARE: DONTEVAL@LOAD (ADDVARS (HPRINTMACROS (IMAGEOBJ .
WRITE.IMAGEOBJ])
(PUTPROPS KOTOTEDITPATCHES FileComs [(FNS \TEDIT.COMMAND.LOOP \TEDIT.FOREIGN.COPY? \TEDIT.SUBST.FN2
TEDIT.GETINPUT BMOBJ.GETFN3 BMOBJ.DISPLAYFN
BMOBJ.BUTTONEVENTINFN)
(DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (NONE.TTC 0)
(CHARDELETE.TTC
1)
(WORDDELETE.TTC
2)
(DELETE.TTC 3)
(FUNCTIONCALL.TTC
4)
(REDO.TTC 5)
(UNDO.TTC 6)
(CMD.TTC 7)
(NEXT.TTC 8)
(EXPAND.TTC 9)
(PUNCT.TTC 20)
(TEXT.TTC 21)
(WHITESPACE.TTC
22)))
(DECLARE: DONTEVAL@LOAD (ADVISE (PROCESS.APPLY IN
\TEDIT.BUTTONEVENTFN])
(PUTPROPS KOTOSKETCHPATCHES FileComs ((DECLARE: DONTEVAL@LOAD DONTCOPY EVAL@COMPILE
(FILES (FROM {CF}<PAPERWORKS>)
SKETCHWHENCOPIEDPATCH
(LOADFROM FROM {CF}<PAPERWORKS>)
SKETCH SKETCHOBJ))
(FNS MAKE.IMAGE.OBJECT.OF.SKETCH SKETCH.VIEWER.GRID
SKETCH.VIEWER.SCALE SKETCH.REGION.VIEWED)))
(PUTPROPS GRAPHERPATCH FileComs [(* * RG 1/28/87 From Dave Newman's DVNPATCH003 for NoteCards. Adds
MoveRegion and MoveSubtree facilities.)
[DECLARE: DONTEVAL@LOAD
(P (if (NOT (OR (MEMBER (QUOTE GRAPHER)
SYSFILES)
(MEMBER (QUOTE GRAPHER)
FILELST)))
then
(ERROR
"GRAPHER is not loaded. It must be loaded before GRAPHERPATCH."]
(FNS EDITMOVEREGION EDITMOVESUBTREE NOT.TRACKCURSOR
RECURSIVE.COLLECTDESCENDENTS MOVEDESCENDENTS
COLLECT.CHILD.NODES CREATE.NEW.NODEPOSITION
GETBOXPOSITION.FROMINITIALREGION INIT/NODES/FOR/LAYOUT
NODECREATE)
(DECLARE: DONTEVAL@LOAD
(P (DREMOVE (SASSOC "Move Node" EDITGRAPHMENUCOMMANDS)
EDITGRAPHMENUCOMMANDS)
[ADDTOVAR EDITGRAPHMENUCOMMANDS
(Move% Node (QUOTE MOVENODE)
"Moves a single node in the graph."
(SUBITEMS (Move% Single% Node
(QUOTE MOVENODE)
"Moves a single node in the graph.")
(
Move% Node% and% Subtree (EDITMOVESUBTREE GRAPHWINDOW)
"Moves a subtree of nodes relative to the movement of their root.")
(Move% Region
(EDITMOVEREGION
GRAPHWINDOW)
"Moves a group of nodes within a specified region to another region."]
(SETQ EDITGRAPHMENU NIL])
(PUTPROPS NCMAPS FileComs [(DECLARE: DONTEVAL@LOAD (FILES (FROM VALUEOF NOTECARDSDIRECTORIES)
NCSKETCHCARD))
(* * NOTECARDSMAPDIRECTORIES stuff)
(GLOBALVARS NOTECARDSMAPDIRECTORIES UseMapWithPoliticalBoundaries)
(FNS NC.SetUpNOTECARDSMAPDIRECTORIES)
(INITVARS (NOTECARDSMAPDIRECTORIES (NC.SetUpNOTECARDSMAPDIRECTORIES)))
(* * Smash any dummy MAP def'n on SKETCH.ELEMENT.TYPE.NAMES before
loading NEWMAP)
(DECLARE: DONTEVAL@LOAD (P (DREMOVE (QUOTE MAP)
SKETCH.ELEMENT.TYPE.NAMES))
(FILES (FROM VALUEOF NOTECARDSMAPDIRECTORIES)
NEWMAP)
(P (NCP.ChangeCardTypeFields (QUOTE Sketch)
NIL
(BQUOTE ((MiddleButtonMenuItems
,
(
SKETCH.COMMANDMENU.ITEMS T T])
(PUTPROPS NCHACKS FileComs ((* * global text search and global text replace.)
(FNS NCHACKS.GlobalTextReplace NCHACKS.TextSearch
NCHACKS.GlobalTextReplaceInCard NCHACKS.TextSearchInCard)
(* * remove deleted icons from text cards.)
(FNS NCHACKS.RemoveDeletedIconsFromTextCards
NCHACKS.RemoveDeletedIconsFromTextCard)
(* * sort link icons in text cards.)
(FNS NCHACKS.ReorderLinkIconsInTextCards
NCHACKS.ReorderLinkIconsInTextCard)
(* * search for card parts with dates in a specified range.)
(FNS NCHACKS.DateSearch NCHACKS.DateSearchInCard)
(* * search for cards which have been modified/created within given
time periods.)
(FNS NCHACKS.CardsModifiedBetweenDates)
(* * make a chain linking cards using a given link type.)
(FNS NCHACKS.MakeChain)
(* * Make link icons invisible in text cards.)
(FNS NCHACKS.MakeLinkIconsInvisible
NCHACKS.MakeLinkIconsInvisibleInTextCard
NCHACKS.MakeLinkIconForLinkInvisible
NCHACKS.MakeTEditCharInvisible)))
(PUTPROPS NCIDEASKETCHCARD FileComs [(* * This package makes a card type IdeaSketch implementing
Richard's idea sketch package.)
(* * kirk 11Aug86 converted to 1.3k)
[DECLARE: DONTEVAL@LOAD FIRST (P (NC.LoadFileFromDirectories
(QUOTE NCSKETCHCARD))
(NC.LoadFileFromDirectories
(QUOTE IDEASKETCH)
(QUOTE LISPUSERSDIRECTORIES]
(FNS NCAddStub.IdeaSketchCard)
(FNS NCIDEASKETCH.CreateIdeaSketchCard
NCIDEASKETCH.MakeIdeaSketchCard
NCIDEASKETCH.BringUpIdeaSketchCard)
(DECLARE: DONTEVAL@LOAD (P (NCIDEASKETCH.CreateIdeaSketchCard])
(PUTPROPS NCCOMPACT Directories NOTECARDSDIRECTORIES)
(PUTPROPS NCREPAIR Directories NOTECARDSDIRECTORIES)
(PUTPROPS NCCONVERTVERSION2TO3 Directories NOTECARDSDIRECTORIES)
(PUTPROPS NCMAPS Directories NOTECARDSDIRECTORIES)
(PUTPROPS NCHACKS Directories NOTECARDSDIRECTORIES)
(PUTPROPS NCIDEASKETCHCARD Directories NOTECARDSDIRECTORIES)
(RPAQQ NC.AutoloadableFns (NC.ConvertNoteFileVersion2To3 NC.FindNextCardPart NC.ScavengerPhase1
NC.CompactNoteFileInPlace
NC.CompactNoteFileToTarget SK.MAP.INPUTFN
SK.MAP.INSIDEFN SetCachedBitMap
NC.ScavengeDatabaseFile))
(PUTPROPS NC.ConvertNoteFileVersion2To3 File NCCONVERTVERSION2TO3)
(PUTPROPS NC.FindNextCardPart File NCREPAIR)
(PUTPROPS NC.ScavengerPhase1 File NCREPAIR)
(PUTPROPS NC.CompactNoteFileInPlace File NCCOMPACT)
(PUTPROPS NC.CompactNoteFileToTarget File NCCOMPACT)
(PUTPROPS SK.MAP.INPUTFN File NCMAPS)
(PUTPROPS SK.MAP.INSIDEFN File NCMAPS)
(PUTPROPS SetCachedBitMap File NCMAPS)
(PUTPROPS NC.ScavengeDatabaseFile File NCREPAIR)
)
(RPAQQ NC.AutoloadStubFns (NCAddStub.SketchCard NCAddStub.GraphCard NCAddStub.BrowserCard
NCAddStub.SearchCard NCAddStub.DocumentCard
NCAddStub.LinkIndexCard NCAddStub.IdeaSketchCard))
(DEFINEQ
(NCAddStub.SketchCard
[LAMBDA NIL (* rht: " 7-Nov-86 16:33")
(* * kirk 18Jun86 Add the Sketch card stub)
(* * rht 11/7/86: Fixed typo, changing a QUOTE to BQUOTE.)
(DECLARE (GLOBALVARS NC.SketchCardIcon))
(NC.AddCardTypeStub (QUOTE Sketch)
(QUOTE NoteCard)
(QUOTE NCSKETCHCARD)
NIL
(BQUOTE ((DisplayedInMenuFlg T)
(LinkIconAttachedBitMap , NC.SketchCardIcon])
(NCAddStub.GraphCard
[LAMBDA NIL (* rht: " 7-Nov-86 16:33")
(* * kirk 18Jun86 Add the Graph card stub)
(* * rht 11/7/86: Fixed typo, changing a QUOTE to BQUOTE.)
(DECLARE (GLOBALVARS NC.GraphCardIcon))
(NC.AddCardTypeStub (QUOTE Graph)
(QUOTE NoteCard)
(QUOTE NCGRAPHCARD)
NIL
(BQUOTE ((DisplayedInMenuFlg T)
(LinkIconAttachedBitMap , NC.GraphCardIcon])
(NCAddStub.BrowserCard
[LAMBDA NIL (* rht: " 8-Nov-86 19:21")
(* * kirk 18Jun86 Add the Browser card stub)
(* * rht 11/7/86: Now passes down a \\FILLME// field.)
(NC.AddCardTypeStub (QUOTE Browser)
(QUOTE Graph)
(QUOTE NCBROWSERCARD)
NIL
(QUOTE ((DisplayedInMenuFlg T)))
(QUOTE (LinkIconAttachedBitMap])
(NCAddStub.SearchCard
[LAMBDA NIL (* rht: " 8-Nov-86 19:20")
(* * kirk 18Jun86 Add the Search card stub)
(* * rht 11/7/86: Now passes down a \\FILLME// field.)
(NC.AddCardTypeStub (QUOTE Search)
(QUOTE Text)
(QUOTE NCSEARCHCARD)
NIL
(QUOTE ((DisplayedInMenuFlg T)))
(QUOTE (LinkIconAttachedBitMap])
(NCAddStub.DocumentCard
[LAMBDA NIL (* rht: " 8-Nov-86 19:21")
(* * kirk 18Jun86 Add the FileBox card stub)
(NC.AddCardTypeStub (QUOTE Document)
(QUOTE Text)
(QUOTE NCDOCUMENTCARD)
NIL
(QUOTE ((DisplayedInMenuFlg . T)))
(QUOTE (LinkIconAttachedBitMap])
(NCAddStub.LinkIndexCard
[LAMBDA NIL (* rht: " 8-Nov-86 19:20")
(* * kirk 18Jun86 Add the LinkIndex card stub)
(* * rht 11/7/86: Now passes down a \\FILLME// field.)
(NC.AddCardTypeStub (QUOTE LinkIndex)
(QUOTE Text)
(QUOTE NCLINKINDEXCARD)
NIL
(QUOTE ((DisplayedInMenuFlg T)))
(QUOTE (LinkIconAttachedBitMap])
(NCAddStub.IdeaSketchCard
[LAMBDA NIL (* rht: " 8-Nov-86 19:19")
(* * kirk 18Jun86 Add the IDEASKETCH card stub)
(NC.AddCardTypeStub (QUOTE IdeaSketch)
(QUOTE Sketch)
(QUOTE NCIDEASKETCHCARD)
NIL
(QUOTE ((DisplayedInMenuFlg T)))
(QUOTE (LinkIconAttachedBitMap])
)
(PUTDEF (QUOTE CONFIGPROPS) (QUOTE FILEPKGCOMS) [QUOTE ((COM MACRO (X (COMS * (MAKECONFIGPROPSCOMS .
X])
(DECLARE: DONTEVAL@LOAD
(RPAQ NC.SketchCardIcon (READBITMAP))
(21 18
"OOOOOH@@"
"H@@@@H@@"
"HGO@@H@@"
"HH@H@H@@"
"H@@G@H@@"
"HC@@HH@@"
"HDH@DH@@"
"HHD@BH@@"
"I@B@@H@@"
"I@B@@H@@"
"HHDONH@@"
"HDHHBH@@"
"HC@HBH@@"
"H@@HBH@@"
"H@@HBH@@"
"H@@ONH@@"
"H@@@@H@@"
"OOOOOH@@")
(RPAQ NC.GraphCardIcon (READBITMAP))
(21 18
"OOOOOH@@"
"H@@@@H@@"
"H@@@@H@@"
"H@N@@H@@"
"H@J@@H@@"
"HAJ@@H@@"
"HBO@@H@@"
"HD@KHH@@"
"KH@FHH@@"
"JH@BHH@@"
"JH@CHH@@"
"KL@@@H@@"
"HBN@@H@@"
"HAJ@@H@@"
"H@J@@H@@"
"H@N@@H@@"
"H@@@@H@@"
"OOOOOH@@")
)
(DEFINEQ
(NC.UpdateConfig
[LAMBDA (Directory) (* Randy.Gobbel " 4-Sep-87 12:24")
(DECLARE (GLOBALVARS NC.ForceLoadFlg NC.InstallFlg NC.Files NC.AutoloadStubFns NC.NoUpdateFlg
NOTECARDTYPESTUBS NOTECARDSDIRECTORIES))
(if (NOT NC.NoUpdateFlg)
then (SETQ Directory (OR Directory (DIRECTORYNAME T)))
(for File in NC.Files
do [if (AND NC.InstallFlg (GETPROP File (QUOTE ConfigProps)))
then (LET ((FullName (NC.FindFile File NIL T T)))
(if FullName
then (if NC.ForceLoadFlg
then (LOAD FullName (QUOTE ALLPROP))
else (LOAD? FullName (QUOTE ALLPROP]
(for Prop in (GETPROP File (QUOTE ConfigProps)) when (LISTP Prop)
do (PUTPROP File (CAR Prop)
(APPLY* (CADR Prop)
File Directory)))
(PRINTOUT T File ": " (GETPROP File (QUOTE SourceFile))
" "
(GETPROP File (QUOTE CompiledFile))
" "
(GETPROP File (QUOTE FileDate))
T))
(SETQ NC.AutoloadStubFns (for TypeName in NOTECARDTYPESTUBS bind Fn
eachtime (SETQ Fn (PACK* (QUOTE NCAddStub.)
TypeName
(QUOTE Card)))
when (GETD Fn) collect Fn])
(NC.UpdateSingleFile
[LAMBDA (File) (* Randy.Gobbel " 2-Sep-87 14:07")
[for Prop in (GETPROP File (QUOTE ConfigProps)) when (LISTP Prop)
do (PUTPROP File (CAR Prop)
(APPLY* (CADR Prop)
File
(DIRECTORYNAME T T]
(PRINTOUT T File ": " (GETPROP File (QUOTE SourceFile))
" "
(GETPROP File (QUOTE CompiledFile))
" "
(GETPROP File (QUOTE FileDate))
T])
(NC.FixFileDates
[LAMBDA (Files) (* Randy.Gobbel "21-Jul-87 12:37")
(* * rg 10/29/86: Created)
(* * rg 6/19/87 now uses config machinery, smashes all necessary info, not just filedates property)
(* * rg 7/21/87 tweaks for robustness, added NC.SourceAccessFlg)
(* * if NC.SourceAccessFlg is non-nil, AND all needed info is available, smash props and FILELST to make Interlisp
think the file wasn't SYSLOADed, so we can get to the sources)
(DECLARE (GLOBALVARS NC.SourceAccessFlg FILELST))
(if NC.SourceAccessFlg
then (for file in (MKLIST Files)
do (LET ((rootName (FILENAMEFIELD file (QUOTE NAME)))
FileDate SourceFile InitialFile FileComs)
(AND (SETQ FileDate (GETPROP rootName (QUOTE FileDate)))
(SETQ SourceFile (GETPROP rootName (QUOTE SourceFile)))
(SETQ InitialFile (GETPROP rootName (QUOTE InitialFile)))
(SETQ FileComs (GETPROP rootName (QUOTE FileComs)))
(UNINTERRUPTABLY
(PUTPROP rootName (QUOTE FILEDATES)
(LIST (CONS FileDate SourceFile)))
(PUTPROP rootName (QUOTE FILE)
InitialFile)
(SET (FILECOMS rootName)
FileComs)
(pushnew FILELST rootName))])
(NC.FindFile
[LAMBDA (FileName TypeName CheckConnectedDirFlg SourceFlg Directories)
(* Randy.Gobbel "20-Jul-87 18:45")
(* * kirk 6/12/86 find code file to implement a card type)
(* * kirk 9/21/86 added optional FileName parameter)
(* * rht&rg&pmi 10/21/86: Removed lots of useless kruft and replaced with other FINDFILE kruft.
Added CheckConnectedDirFlg arg.)
(* * kirk 12/23/86 replaced use of DCOM with COMPILE.EXT)
(* * RG 5/15/87 now return NIL if final FINDFILE fails)
(* * rg 6/19/87 try to use filename props if they exist. Don't use props if initial install of this version on a
particular file server.)
(* * rg 7/20/87 fix glitch in file props scheme)
(DECLARE (GLOBALVARS NOTECARDSDIRECTORIES))
(LET [(FilesLoadDirs (if Directories
then (EVAL Directories)
elseif CheckConnectedDirFlg
then (CONS (DIRECTORYNAME T T)
NOTECARDSDIRECTORIES)
else NOTECARDSDIRECTORIES))
(FileProps (GETPROP FileName (if SourceFlg
then (QUOTE SourceFile)
else (QUOTE CompiledFile]
[OR FileName (SETQ FileName (PACK* (QUOTE NC)
(U-CASE TypeName)
(QUOTE CARD]
(OR (AND (NOT NC.InstallFlg)
FileProps
(FINDFILE FileProps))
(if (AND (NULL (FILENAMEFIELD FileName (QUOTE EXTENSION)))
(FINDFILE (PACKFILENAME (QUOTE BODY)
FileName
(QUOTE EXTENSION)
(if SourceFlg
then ""
else COMPILE.EXT))
T FilesLoadDirs))
else (FINDFILE FileName T FilesLoadDirs])
(NC.LoadFileFromDirectories
[LAMBDA (FileName Directories QuietFlg) (* Randy.Gobbel " 4-Sep-87 12:27")
(* * Try to load FileName from Directories. The latter can be a list in which case the elements should be directory
paths. It can be an atom in which case it should be a DIRECTORIES var. Or it can be NIL in which case it defaults
to the litatom NOTECARDSDIRECTORIES.)
(* * fgh 6/3/86 Now closes tty window after ts done.)
(* * rht 10/31/86: Changed "DIRECTORIES" to "Directories")
(* * rht 4/17/87: Now smashes PAGEFULLFN of tty window so that it'll scroll automatically. Also prints a message to
the tty window.)
(* * rg 7/9/87 now uses NC.FindFile)
(* * rg 7/21/87 now looks at QuietFlg before doing PRINTOUT. Note: there may still be some instances where files
will not be loaded, even though a message is printed, but it's too difficult to predict for all cases whether LOAD?
will actually do a LOAD. Membership in LOADEDFILELST is used as a 99% correct hint)
(* * rg 9/4/87 now pushes file name onto NC.LoadedFiles for use by NC.PostGreet)
(DECLARE (GLOBALVARS LOADEDFILELST NC.LoadedFiles))
(RESETLST [RESETSAVE NIL (if (OPENWP (WFROMDS (TTYDISPLAYSTREAM)
T))
then (SETQ QuietFlg T)
(QUOTE (NILL))
else (BQUOTE (CLOSEW , (WFROMDS (TTYDISPLAYSTREAM]
[RESETSAVE NIL (if QuietFlg
then (QUOTE (NILL))
else (BQUOTE (WINDOWPROP , (WFROMDS (TTYDISPLAYSTREAM))
(QUOTE PAGEFULLFN)
,
(WINDOWPROP (WFROMDS (
TTYDISPLAYSTREAM))
(QUOTE PAGEFULLFN)
(QUOTE NILL]
(LET [(Window (WFROMDS (TTYDISPLAYSTREAM)))
(FullName (NC.FindFile FileName NIL NIL NIL (OR (GETPROP FileName
(QUOTE
Directories))
Directories]
(if (AND FullName (NOT (FMEMB FullName LOADEDFILELST)))
then (if (NOT QuietFlg)
then (CLEARW Window)
(FLASHWINDOW Window)
(PRINTOUT Window "Attempting to autoload " FileName T))
(APPLY* (FUNCTION FILESLOAD)
(QUOTE (SYSLOAD))
FullName)
(pushnew NC.LoadedFiles (FILENAMEFIELD FileName (QUOTE NAME)))
(NC.FixFileDates FileName])
(NC.LookupAutoloadFnFile
[LAMBDA (AutoloadFn) (* Randy.Gobbel "10-Jul-87 17:17")
(* * Fetch the fully-qualified filename for loading given function)
(GETPROP (GETPROP AutoloadFn (QUOTE File))
(QUOTE CompiledFile])
(NC.StoreAutoloadFnFile
[LAMBDA (AutoloadFn FileName Directories) (* edited: "26-Aug-87 17:22")
(* * Store an entry in the autoload table for given AutoloadFn. It consists of FileName and Directories variable or
list or NIL.)
(PUTPROP AutoloadFn (QUOTE File)
FileName)
(PUTPROP FileName (QUOTE Directories)
Directories)
(pushnew NC.AutoloadableFns AutoloadFn])
(NC.SetStandardConfigProps
[LAMBDA (File) (* Randy.Gobbel "10-Jul-87 20:43")
(* * rg 7/8/87 add necessary config props for a standard NoteCards component file)
(PUTPROP File (QUOTE ConfigProps)
(UNION (GETPROP File (QUOTE ConfigProps))
(QUOTE (COPYRIGHT [SourceFile (LAMBDA (File Directory)
(FINDFILE
File T (OR (EVAL (GETPROP
File
(QUOTE
Directories)))
(LIST Directory]
[CompiledFile (LAMBDA (File Directory)
(FINDFILE
(PACKFILENAME (QUOTE BODY)
File
(QUOTE EXTENSION)
COMPILE.EXT)
T
(OR (EVAL (GETPROP File
(QUOTE
Directories))
)
(LIST Directory]
[FileDate (LAMBDA (File)
(CAAR (GETPROP File (QUOTE FILEDATES]
[InitialFile (LAMBDA (File)
(LIST (CONS (FILECOMS File)
(QUOTE Compiled]
(FileComs (LAMBDA (File)
(EVAL (FILECOMS File])
(MAKECONFIGPROPSCOMS
[NLAMBDA Files (* Randy.Gobbel "13-Jul-87 14:18")
(LET [(Props (for File in Files join (for Val in (GETPROP File (QUOTE ConfigProps))
collect (if (LISTP Val)
then (CAR Val)
else Val]
(SETQ Props (INTERSECTION Props Props))
(for Prop in Props collect (APPEND (LIST (QUOTE IFPROP)
Prop)
Files])
)
(DECLARE: EVAL@COMPILE
[DEFMACRO NC.AutoloadApply (Fn Args)
(* * Like NC.AutoloadApply* except takes single Args argument rather than spread.)
(BQUOTE (if (GETD , Fn)
then
(APPLY , Fn , Args)
else
(LET ((FileName (NC.LookupAutoloadFnFile , Fn)))
(if FileName then (NC.LoadFileFromDirectories FileName)
(if (GETD , Fn)
then
(APPLY , Fn , Args)
else
(NC.ReportError "NC.AutoloadApply"
(CONCAT "Loaded file " FileName
", but still no definition of "
, Fn)))
else
(NC.ReportError "NC.AutoloadApply" (CONCAT "No definition of " , Fn
" in table of autoloadable functions."]
[DEFMACRO NC.AutoloadApply* (Fn &REST args)
(* * First arg is name of function to apply. Rest are args. The fn name should be in the
global table with an accompanying file to autoload from.)
(BQUOTE (if (GETD , Fn)
then
(APPLY* , Fn ,@ args)
else
(LET ((FileName (NC.LookupAutoloadFnFile , Fn)))
(if FileName then (NC.LoadFileFromDirectories FileName)
(if (GETD , Fn)
then
(APPLY* , Fn ,@ args)
else
(NC.ReportError "NC.AutoloadApply*"
(CONCAT "Loaded file " FileName
", but still no definition of "
, Fn)))
else
(NC.ReportError "NC.AutoloadApply*" (CONCAT "No definition of " , Fn
" in table of autoloadable functions."]
[PUTPROPS NAMED-RESETLST MACRO ((X . Y)
(PROG (RESETY RESETZ (LISPXHIST LISPXHIST))
[NAMED-RESETRESTORE (QUOTE X)
(SETQ RESETZ (COND ((XNLSETQ (SETQ RESETY (PROGN . Y))
INTERNAL)
NIL)
(T (QUOTE ERROR]
(RETURN (COND (RESETZ (ERROR!))
(T RESETY]
(DEFMACRO NAMED-RESETSAVE (RESETHANDLE &REST FORMS)
(BQUOTE (LET (RESETITEM)
(SETQ , RESETHANDLE
(CONS [SETQ
RESETITEM ,
(COND
[(AND (ATOM (CAR FORMS))
(CAR FORMS))
(SUBPAIR (QUOTE (VAR VAL))
(CDR X)
(QUOTE (PROG1 [CONS (QUOTE VAR)
(CONS (STKSCAN (QUOTE VAR))
(EVAL (QUOTE VAR]
(SET (QUOTE VAR)
VAL]
[(CDR FORMS)
(BQUOTE (LIST , (CADR FORMS)
,
(CAR FORMS]
(T (BQUOTE (LIST (LIST [QUOTE , (COND ((EQ (CAAR FORMS)
(QUOTE SETQ))
(CAR (CADDAR FORMS)))
(T (CAAR FORMS]
,
(CAR FORMS]
, RESETHANDLE))
RESETITEM)))
[DEFMACRO NAMED-RESETUNSAVE (RESETHANDLE ITEMFORM)
(BQUOTE (LET ((ITEMLIST , ITEMFORM))
(for ITEM in ITEMLIST do (SET RESETHANDLE (DREMOVE ITEM , RESETHANDLE))
(COND ((LISTP (CAR ITEM))
[SETQ OLDVALUE (COND ((CDR ITEM)
(CADR ITEM))
(T (CADAR ITEM]
(APPLY (CAAR ITEM)
(CDAR ITEM)))
(T (SET (CAR ITEM)
(CDR ITEM]
)
(DEFINEQ
(NAMED-RESETLST
[NLAMBDA RESETX (* Randy.Gobbel "19-Mar-87 11:06")
(* NAMED-RESETLST and NAMED-RESETSAVE act just like the generic versions, except that they take a RESETHANDLE
argument. This allows the scope of RESETLSTs to overlap. The RESETHANDLE variable should be bound inside of a LET
or PROG to ensure that different processes do not collide in their use of this facility.)
(PROG (RESETY RESETZ (LISPXHIST LISPXHIST))
(SET (CAR RESETX)
NIL)
[NAMED-RESETRESTORE (CAR RESETX)
(COND
((SETQ RESETY (ERRORSET (CONS (QUOTE PROGN)
(CDR RESETX))
(QUOTE INTERNAL)))
NIL)
(T (QUOTE ERROR]
[COND
(RESETY (RETURN (CAR RESETY]
(ERROR!])
(NAMED-RESETSAVE
[NLAMBDA RESETX (* Randy.Gobbel "19-Mar-87 19:33")
(* for use under a NAMED-RESETLST. If RESETX is atmic, like RESETVAR, otherwise like RESETFORM, i.e. performs the
resetting and saving associated with these functions. The restoration aad errorset protectionis done by
NAMED-RESETLST. The item added to RESETHANDLE is returned for possible later use by NAMED-RESETUNSAVE.
When used a la RESETFORM, can take a second argument whose value (computed before firt argument) is restoration
form, e.g. (NAMED-RESETSAVE FOO (SETSEPR --) (LIST (QUOTE SETSEPR) (GETSEPR))) (NAMED-RESETSAVE FOO NIL form) means
just add value of form to FOO)
(LET ((RESETHANDLE (CAR RESETX))
RESETITEM)
(SETQ RESETX (CDR RESETX))
(SET RESETHANDLE (CONS [SETQ RESETITEM (COND
[(AND (CAR RESETX)
(ATOM (CAR RESETX)))
(PROG1 (CONS (CAR RESETX)
(CAR RESETX))
(SET (CAR RESETX)
(EVAL (CADR RESETX)
(QUOTE INTERNAL]
[(CDR RESETX)
(* CADR of the entry put on resetvarslst is the value of the saving form. The variable OLDVALUE is bound to this
value during restoration. This makes it more convenient for the estoration to be conditional, e.g. the user can
perform (RESETSAVE (FOO mumble) (QUOTE (AND pred (FIE OLDVALUE)))))
(LIST (EVAL (CADR RESETX))
(EVAL (CAR RESETX]
(T (LIST (LIST (COND
((EQ (CAAR RESETX)
(QUOTE SETQ))
(CAR (CADDAR RESETX)))
(T (CAAR RESETX)))
(EVAL (CAR RESETX]
(EVAL RESETHANDLE)))
RESETITEM])
(NAMED-RESETRESTORE
[LAMBDA (RESETHANDLE RESETSTATE) (* Randy.Gobbel "18-Mar-87 19:07")
(* Goes down RESETHANDLE doing restoration until it gets to NIL. RESETSTATE is either NIL, ERROR, or RESET,
depending on whether restoration is at normal (successful) completion of a NAMED-RESETLST, following an error or
control-E, or following a control-D)
(PROG (RESETZ OLDVALUE (VARSLST (EVAL RESETHANDLE)))
LP (COND
(VARSLST (SETQ RESETZ (CAR VARSLST))
(SETQ VARSLST (CDR VARSLST))
[COND
((LISTP (CAR RESETZ))
[SETQ OLDVALUE (COND
((CDR RESETZ)
(* occurs for RESETSAVE's when second aagument is specified. In this case, (CADR RESETZ) is the value of the saving
form, i.e. the first argument to RESETSAVE.)
(CADR RESETZ))
(T (CADAR RESETZ]
(APPLY (CAAR RESETZ)
(CDAR RESETZ)))
(T (SET (CAR RESETZ)
(CDR RESETZ]
(GO LP)))
(SET RESETHANDLE NIL])
(NAMED-RESETUNSAVE
[NLAMBDA (RESETHANDLE ITEMFORM) (* Randy.Gobbel "19-Mar-87 12:04")
(LET ((ITEMLIST (EVAL ITEMFORM)))
(for ITEM in ITEMLIST
do (SET RESETHANDLE (DREMOVE ITEM (EVAL RESETHANDLE)))
(COND
((LISTP (CAR ITEM))
[SETQ OLDVALUE (COND
((CDR ITEM)
(CADR ITEM))
(T (CADAR ITEM]
(APPLY (CAAR ITEM)
(CDAR ITEM)))
(T (SET (CAR ITEM)
(CDR ITEM])
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA NAMED-RESETSAVE NAMED-RESETLST MAKECONFIGPROPSCOMS)
(ADDTOVAR NLAML NAMED-RESETUNSAVE)
(ADDTOVAR LAMA )
)
(PUTPROPS NCCONFIG COPYRIGHT ("Xerox Corporation" 1987 1988))
(DECLARE: DONTCOPY
(FILEMAP (NIL (147492 150650 (NCAddStub.SketchCard 147502 . 148017) (NCAddStub.GraphCard 148019 .
148528) (NCAddStub.BrowserCard 148530 . 148977) (NCAddStub.SearchCard 148979 . 149421) (
NCAddStub.DocumentCard 149423 . 149802) (NCAddStub.LinkIndexCard 149804 . 150258) (
NCAddStub.IdeaSketchCard 150260 . 150648)) (151288 161726 (NC.UpdateConfig 151298 . 152727) (
NC.UpdateSingleFile 152729 . 153269) (NC.FixFileDates 153271 . 154742) (NC.FindFile 154744 . 156618) (
NC.LoadFileFromDirectories 156620 . 159196) (NC.LookupAutoloadFnFile 159198 . 159504) (
NC.StoreAutoloadFnFile 159506 . 159965) (NC.SetStandardConfigProps 159967 . 161199) (
MAKECONFIGPROPSCOMS 161201 . 161724)) (164660 169087 (NAMED-RESETLST 164670 . 165539) (NAMED-RESETSAVE
165541 . 167412) (NAMED-RESETRESTORE 167414 . 168538) (NAMED-RESETUNSAVE 168540 . 169085)))))
STOP