(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