(FILECREATED "27-Apr-87 16:54:25" ("compiled on " {QV}1.3K>NEXT>NCLINKINDEXCARD.;29) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "21-Apr-87 19:07:11" {QV}1.3K>NEXT>NCLINKINDEXCARD.;29 19637 changes to: (FNS NC.MakeLinkIndex) previous date: " 5-Apr-87 20:01:09" {QV}1.3K>NEXT>NCLINKINDEXCARD.;28) NC.MakeLinkIndex D1 (P 11Q SuperType P 10Q FieldValue P 7 CardTypeRecord P 6 CardTypeName P 5 NoteCardType P 3 LinkIndexSpecs P 2 Window P 1 BackLinksFlg P 0 LinkLabels I 3 SpecialArgsList I 2 NoDisplayFlg I 1 Title I 0 Card) k CC2@@ M!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O O!Nd{ _O_dgUNOd N _doN O_dg!oogoNo  OgNg O@o BlL ZB@HIi [ @hi hK@HI B@Ji J(547Q NC.ClearMsg 536Q NC.ComputeLinkIndex 520Q NC.DeleteNoteCard 507Q NC.AskLinkIndexSpecs 477Q NC.HoldTTYProcess 470Q WINDOWP 456Q CONCAT 453Q DATE 436Q NC.GetCardTypeFieldOfSuper 417Q NC.ReportError 414Q CONCAT 342Q NC.ReportError 337Q CONCAT 323Q NC.CardTypeRecord 315Q NC.CardTypeLoader 253Q NC.CardTypeRecord 227Q NC.GetCardTypeFieldOfSuper 210Q NC.ReportError 205Q CONCAT 133Q NC.ReportError 130Q CONCAT 114Q NC.CardTypeRecord 106Q NC.CardTypeLoader 44Q NC.CardTypeRecord 26Q NC.GetType 12Q SPAWN.MOUSE) (433Q MakeFn 425Q \\FILLME// 377Q MakeFn 360Q \\EMPTY// 350Q NoteCardType 310Q NoteCardType 274Q \\EMPTY// 264Q NoteCardType 224Q SuperType 216Q \\FILLME// 170Q SuperType 151Q \\EMPTY// 141Q NoteCardType 101Q NoteCardType 65Q \\EMPTY// 55Q NoteCardType 16Q CardObject) ( 450Q "Link Index: " 410Q " still \\EMPTY// after autoloading." 403Q " of card type " 374Q "Field name " 370Q "NC.GetCardTypeField" 333Q "Cannot find full definition of card type: " 201Q " still \\EMPTY// after autoloading." 174Q " of card type " 165Q "Field name " 161Q "NC.GetCardTypeField" 124Q "Cannot find full definition of card type: ") NC.BringUpLinkIndexCard D1 (I 2 Region/Position I 1 Substance I 0 Card) @AB (5 NC.BringUpTEditCard) NIL () NC.ComputeLinkIndexA0003A0004 D1 (P 11Q PredicateResult P 10Q Card P 7 Link P 5 Link P 3 FromLinks P 2 ToLinks P 1 Card P 0 PredicateResult I 1 Key I 0 Value F 12Q CollectionList F 13Q LinkLabels) @!I ZL7hI [N;hJKhXC@H O OOhWc]W MiL\_W OiN^@ O OOh(173Q NC.RetrieveTitle 145Q NC.ReverseLinkLabelP 121Q NC.LinkLabelP 73Q NC.RetrieveTitle 34Q NC.RetrieveFromLinks 15Q NC.RetrieveToLinks 5 BLOCK) NIL () NC.ComputeLinkIndexA0003 D1 (NAME ERRORSET P 2 WinnerList P 1 CollectionList P 0 Label F 3 IndexCard F 4 TextStream F 5 LinkLabels F 6 RESETVARSLST F 7 BackLinksFlg F 10Q Window F 11Q NoteFile F 12Q RESETY F 13Q SortedWinners)  g` hhVc S col oU  U2SgUh SgW Si cidToH Tl l Wio Wg Ii cdTSJUW Whol p(304Q NC.PrintMsg 301Q CHARACTER 260Q NC.AppendLinkIndexEntry 235Q SORT 226Q MAPHASH 205Q NC.PrintMsg 172Q NC.AppendStringToStream 167Q CONCAT 164Q CHARACTER 157Q CHARACTER 144Q NC.AppendStringToStream 141Q CONCAT 117Q NC.SetPropListDirtyFlg 111Q NC.PutProp 77Q NC.PutProp 61Q NC.AppendStringToStream 56Q CONCAT 44Q CHARACTER 37Q DATE 26Q NC.FetchSubstance 10Q CURSOR) (223Q NC.ComputeLinkIndexA0003A0004 216Q NoteFile 104Q LinkIndexBackLinksFlg 71Q LinkIndexLinkLabels 5 WAITINGCURSOR 2 CURSOR) ( 274Q "Done!" 202Q "Gathering links ... " 135Q ", " 50Q " for linktypes: " 34Q "Sorted link index compiled on: ") NC.ComputeLinkIndex D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 LastCard P 5 SortedWinners P 4 TextStream P 3 NoteFile P 2 Window P 0 \NF I 2 BackLinksFlg I 1 LinkLabels I 0 IndexCard F 12Q LISPXHIST F 13Q RESETVARSLST) O @ @Hd`@H YI2W! Wog hg_ OO(111Q ERROR! 103Q RESETRESTORE 70Q NC.ComputeLinkIndexA0003 36Q NC.NoteFileFromNoteFileUID 3 NC.FetchWindow) (76Q ERROR 65Q INTERNAL 32Q CardObject 22Q NoteFileTYPE# 7 CardObject) ( 62Q (NC.ComputeLinkIndexA0003)) NC.RecomputeLinkIndexA0001 D1 (NAME ERRORSET P 4 \NF P 0 OpInProgress F 5 Card F 6 RESETVARSLST F 7 Window F 10Q TextStream F 11Q NC.LockLock F 12Q NC.CardBusyList F 13Q PropList F 14Q LinkLabels F 15Q BackLinksFlg F 16Q WindowOrTextStream F 17Q RESETY)  W U 1HgUgUg hUg hVc gUgUg hUgo hVc gULd`UL YIhULd`UL ZJgULd`UL [Kg  hVc oWchVc W HHgmU cW cU cg'cWg'cWiol WdkW  Whol UWW Wi U oH gci(567Q NC.PrintOperationInProgressMsg 557Q NC.CoerceToInterestedWindow 552Q NC.ClearMsg 543Q NC.ComputeLinkIndex 532Q NC.PrintMsg 527Q CHARACTER 512Q TEDIT.DELETE 507Q TEDIT.SETSEL 477Q TEXTOBJ 465Q NC.PrintMsg 462Q CHARACTER 423Q NC.FetchPropList 414Q TEXTSTREAM 404Q NC.FetchWindow 366Q RELEASE.MONITORLOCK 344Q THIS.PROCESS 325Q NC.NoteFileProp 321Q NC.NoteFileProp 305Q NC.NoteFileFromNoteFileUID 252Q THIS.PROCESS 236Q NC.NoteFileFromNoteFileUID 172Q NC.NoteFileFromNoteFileUID 124Q NC.SetUserDataProp 104Q NC.FetchUserDataProp 56Q NC.SetUserDataProp 53Q THIS.PROCESS 37Q NC.FetchUserDataProp 11Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (573Q DON'T 502Q TEXTOBJ 442Q LinkIndexBackLinksFlg 430Q LinkIndexLinkLabels 375Q US 316Q CardProcessInProgressList 301Q CardObject 271Q NoteFileTYPE# 256Q CardObject 247Q CardProcessInProgressList 232Q CardObject 222Q NoteFileTYPE# 207Q CardObject 166Q CardObject 156Q NoteFileTYPE# 143Q CardObject 137Q NC.ResetCardProcessInProgress 115Q OperationInProgress 101Q OperationInProgress 75Q OperationInProgress 71Q NC.SetUserDataProp 50Q ProcessInProgress 34Q ProcessInProgress 30Q ProcessInProgress 24Q NC.SetUserDataProp) ( 563Q "Recompute LinkIndex" 522Q "Done." 455Q "Clearing old contents of link index ..." 341Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 121Q "Recompute LinkIndex") NC.RecomputeLinkIndex D1 (P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 TextStream P 5 BrowserSpecs P 4 PropList P 3 BackLinksFlg P 2 LinkLabels P 1 Window P 0 Card I 0 WindowOrTextStream F 12Q LISPXHIST F 13Q RESETVARSLST) . @ aW! Wog hg_ OO(50Q ERROR! 42Q RESETRESTORE 27Q NC.RecomputeLinkIndexA0001 3 NC.CoerceToCard) (35Q ERROR 24Q INTERNAL) ( 21Q (NC.RecomputeLinkIndexA0001)) NC.AskLinkIndexSpecs D1 (P 32Q Label P 25Q Label P 20Q Link P 7 ReverseFlg P 6 Choices P 5 Position P 4 LinkLabels P 3 NoteFile P 2 MainWindow P 0 \NF I 3 CreatingLinkIndexFlg I 2 OldBackLinksFlg I 1 OldLinkLabels I 0 Card) @ @Hd`@H YI Ki \J J J _Ok]`gM `g`dLd`dg dgjdndh_dO `@L$d_ gO _O Oh_O&_O_dOd`dg dgjdndh_dO `dod`dg dgjdndh_dO h `gAAO"O$AAO,;O.Bcga_*k gO*_(O&O(h_&_$O"_"O(&_&_4k gO4_2O0O2h_0_.O,_,O2&_0gh ` ^ddN NgihChABh(715Q \APPEND2 701Q STYLESHEET 673Q STYLE.PROP 612Q NTHCHAR 534Q NTHCHAR 457Q STYLE.PROP 246Q PACK* 127Q STYLE.PROP 76Q WINDOWREGION 67Q \INSUREWINDOW 61Q WINDOWP 54Q NC.RetrieveLinkLabels 36Q NC.NoteFileFromNoteFileUID 3 NC.FetchWindow) (724Q Yes 676Q NC.LinkIndexSpecsStylesheet 664Q No 615Q _ 537Q _ 523Q Yes 465Q SELECTIONS 462Q NC.LinkIndexSpecsStylesheet 421Q DEFAULTMENUHELDFN 412Q CLRPROMPT 403Q NC.MenuFont 366Q MENUTYPE# 334Q DEFAULTMENUHELDFN 325Q CLRPROMPT 316Q NC.MenuFont 241Q _ 222Q MENUTYPE# 170Q DEFAULTMENUHELDFN 161Q CLRPROMPT 152Q NC.MenuFont 140Q MENUTYPE# 135Q ITEMS 132Q NC.LinkIndexSpecsStylesheet 123Q POSITION 120Q NC.LinkIndexSpecsStylesheet 32Q CardObject 22Q NoteFileTYPE# 7 CardObject) ( 374Q (Yes No)) NC.ChangeLinkIndexSpecsA0001 D1 (NAME ERRORSET P 4 \NF P 0 OpInProgress F 5 Card F 6 RESETVARSLST F 7 LinkLabels F 10Q BackLinksFlg F 11Q NC.LockLock F 12Q NC.CardBusyList F 13Q PropList F 14Q LinkIndexSpecs F 15Q RESETY) h W U 1HgUgUg hUg hVc gUgUg hUgo hVc gULd`UL YIhULd`UL ZJgULd`UL [Kg  hVc oWchVc W HHgSU cg'cWg'cUWW ccWcUi UgWh UgW U i U oH gci(535Q NC.PrintOperationInProgressMsg 525Q NC.CoerceToInterestedWindow 520Q NC.ClearMsg 514Q NC.FetchWindow 507Q NC.PutProp 475Q NC.PutProp 461Q NC.SetPropListDirtyFlg 437Q NC.AskLinkIndexSpecs 404Q NC.FetchPropList 366Q RELEASE.MONITORLOCK 344Q THIS.PROCESS 325Q NC.NoteFileProp 321Q NC.NoteFileProp 305Q NC.NoteFileFromNoteFileUID 252Q THIS.PROCESS 236Q NC.NoteFileFromNoteFileUID 172Q NC.NoteFileFromNoteFileUID 124Q NC.SetUserDataProp 104Q NC.FetchUserDataProp 56Q NC.SetUserDataProp 53Q THIS.PROCESS 37Q NC.FetchUserDataProp 11Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (541Q DON'T 502Q LinkIndexBackLinksFlg 466Q LinkIndexLinkLabels 423Q LinkIndexBackLinksFlg 411Q LinkIndexLinkLabels 375Q US 316Q CardProcessInProgressList 301Q CardObject 271Q NoteFileTYPE# 256Q CardObject 247Q CardProcessInProgressList 232Q CardObject 222Q NoteFileTYPE# 207Q CardObject 166Q CardObject 156Q NoteFileTYPE# 143Q CardObject 137Q NC.ResetCardProcessInProgress 115Q OperationInProgress 101Q OperationInProgress 75Q OperationInProgress 71Q NC.SetUserDataProp 50Q ProcessInProgress 34Q ProcessInProgress 30Q ProcessInProgress 24Q NC.SetUserDataProp) ( 531Q "LinkIndex Specs" 341Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 121Q "LinkIndex Specs") NC.ChangeLinkIndexSpecs D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 LinkIndexSpecs P 3 PropList P 2 BackLinksFlg P 1 LinkLabels P 0 Card I 0 WindowOrTextStream F 10Q LISPXHIST F 11Q RESETVARSLST) -@ AW!Wog hg_ ON(50Q ERROR! 42Q RESETRESTORE 27Q NC.ChangeLinkIndexSpecsA0001 3 NC.CoerceToCard) (35Q ERROR 24Q INTERNAL) ( 21Q (NC.ChangeLinkIndexSpecsA0001)) NC.AppendLinkIndexEntry D1 (P 21Q DestCard P 20Q Label P 17Q OldLabel P 16Q LinkPair P 14Q Label P 13Q Link P 6 ToLinkPairs P 5 FromLinkPairs P 4 SortArg P 3 FromLinks P 2 ToLinks P 1 Card P 0 Title I 4 BackLinksP I 3 LinkLabels I 2 WinnerList I 1 IndexCard I 0 TextStream F 22Q NC.LinkIndexBackPtrLinkLabel) BBBBg%JQ OiOL ^KQ OOL ]Nd.@H D@o W$AIhg @l NAOrMAOh_C _O_OOh__O_qO&__C _O_OOh__O_RO&___ O_"OO @oO ol O _@o @O" D!@o W$AO"hghdih @l O___ O_"OO @oO ol O _@o @O" D@o W$AO"ghdih @l O_(730Q NC.AppendStringToStream 725Q CONCAT 722Q CHARACTER 713Q NCP.LocalGlobalLink 667Q NC.AppendStringToStream 653Q NC.AppendStringToStream 650Q NC.RetrieveTitle 641Q NC.AppendStringToStream 623Q NC.AppendStringToStream 620Q CONCAT 615Q CHARACTER 533Q NC.AppendStringToStream 530Q CONCAT 525Q CHARACTER 516Q NCP.LocalGlobalLink 470Q NC.AppendStringToStream 454Q NC.AppendStringToStream 451Q NC.RetrieveTitle 442Q NC.AppendStringToStream 424Q NC.AppendStringToStream 421Q CONCAT 416Q CHARACTER 274Q NC.ReverseLinkLabelP 214Q NC.LinkLabelP 153Q NC.AppendStringToStream 150Q CONCAT 145Q CHARACTER 136Q NCP.LocalGlobalLink 121Q NC.AppendStringToStream 105Q NC.AppendStringToStream 72Q SORT 45Q SORT) (700Q LINKDISPLAYMODE 561Q Link 502Q LINKDISPLAYMODE 362Q Link 132Q Icon 22Q NC.LinkIndexCompareFn) ( 664Q " " 636Q " " 610Q "> FROM" 602Q " <" 465Q " " 437Q " " 411Q "> TO" 403Q " <" 116Q " ") NC.LinkIndexCompareFn D1 (I 1 Pair2 I 0 Pair1) '@dA A A (44Q ALPHORDER 35Q ALPHORDER 32Q NC.RetrieveTitle 20Q NC.RetrieveTitle) (25Q Link 13Q Link) () NC.AddLinkIndexCard D1 (P 2 FieldValue P 1 CardTypeRecord P 0 CardTypeName) ggooooogg!Hdq YI.ZdgPHId H YdoH I.Zdg oogoHo  JgHg J` hh (250Q NC.AddCardType 234Q \APPEND2 223Q NC.GetCardTypeFieldOfSuper 205Q NC.ReportError 202Q CONCAT 132Q NC.ReportError 127Q CONCAT 114Q NC.CardTypeRecord 106Q NC.CardTypeLoader 51Q NC.CardTypeRecord) (231Q NC.LinkIndexExtraMenuItems 220Q LeftButtonMenuItems 212Q \\FILLME// 165Q LeftButtonMenuItems 146Q \\EMPTY// 137Q NoteCardType 101Q NoteCardType 66Q \\EMPTY// 57Q NoteCardType 37Q Text 34Q LeftButtonMenuItems 5 Text 2 LinkIndex) ( 176Q " still \\EMPTY// after autoloading." 171Q " of card type " 162Q "Field name " 156Q "NC.GetCardTypeField" 123Q "Cannot find full definition of card type: " 31Q (DisplayedInMenuFlg T) 25Q (DefaultWidth 536Q) 21Q (DefaultHeight 536Q) 15Q (LinkDisplayMode Title) 11Q ((MakeFn NC.MakeLinkIndex) (EditFn NC.BringUpLinkIndexCard))) NCAddStub.LinkIndexCard D1 NIL ggghoo (25Q NC.AddCardTypeStub) (10Q NCLINKINDEXCARD 5 Text 2 LinkIndex) ( 21Q (LinkIconAttachedBitMap) 15Q ((DisplayedInMenuFlg T))) (PRETTYCOMPRINT NCLINKINDEXCARDCOMS) (RPAQQ NCLINKINDEXCARDCOMS ((* * Link Index stuff) (FILES NCTEXTCARD) (GLOBALVARS NC.LinkIndexExtraMenuItems NC.LinkIndexSpecsStylesheet) (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) (P (NC.AddLinkIndexCard)) (FNS NCAddStub.LinkIndexCard))) (FILESLOAD NCTEXTCARD) (RPAQQ NC.LinkIndexExtraMenuItems ((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.")))) (RPAQ 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?")) (NC.AddLinkIndexCard) (PUTPROPS NCLINKINDEXCARD COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL