(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "21-Apr-2021 11:56:06" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;4) "20-Apr-2021 12:13:18" brecompiled changes%: NSPROT.LIMITCHARS in "Medley Full Sysout 20-Apr-2021 ..." dated "20-Apr-2021 12:13:31") (FILECREATED "21-Apr-2021 11:56:06" {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;4 32481 changes to%: (FNS NSPROT.LIMITCHARS) previous date%: " 7-Sep-89 12:31:44" {DSK}kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;2) NSPROTECTION :D8 (P 5 BOLDFONT) ZAi M H չgglgMhooogogggggHgIgoH hogogggggHgIgoH hhggloM oM hoggggggggHgIhhooggggggggHgIhhho Z hJgi JgKK Jgg Jgi Jgg JKKH J JhH \dgg JgL h(598 PUTWINDOWPROP 586 PUTWINDOWPROP 569 GETPROMPTWINDOW 561 OPENW 555 MOVEW 550 GETBOXPOSITION 544 HEIGHTIFWINDOW 521 PUTWINDOWPROP 505 PUTWINDOWPROP 493 PUTWINDOWPROP 477 PUTWINDOWPROP 456 PUTWINDOWPROP 441 WINDOWREGION 435 FREEMENU 360 CONCAT 281 CONCAT 260 STRINGWIDTH 249 STRINGWIDTH 207 STRINGWIDTH 131 STRINGWIDTH 13 NSPROT.GET.FONT 4 NSPROT.GET.FONT) (592 FM.PROMPTWINDOW 581 NSPROT.PAGEFULLFN 576 PAGEFULLFN 537 FONTDESCRIPTOR 516 NSPROT.ICONFN 511 ICONFN 499 PROTECTION-TYPE 488 :NEW 483 VERIFYFLG 462 MINSIZE 450 FM.DONTRESHAPE 401 BOTTOM 395 FONT 390 NSPROT.LIMITCHARS 385 LIMITCHARS 380 DIR 375 ID 370 EDIT 365 TYPE 355 LABEL 322 BOTTOM 316 FONT 311 NSPROT.LIMITCHARS 306 LIMITCHARS 301 HOST 296 ID 291 EDIT 286 TYPE 276 LABEL 236 COLUMNSPACE 231 PROPS 196 MAXWIDTH 190 BOTTOM 184 FONT 179 VERIFYFLG 174 ID 169 DISPLAY 164 TYPE 154 LABEL 120 MAXWIDTH 114 BOTTOM 108 FONT 103 PROTECTION-TYPE 98 ID 93 DISPLAY 88 TYPE 78 LABEL 51 FONT 44 COLUMNSPACE 39 PROPS 30 FONTDESCRIPTOR 22 FONTDESCRIPTOR) ( 430 "NS File Protection Tool" 350 (LABEL "Dir/File:" TYPE EDITSTART MESSAGE "Fill in the name of the desired directory or file." LINKS (EDIT DIR)) 345 (PROPS COLUMNSPACE 6) 271 (LABEL "Host:" TYPE EDITSTART MESSAGE "Fill in the name of the NS file server" LINKS (EDIT HOST)) 254 "Host:" 243 "Dir/File:" 201 "New Names Only" 159 "" 149 (LABEL "Check:" TYPE STATE CHANGESTATE NSPROT.HANDLE.VERIFY INITSTATE "New Names Only" MESSAGE "Check names in protection entries against Clearinghouse?" ID CHECK LINKS (DISPLAY VERIFYFLG)) 125 "Children Only " 83 "" 73 (LABEL "Type:" TYPE STATE CHANGESTATE NSPROT.HANDLE.TYPE INITSTATE "Principal" MESSAGE "Show directory's own protection, or default for its children? (can be different)" ID TYPE LINKS (DISPLAY PROTECTION-TYPE)) 68 (PROPS COLUMNSPACE 4) 63 ((LABEL "Show" SELECTEDFN NSPROT.SHOW MESSAGE "Show the current protection of the specified directory/file.") (LABEL "New Entry" SELECTEDFN NSPROT.NEW.ENTRY MESSAGE "Add a new protection entry (you fill it in).") (LABEL "Apply" SELECTEDFN NSPROT.APPLY MESSAGE "Apply the indicated protections to the file.") (LABEL "Set to Default" SELECTEDFN NSPROT.SET.TO.DEFAULT MESSAGE "Make the file inherit protection from its parent (sub)directory." MAXWIDTH 275))) NSPROT.SHOWA0001 :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 SI::CONDITION-CASE-LITERALS F 7 *CONDITION-HANDLER-BINDINGS* F 8 A0111 F 9 DEV&FILESPEC F 10 WINDOW) ,i@2VWW\LWKJ cg(34 \MVLIST 29 NSPROT.FETCH.PROTECTION) (41 :NORMAL) () NSPROT.SHOW :D8 (L (2 BUTTONS 0 ITEM) P 7 A0111 P 6 SI::CONDITION-CASE-LITERALS P 0 DEV&FILESPEC I 1 WINDOW) }A QHqA oN ZdgO$dJhI$N  [K]AoM LdA A (122 NSPROT.RESTORE.VERIFY 111 NSPROT.SHOW.PROT.VALUE 99 NSPROT.PROMPT 79 \MVLIST 73 SI::CONDITION-CASE-ERROR 32 NSPROT.SHOWA0001 17 NSPROT.REMOVE.SUBMENUS 5 NSPROT.PARSE.FILENAME) (55 CL:ERROR 39 :NORMAL) ( 93 "Failed: ~A" 22 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR))) NSPROT.FETCH.PROTECTION :D8 (L (2 FILESPEC 1 DEV 0 WINDOW) P 7 DESIREDPROPS) -@AB b@g ggaB Z$oHgB Yo H hABg [Kg@oK HK\@o JHggKL>Hg@o '@oL@ogKd I7gKgK@oMnjNh Nn L(295 NSPROT.PROMPT 239 NSPROT.PROMPT 200 NSPROT.PROMPT 152 NSPROT.PROMPT 133 NSPROT.PROMPT 107 \NSFILING.GET/SETINFO 90 \FILING.ATTRIBUTE.TYPE 83 CL:APPEND 70 NSPROT.TOP.LEVELP 47 NSPROT.DIRECTORY.SYNTAXP 26 GETWINDOWUSERPROP 7 NSPROT.EXPAND.FULLNAME) (257 SUBTREE.SIZE.LIMIT 248 SUBTREE.SIZE 226 ACCESS.LIST 186 ACCESS.LIST 169 DEFAULT.ACCESS.LIST 162 ACCESS.LIST 116 ERROR 102 \NSFILING.GET.ATTRIBUTES 61 ACCESS.LIST 38 ACCESS.LIST 32 DEFAULT.ACCESS.LIST 21 USE-DEFAULT-ACCESS) ( 269 "~&Directory contains ~D pages ~:[(unlimited allocation)~;out of ~:*~D allocated~]" 221 "This is the directory's principal protection~:[~;, which is itself inherited~]." 212 "Note: this ~:[~;protection is inherited, but the ~]directory has a separate default protection for its children." 195 "The protection shown is inherited from the parent." 147 "Failed to fetch protection." 124 "Failed: ~A" 78 (27 28) 55 (19 20)) NSPROT.NEW.ENTRY :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) WA A ghH ghH iH IH Hgh HA IH (84 FM.EDITITEM 77 NSPROT.ADD.SUBMENU 70 PUTWINDOWPROP 58 FM.CHANGELABEL 52 CONCAT 46 FM.CHANGESTATE 39 FM.GETITEM 26 FM.GETITEM 11 NSPROT.GET.SUBMENU 5 NSPROT.BEGIN.COMMAND) (64 KNOWN-VALUE 32 READ 19 NAME) () NSPROT.APPLYA0001 :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 SI::CONDITION-CASE-LITERALS F 7 *CONDITION-HANDLER-BINDINGS* F 8 DEV&FILESPEC F 9 A0114 F 10 WINDOW F 11 PROT) .i@2VWW\LWKJW cg(36 \MVLIST 31 NSPROT.SET.PROTECTION) (43 :NORMAL) () NSPROT.APPLY :D8 (L (2 BUTTONS 0 ITEM) P 8 A0114 P 7 SI::CONDITION-CASE-LITERALS P 1 PROT P 0 DEV&FILESPEC I 1 WINDOW) poiA A XA dY#Ag gAo IhZ!i5Ag g"AiocgK hJoO ]dgO$MhL$MO  ^AoN A (232 NSPROT.RESTORE.VERIFY 225 NSPROT.PROMPT 209 \MVLIST 203 SI::CONDITION-CASE-ERROR 162 NSPROT.APPLYA0001 138 MEMB 106 GETWINDOWUSERPROP 82 NSPROT.PROMPT 64 GETWINDOWUSERPROP 44 NSPROT.PARSE.PROTECTIONS 31 NSPROT.PARSE.FILENAME 19 MOUSECONFIRM 14 GETPROMPTWINDOW) (184 CL:ERROR 169 :NORMAL 130 OWNER 111 :NO 101 VERIFYFLG 69 :NO 59 VERIFYFLG) ( 219 "Failed: ~A" 151 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR)) 121 "Can't: Somebody must retain owner access." 77 "Can't set empty protection." 7 "Click LEFT to confirm setting the displayed protection") NSPROT.SET.PROTECTION :D8 (L (3 PROT 2 FILESPEC 1 DEV 0 WINDOW)) joB @ABC @AB hHABC@g (@o@g Cioo @o (103 NSPROT.PROMPT 91 NSPROT.PROMPT 71 GETWINDOWUSERPROP 52 NSPROT.SET.PROTECTION.ONE 47 GETWINDOWUSERPROP 29 NSPROT.EXPAND.FULLNAME 20 NSPROT.SET.MULTIPLE 10 STRPOS) (66 USE-DEFAULT-ACCESS 42 USE-DEFAULT-ACCESS) ( 98 "Failed to set protection." 86 "as shown" 80 "to default" 60 "Done, ~:[~;children's default ~]protection set ~A." 4 "*") NSPROT.SET.PROTECTION.ONE :D8 (L (3 DEFAULTP 2 PROT 1 FILESPEC 0 DEV)) 0BiACllo@ ACggB@ (45 \NSFILING.SETFILEINFO 23 \NSFILING.SETFILEINFO) (38 PROTECTION 32 DEFAULT.ACCESS.LIST) ( 17 (0 1)) NSPROT.SET.MULTIPLEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 FILING.ENUMERATION.DEPTH I 0 SI::*CLEANUP-FORMS* F 6 FILESPEC F 7 WINDOW) kn!V oo 0I ZKWioJ Z Ig Ig JhL Mh\M&(84 \GENERATEFILEINFO 73 \GENERATEFILEINFO 61 NSPROT.PROMPT 54 NSPROT.STRIP.HOST 36 \GENERATENEXTFILE 26 \GENERATEFILES 11 DIRECTORY.FILL.PATTERN) (79 IS.DIRECTORY 68 FILE.ID) ( 48 "~A" 21 (RESETLST) 16 (FILE.ID)) NSPROT.SET.MULTIPLE :D8 (L (3 PROT 1 DEV) P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FILESPEC I 0 WINDOW F 8 LISPXHIST) @ @o @o W!g $K@o @io KjdL@ioCi\oZ_AgOhC "OAgOhid Mk]NkԾ@ioO L\oMNjhMN h(220 NSPROT.PROMPT 194 NSPROT.PROMPT 166 NSPROT.SET.PROTECTION.ONE 139 NSPROT.SET.PROTECTION.ONE 88 NSPROT.PROMPT 75 NSPROT.PROMPT 54 SI::RESETUNWIND 49 \MVLIST 44 NSPROT.SET.MULTIPLEA0001 29 NSPROT.PROMPT 17 NSPROT.PROMPT 5 NSPROT.RESTORE.TYPE) (153 FILE.ID 127 FILE.ID 39 SI::RESETUNWIND) ( 205 "the displayed protection" 184 "Failed on ~A" 115 "default protection" 105 "Done, set ~A on ~D files~:[~; out of ~D~]." 83 "Setting..." 70 "no files match the pattern." 24 "Enumerating..." 12 "(Will set Principal protection) ") NSPROT.SET.TO.DEFAULTA0001 :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 WINDOW F 7 SI::CONDITION-CASE-LITERALS F 8 *CONDITION-HANDLER-BINDINGS* F 9 DEV&FILESPEC F 10 A0117) _i@2WWW\LZ -Vg Vg gVo VKJi cg(85 \MVLIST 80 NSPROT.SET.PROTECTION 70 NSPROT.PROMPT 52 GETWINDOWUSERPROP 39 GETWINDOWUSERPROP 26 NSPROT.TOP.LEVELP) (92 :NORMAL 57 :NO 47 VERIFYFLG 34 USE-DEFAULT-ACCESS) ( 65 "Can't set top-level directory to default protection.") NSPROT.SET.TO.DEFAULT :D8 (L (2 BUTTONS 0 ITEM) P 5 A0117 P 4 SI::CONDITION-CASE-LITERALS P 0 DEV&FILESPEC I 1 WINDOW) t@oiA ^A XUoL ZdgM$JhI$JL  [AoK A (113 NSPROT.RESTORE.VERIFY 106 NSPROT.PROMPT 90 \MVLIST 84 SI::CONDITION-CASE-ERROR 45 NSPROT.SET.TO.DEFAULTA0001 27 NSPROT.PARSE.FILENAME 19 MOUSECONFIRM 14 GETPROMPTWINDOW) (66 CL:ERROR 52 :NORMAL) ( 100 "Failed: ~A" 35 (SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR)) 7 "Click LEFT to confirm restoring the file to inherited protection") NSPROT.BEGIN.COMMAND :D8 (L (0 WINDOW) F 1 \TERM.OFD) J@hdi HH @ @g d @ Q ` (71 TTYDISPLAYSTREAM 57 GETSTREAM 46 FM.ENDEDIT 38 GETWINDOWUSERPROP 27 FM.ENDEDIT 19 CLEARW 8 GETPROMPTWINDOW) (66 \DEFAULTTTYDISPLAYSTREAM 33 PROTMENUS) () NSPROT.HANDLE.TYPE :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) 7AgAg diohoi H(51 PUTWINDOWPROP 46 SHOULDNT 19 GETWINDOWUSERPROP) (14 USE-DEFAULT-ACCESS 8 USE-DEFAULT-ACCESS) ( 38 "Children Only" 29 "Principal") NSPROT.RESTORE.TYPE :D8 (L (0 WINDOW)) (@gh gh@ o@ i(36 FM.CHANGESTATE 25 FM.GETITEM 11 PUTWINDOWPROP) (18 TYPE 5 USE-DEFAULT-ACCESS) ( 30 "Principal") NSPROT.HANDLE.VERIFY :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) cAgAg dgoi7dioh)oggog H(95 PUTWINDOWPROP 90 SHOULDNT 19 GETWINDOWUSERPROP) (84 :NEW 71 :NO 64 :NO 25 :NEW 14 VERIFYFLG 8 VERIFYFLG) ( 78 "New Names Only" 58 "I really mean it" 47 "Don't" 33 "All Names") NSPROT.RESTORE.VERIFY :D8 (L (0 WINDOW)) <@g g)gh@ o@ @gg (57 PUTWINDOWPROP 41 FM.CHANGESTATE 30 FM.GETITEM 10 GETWINDOWUSERPROP) (52 :NEW 47 VERIFYFLG 23 CHECK 15 :NO 5 VERIFYFLG) ( 35 "New Names Only") NSPROT.PARSE.FILENAME :D8 (L (0 WINDOW)) D@ @ aH d^dgNgNJJd j@o h \.gh@ LZ@ gh@ LY@ IId j@o hi ]IMd i Y gh@ I@ J l<" 235 ">" 223 "<" 148 "No host was specified." 69 "No directory or file name was specified.") NSPROT.PARSE.PROTECTIONS :D8 (L (0 WINDOW)) @g @g H_"OOhh__H_LO_hO AO _(O"[JJ jpOO_dg#dgdgdgdgO(hgO(iO(_&O$O&h_$_"O(O&&_$IiJOg ] MJ JIIgioJ LL _^Li Z ghO JO N@oJ hOOgJOKh LKhO_O_ OdO O_OOOd@g @gO@g @gHO -(500 PUTWINDOWPROP 495 CL:SET-DIFFERENCE 480 PUTWINDOWPROP 475 \APPEND2 470 GETWINDOWUSERPROP 446 ATTACHWINDOW 411 CLOSEW 405 MEMB 394 DETACHWINDOW 368 PUTWINDOWPROP 341 NSPROT.PROMPT 325 FM.CHANGELABEL 317 FM.GETITEM 302 STREQUAL 296 NSNAME.TO.STRING 284 CH.LOOKUP.OBJECT 275 STRPOS 250 PARSE.NSNAME 237 STREQUAL 230 GETWINDOWUSERPROP 98 NCHARS 75 FM.GETSTATE 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (487 PROTMENUS 465 SCRATCHMENUS 457 SCRATCHMENUS 441 BOTTOM 355 KNOWN-VALUE 309 NAME 260 :NO 225 KNOWN-VALUE 169 NAME 154 OWNER 146 REMOVE 138 ADD 129 WRITE 120 READ 16 VERIFYFLG 5 PROTMENUS) ( 335 "~A not a registered name." 269 "*") NSPROT.STRIP.HOST :D8 (L (0 FILENAME)) N@ dl{odl[ol('o@l X@lHk @Hk (74 SUBSTRING 65 SUBSTRING 51 STRPOS 8 CHCON1) NIL ( 43 ")" 32 "]" 19 "}") NSPROT.EXPAND.FULLNAME :D8 (L (2 FILENAME 1 DEV 0 WINDOW)) ABggggi H4@oB ooB oo h YdB gh@ I@ Hd @ H(135 NSPROT.RESTORE.TYPE 127 NSPROT.DIRECTORY.SYNTAXP 119 FM.CHANGELABEL 112 FM.GETITEM 98 STREQUAL 89 NSPROT.STRIP.HOST 82 NSPROT.PROMPT 65 STRPOS 46 NSPROT.DIRECTORY.SYNTAXP 28 \NSFILING.GETFILE) (105 DIR 21 \NSFILING.FULLNAME 16 HANDLE 11 OLD 6 NONE) ( 77 "Directory/file" 71 "File" 59 ">" 52 "Directory" 40 "~A not found.") NSPROT.GET.SUBMENU :D8 (L (0 MAINWINDOW)) @g Hggooooooogogggggogi ogohhhdl Xdgi HgjH Y HgnI Hg@ Hh @gH (271 PUTWINDOWPROP 258 NSPROT.CHANGE.STATE 249 PUTWINDOWPROP 244 GETPROMPTWINDOW 232 PUTWINDOWPROP 216 PUTWINDOWPROP 203 \INSUREWINDOW 190 PUTWINDOWPROP 177 FREEMENU 149 CONCAT 124 NSPROT.GET.FONT 35 NSPROT.GET.FONT 10 GETWINDOWUSERPROP) (264 SCRATCHMENUS 238 FM.PROMPTWINDOW 222 MAXSIZE 196 MINSIZE 184 FM.DONTRESHAPE 144 LABEL 118 FONT 108 MESSAGE 103 EDITSTART 98 TYPE 93 TO 88 ID 78 LABEL 30 FONT 25 PROPS 5 SCRATCHMENUS) ( 154 (TYPE EDIT ID NAME) 129 (LINKS (EDIT NAME)) 113 "Fill in name (user or group) or pattern (*:Domain)." 83 " to:" 73 (LABEL "All" ID ALL TYPE TOGGLE SELECTEDFN NSPROT.HANDLE.ALL MESSAGE NSPROT.MESSAGE.ALL) 68 (LABEL "Own" ID OWNER TYPE TOGGLE SELECTEDFN NSPROT.HANDLE.SUBTYPE MESSAGE "Owner: User can change the protection.") 63 (LABEL "Del" ID REMOVE TYPE TOGGLE SELECTEDFN NSPROT.HANDLE.SUBTYPE MESSAGE "Delete: User can remove files from the directory.") 58 (LABEL "Add" ID ADD TYPE TOGGLE SELECTEDFN NSPROT.HANDLE.SUBTYPE MESSAGE "Add: User can create files in the directory.") 53 (LABEL "Wrt" ID WRITE TYPE TOGGLE SELECTEDFN NSPROT.HANDLE.SUBTYPE MESSAGE "Write: User may write/change/delete the file.") 48 (LABEL "Read" ID READ TYPE TOGGLE SELECTEDFN NSPROT.HANDLE.SUBTYPE MESSAGE "Read: User may read (if a file) or enumerate (if a directory)") 40 (COLUMNSPACE 5)) NSPROT.ADD.SUBMENU :D8 (L (1 MAINWINDOW 0 MENUW)) &@Ag Ag@Ag  (35 PUTWINDOWPROP 29 GETWINDOWUSERPROP 11 ATTACHWINDOW) (24 PROTMENUS 17 PROTMENUS 6 BOTTOM) () NSPROT.REMOVE.SUBMENUS :D8 (L (0 WINDOW)) D@gh HdY I @gH@g (65 PUTWINDOWPROP 60 \APPEND2 55 GETWINDOWUSERPROP 32 CLOSEW 25 DETACHWINDOW 11 PUTWINDOWPROP) (50 SCRATCHMENUS 43 SCRATCHMENUS 5 PROTMENUS) () NSPROT.CHANGE.STATE :D8 (L (1 NEWSTATE 0 WINDOW)) odh@ A@ @(22 FM.CHANGESTATE 15 FM.GETITEM) NIL ( 4 (READ WRITE ADD REMOVE OWNER ALL)) NSPROT.HANDLE.ALL :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) #A@@o@  (32 NSPROT.CHANGE.STATE 20 ERROR) (25 FREEMENUITEM 6 FREEMENUITEM) ( 14 "Arg must be FreeMenuItem") NSPROT.MESSAGE.ALL :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) )@@o@ oo(19 ERROR) (24 FREEMENUITEM 5 FREEMENUITEM) ( 38 "Grant user all 5 access rights" 32 "Deny user all access rights" 13 "Arg must be FreeMenuItem") NSPROT.HANDLE.SUBTYPE :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) ghA HHoH HhA @@o@ dgdgi@@o@ LghA ghA XoghA X HiA h(196 FM.CHANGESTATE 180 ERROR 174 FM.GETITEM 154 FM.GETITEM 136 FM.GETITEM 115 ERROR 71 ERROR 50 FM.CHANGESTATE 34 ERROR 11 FM.GETITEM) (185 FREEMENUITEM 167 READ 147 READ 141 FREEMENUITEM 129 READ 120 FREEMENUITEM 101 FREEMENUITEM 92 ADD 84 WRITE 76 FREEMENUITEM 57 FREEMENUITEM 39 FREEMENUITEM 20 FREEMENUITEM 4 ALL) ( 162 "Arg must be FreeMenuItem" 109 "Arg must be FreeMenuItem" 65 "Arg must be FreeMenuItem" 28 "Arg must be FreeMenuItem") NSPROT.SHOW.PROT.VALUE :D8 (L (1 MAINWINDOW 0 ENTRY)) }@1HHA Ii J3d[hL ^ oK iL KgNL ghL ML LgM@ LA L(121 NSPROT.ADD.SUBMENU 114 PUTWINDOWPROP 100 FM.CHANGELABEL 93 FM.GETITEM 76 NSPROT.HANDLE.ALL 60 FM.CHANGESTATE 53 HELP 39 FM.GETITEM 23 NSNAME.TO.STRING 16 NSPROT.GET.SUBMENU) (106 KNOWN-VALUE 86 NAME 67 ALL) ( 47 "Bad protection value") NSPROT.DIRECTORY.SYNTAXP :D8 (L (0 FILENAME)) @m l>(7 NTHCHARCODE) NIL () NSPROT.TOP.LEVELP :D8 (L (0 FILESPEC)) o@ d@ hh(18 NCHARS 10 STRPOS) NIL ( 4 ">") NSPROT.GET.FONT :D8 (L (0 BOLDP)) `@#`Vgg `5gl  l `gl (88 FONTCREATE 54 FONTCREATE 29 FONTCOPY 14 NSPROT.GET.FONT) (93 NSPROT.PLAIN.FONT 81 MODERN 75 NSPROT.PLAIN.FONT 64 FONTDESCRIPTOR 59 NSPROT.PLAIN.FONT 47 MODERN 40 NSPROT.PLAIN.FONT 34 NSPROT.BOLD.FONT 24 BOLD 19 WEIGHT 7 NSPROT.BOLD.FONT) () NSPROT.PROMPTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 WINDOW F 3 ARGS) *gkRSdnIkYhl4 IH(33 \LISPERROR) (4 CL:FORMAT) () NSPROT.PROMPT :D8 (L (0 WINDOW&ARGS) P 10 SI::*RESETFORMS* P 9 ARGS P 3 WINDOW P 1 *PRINT-CASE*) egkaZ HlaiJK ll2MdL7N gK hhh g $ha_OOh_Mk]O&_(98 SI::RESETUNWIND 93 \MVLIST 88 NSPROT.PROMPTA0001 68 TTYDISPLAYSTREAM 36 NSPROT.CLEAR.PROMPT 19 GETPROMPTWINDOW) (83 SI::RESETUNWIND 62 TTYDISPLAYSTREAM 8 :UPCASE) () NSPROT.CLEAR.PROMPT :D8 (L (1 PW 0 MAINW)) @g @g k"H A IIA AgjJ AgnJ Ad [KKJK HI(123 SHAPEW 97 \INSUREWINDOW 89 PUTWINDOWPROP 72 PUTWINDOWPROP 57 HEIGHTIFWINDOW 36 CLEARW 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (79 MAXSIZE 64 MINSIZE 49 FONTDESCRIPTOR 16 PROMPTLINES 5 PROMPTWINDOW) () NSPROT.LIMITCHARS :D8 (L (2 CHAR 1 WINDOW 0 ITEM)) BgBgA hi(21 FM.SKIPNEXT) (13 5 % ) () NSPROT.PAGEFULLFN :D8 (L (0 PW) F 0 \#DISPLAYLINES F 1 \CURRENTDISPLAYLINE) P@ kP c(14 GETPROMPTWINDOW 6 MAINWINDOW) NIL () NSPROT.ICONFN :D8 (L (1 OLDICON 0 WINDOW)) gh@ gh@ ogh@ HH jH $oXA`H H A(115 ICONW.TITLE 108 TITLEDICONW 103 NSPROT.GET.FONT 81 PARSE.NSNAME 72 NCHARS 53 ERROR 48 FM.GETITEM 29 FM.GETITEM 11 FM.GETITEM) (122 NSNAME 97 NSPROT.ICON 58 FREEMENUITEM 41 HOST 22 HOST 16 FREEMENUITEM 4 HOST) ( 88 "" 36 "Arg must be FreeMenuItem") ADD.NSPROTECTION :D8 (L (0 LST) F 3 BackgroundMenuCommands F 4 BackgroundMenu) z@;SboH/@Ih hci g g Zdo JIo JJ HX(113 ADD.NSPROTECTION 95 CL::SIMPLE-STRING-EQUAL 76 CL::SIMPLE-STRING-EQUAL 58 PUTD 46 CCODEP 36 NSPROT.GET.FONT 26 \NCONC2) (53 ADD.NSPROTECTION 41 ADD.NSPROTECTION) ( 90 "System" 71 "NS Protection" 10 ("NS Protection" (QUOTE (NSPROTECTION)) "Start up the NS File protection tool.")) (PRETTYCOMPRINT NSPROTECTIONCOMS) (RPAQQ NSPROTECTIONCOMS ((COMS (* ; "Main window selection handlers") (FNS NSPROTECTION NSPROT.SHOW NSPROT.FETCH.PROTECTION NSPROT.NEW.ENTRY NSPROT.APPLY NSPROT.SET.PROTECTION NSPROT.SET.PROTECTION.ONE NSPROT.SET.MULTIPLE NSPROT.SET.TO.DEFAULT NSPROT.BEGIN.COMMAND) (FNS NSPROT.HANDLE.TYPE NSPROT.RESTORE.TYPE NSPROT.HANDLE.VERIFY NSPROT.RESTORE.VERIFY NSPROT.PARSE.FILENAME NSPROT.PARSE.PROTECTIONS NSPROT.STRIP.HOST NSPROT.EXPAND.FULLNAME)) (COMS (* ; "Handle protection submenus") (FNS NSPROT.GET.SUBMENU NSPROT.ADD.SUBMENU NSPROT.REMOVE.SUBMENUS NSPROT.CHANGE.STATE NSPROT.HANDLE.ALL NSPROT.MESSAGE.ALL NSPROT.HANDLE.SUBTYPE NSPROT.SHOW.PROT.VALUE) ) (COMS (* ; "utilities") (FNS NSPROT.DIRECTORY.SYNTAXP NSPROT.TOP.LEVELP NSPROT.GET.FONT NSPROT.PROMPT NSPROT.CLEAR.PROMPT NSPROT.LIMITCHARS NSPROT.PAGEFULLFN NSPROT.ICONFN)) (INITVARS NSPROT.PLAIN.FONT NSPROT.BOLD.FONT) (VARS NSPROT.ICON) (GLOBALVARS NSPROT.PLAIN.FONT NSPROT.BOLD.FONT \NSFILING.ATTRIBUTES NSPROT.ICON \DEFAULTTTYDISPLAYSTREAM) (LOCALVARS . T) (COMS (DECLARE%: DONTEVAL@LOAD DOCOPY (P (AND (EQ MAKESYSNAME :LYRIC) (FILESLOAD (SYSLOAD) NSRANDOM)))) (FNS ADD.NSPROTECTION) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (ADD.NSPROTECTION)))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQ? NSPROT.PLAIN.FONT NIL) (RPAQ? NSPROT.BOLD.FONT NIL) (RPAQQ NSPROT.ICON (#*(80 40)OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOL@@@@@@@@@@@@@@@@@@CL@@@@@@@@@@@@@@@@@@CL@@@@@@@@@@@@@@@@@@CL@@@@@@@@@@@@@@@@@@CL@@@@@@@@@@@@@@AN@@CL@@@@@@@@@@@@@@GOH@CL@@@@@@@@@@@@@@OOL@CL@@@@@@@@@@@@@AOCN@CL@@@@@@@@@@@@@ANAN@CL@@@@@@@@@@@@@CL@O@CL@@@@@@@@@@@@@CL@O@CL@@@@@@@@@@@@@GH@G@CL@@@@@@@@@@@@@GH@GHCL@@@@@@@@@@@@@GH@GHCL@@@@@@@@@@@@@O@@CHCL@@@@@@@@@@@@@O@@CHCLAOOOOOOOOOOOOO@@CHCLCOOOOOOOOOOOOO@@CHCLCOOOOOOOOOOOOO@@CHCLAOOOOOOOOOOOOO@@CHCL@GNGNGN@@@@@@O@@CHCL@GNGNGN@@@@@@O@@CHCL@GNFFGN@@@@@@GH@GHCL@FFFFGN@@@@@@GH@GHCL@FF@@GN@@@@@@GH@G@CL@@@@@FF@@@@@@CL@O@CL@@@@@FF@@@@@@CL@O@CL@@@@@@@@@@@@@ANAN@CL@@@@@@@@@@@@@AOCN@CL@@@@@@@@@@@@@@OOL@CL@@@@@@@@@@@@@@GOH@CL@@@@@@@@@@@@@@CO@@CL@@@@@@@@@@@@@@@L@@CL@@@@@@@@@@@@@@@@@@CL@@@@@@@@@@@@@@@@@@CL@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO NIL (4 22 51 14))) (AND (EQ MAKESYSNAME :LYRIC) (FILESLOAD (SYSLOAD) NSRANDOM)) (ADD.NSPROTECTION) (PUTPROPS NSPROTECTION COPYRIGHT ("Xerox Corporation" 1987 1989 2021)) NIL