(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Oct-2022 16:42:36" ("compiled on " {DSK}larry>medley>sources>IDLER.;2) " 4-Oct-2022 11:56:53" brecompiled changes%: \IDLE.OUT in "FULL 4-Oct-2022 ..." dated " 4-Oct-2022 11:56:55") (FILECREATED " 4-Oct-2022 16:42:36" {DSK}larry>medley>sources>IDLER.;2 47709 :CHANGES-TO (FNS \IDLE.OUT) :PREVIOUS-DATE "28-Sep-2022 19:54:40" {DSK}larry>medley>sources>IDLER.;1) IDLE :D8 (L (0 FROMTIMEOUT)) z`r`g' `gg ig@ddi3 g@hhgiggg h(117 ADD.PROCESS 111 \IDLERKEYACTION 50 \CARET.DOWN 44 LISTPUT 22 FNTYP) (106 KEYACTION 101 IDLE 96 NAME 90 RESTARTABLE 78 QUOTE 61 \IDLER 56 \IDLING 39 IDLE.BOUNCING.BOX 34 DISPLAYFN 29 IDLE.PROFILE 16 DISPLAYFN 11 IDLE.PROFILE 4 \IDLING) () IDLE.SET.OPTIONA0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) hdo (11 ASKUSER) NIL ( 6 " no such name/group. Add anyway? ") IDLE.SET.OPTION :D8 (L (1 X 0 OPTION) P 5 SI::*RESETFORMS*) o` @o `@'A`@ddgKA(`d`dg dgjdndhdI Hg[A" "") 203 (T *) 179 "s" 173 "" 164 " minute" 152 "never" 112 ": " 77 " " 59 "Allowed Logins" 32 "Idle ") \IDLERA0001A0002 :D8 NIL ` (9 NOTIFY.EVENT) (4 \IDLING.OVER) () \IDLERA0001A0015 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) i@hcg(9 SAVEVM) (18 :NORMAL) () \IDLERA0001A0016 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 EXIT? F 3 SI::NLSETQ-VALUE) i@chcg(9 \IDLE.EXIT?) (20 :NORMAL) () \IDLERA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 35 *CONDITION-HANDLER-BINDINGS* P 34 SI::*NLSETQFLAG* P 33 *PROCEED-CASES* P 32 SI::NLSETQ-VALUE P 7 EXIT? I 0 SI::*CLEANUP-FORMS* F 36 SI::*RESETFORMS* F 37 *CONDITION-HANDLER-BINDINGS* F 38 VMEM.SAVED F 39 *PROCEED-CASES* F 40 FROMTIMEOUT) $ohdWHcH`oo`g'`g'sh`g'g.g g g g ghhdWHcH`_'gd gh WHcH`P Oo d_gOO hOO hWHcH`g'g!ghddi o g` hhWHcHoggg hWHcHWP,`g'_`Ol< ` `hji gLhhdWHcHgjd hhWHcH gj hhWHcHL 6gL nL gn hhWHcHL JJjhKKjhJKJKl JKn``g'L`g'gg gNhhdWHcHid l `g _ _O lO l_kO__OOOjjJUhZQkjE`g _*_(O*lO*l_"kO"_&_$O&O(O$jjkjN N ` hdi ` o` H ` ` WL` ` `g _4_2O4lO4l_,kO,_0_.O0O2O.jjkjB`g _>_lO>l_6kO6_:_8O:OJ;H lHkl @ l@kl bH@ @A}H@ JBA (166 CL::SIMPLE-STRING-EQUAL 153 CL::SIMPLE-STRING-EQUAL 138 CL::SIMPLE-STRING-EQUAL 128 SUBSTRING 115 NCHARS 108 SUBSTRING 95 NCHARS 78 MACHINETYPE 70 \FZEROP 56 NCHARS 48 GetBcplString 26 USERNAME) (83 MAIKO 34 \InterfacePage 9 CLEAR 4 \IDLE.PASSWORD.SET) () \IDLE.ISMEMBER :D8 (L (2 PWD 1 NAME 0 GROUP)) @Hh@HhYiAcoI iYoI A I 9I`oA oI AAo` IwisHXiYihW`oI roi Ii oi IA dioi iIioi hgoi h`oI roi Ii oi I gdA diopoi hfg[oi hLHX[(429 PRIN1 403 PRIN1 377 CH.ISMEMBER 372 CH.LOOKUP.OBJECT 360 PARSE.NSNAME 353 PRIN1 341 PRIN1 333 PRIN1 320 STRPOS 296 PRIN1 273 PRIN1 249 PRIN1 232 GV.ISMEMBERCLOSURE 227 \CHECKNAME 219 PRIN1 207 PRIN1 199 PRIN1 186 STRPOS 140 CL::SIMPLE-STRING-EQUAL 135 CONCAT 116 STRPOS 104 STRPOS 83 EQUAL.CH.NAMES 78 PARSE.NSNAME 72 PARSE.NSNAME 64 STRPOS 49 STRPOS 36 USERNAME) (413 ERROR 365 MEMBERS 305 CH.DEFAULT.DOMAIN 282 BadRName 171 DEFAULTREGISTRY 130 DEFAULTREGISTRY 91 DEFAULTREGISTRY) ( 423 "not an NS group" 397 "no." 387 "ok." 347 "?..." 327 "..." 314 ":" 290 "not a GV group" 267 "no." 243 "ok." 213 "?..." 193 "..." 180 "^." 125 "." 110 "." 98 "." 58 ":" 43 "*") \IDLE.AUTHENTICATE :D8 (L (4 OUTPUT 3 IFALLDOWN 2 TYPE 1 PWD 0 NAME)) BghBgh`BghBgh`BghBgh gD oD @D oD Bi,o@ hYio@ `hZiJ!g@A}i[gh8H @A  [diI@A KgoD D CKiKoD ig#KdgdgdggKD hD oD KD i(387 PRIN1 379 PRIN1 367 TERPRI 359 PRIN1 309 PRIN1 289 TERPRI 282 PRIN1 261 GV.AUTHENTICATE 256 \ENCRYPT.PWD 251 CONCAT 234 NS.AUTHENTICATE 229 NS.MAKE.SIMPLE.CREDENTIALS 223 \ENCRYPT.PWD 218 CONCAT 182 MACHINETYPE 162 STRPOS 143 STRPOS 127 PRIN1 115 PRIN1 107 PRIN1 95 TERPRI 80 MACHINETYPE) (350 Bad% login 343 BadPassword 335 BadRName 326 CredentialsInvalid 316 SimpleKeyDoesNotExist 268 AllDown 204 Bad% login 187 MAIKO 168 DEFAULTREGISTRY 85 MAIKO 70 GV 59 NS 53 DEFAULTREGISTRY 43 UNIX 32 NS 26 CH.DEFAULT.DOMAIN 16 UNIX 5 GV) ( 373 "Odd response from authenticator: " 303 "ok." 276 "All authentication servers down" 156 "." 137 ":" 121 " ... " 101 "Authenticating ") \IDLERKEYACTION :D8 (F 1 IDLE.KEYACTIONTABLE) @Q goH goH goH HhH(56 KEYACTION 40 KEYACTION 24 KEYACTION 5 KEYACTIONTABLE) (45 RIGHT 29 MIDDLE 13 LEFT) ( 50 ((18 18) 18 18) 34 ((18 18) 18 18) 18 ((18 18) 18 18)) IDLE.BOUNCING.BOXA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 7 BOX F 8 WINDOW F 9 WAIT) Wg Wg RWd c^jWZMW WJcHM IM MjdWKLhddg W MjdWKLhddg  NhN N(165 IDLE.BITMAP 155 WINDOWP 146 BKBITBLT 124 BLOCK 116 BKBITBLT 94 RAND 88 BITMAPHEIGHT 80 RAND 74 BITMAPWIDTH 57 IDLE.BITMAP 37 COPY 23 GETWINDOWPROP 11 GETWINDOWPROP) (140 INVERT 110 INVERT 18 HEIGHT 6 WIDTH) () IDLE.BOUNCING.BOX :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 WAIT I 1 BOX I 0 WINDOW F 3 LISPXHIST) 0BnbA`bS!g $(41 SI::RESETUNWIND 36 \MVLIST 31 IDLE.BOUNCING.BOXA0001) (26 SI::RESETUNWIND 14 IDLE.BOUNCING.BOX) () IDLE.BITMAP :D8 (L (1 BOX 0 BITMAP)) !AdAd WA !HH@@@ I@ JIJ bA HH@ @ARgl$hddi gl hddi `Ad Ad3@A j'obHHRAhA AH H bd YHI jH HI AI @(285 PRIN3 278 MOVETO 254 DSPFONT 246 DSPCREATE 238 BITMAPCREATE 225 STRINGWIDTH 215 IDLE.BITMAP 177 NCHARS 163 STRINGP 146 FONTCREATE 127 FONTCREATE 104 BKBITBLT 93 SCREENBITMAP 88 TOTOPW 79 BITMAPCREATE 69 BITMAPHEIGHT 60 BITMAPWIDTH 27 \INSUREWINDOW 19 WINDOWP) (269 FONTDESCRIPTOR 261 FONTDESCRIPTOR 231 FONTDESCRIPTOR 200 BITMAP 153 DEFAULTFONT 134 HELVETICA 115 TIMESROMAND 49 BITMAP 6 BITMAP) ( 186 "Interlisp.org") IDLE.RANDOM :D8 (L (0 W) F 4 LAST.IDLE.FUNCTION) g Tkcj` kchck` k 1`YhZg/kHkX'oJ n J @kKI(120 EVAL 111 DISMISS 102 PROMPTPRINT 57 RAND 50 LENGTH 29 LENGTH 9 BOUNDP) (79 Random 65 IDLE.FUNCTIONS 45 IDLE.FUNCTIONS 24 IDLE.FUNCTIONS 4 LAST.IDLE.FUNCTION) ( 95 "Idle display ") (PRETTYCOMPRINT IDLERCOMS) (RPAQQ IDLERCOMS ((COMS (* ;; "Basic idling facility") (FNS IDLE IDLE.SET.OPTION IDLE.SHOW.OPTIONS IDLE.SHOW.OPTION \IDLER \IDLE.WAIT \OK.TO.IDLE? \IDLE.TIME \IDLE.OUT \IDLE.EXIT? \IDLE.PROMPT.WATCHER \IDLE.EXIT.ABORT \IDLE.PROMPTING.WINDOW \IDLE.IS.PREVIOUS \IDLE.ISMEMBER \IDLE.AUTHENTICATE \IDLERKEYACTION) (INITVARS (IDLE.PROFILE (QUOTE (TIMEOUT 0))) (* ; "so that it doesn't start idling during the loadup") (\IDLING) (CH.DEFAULT.DOMAIN) (DEFAULTREGISTRY) ( IDLE.KEYACTIONTABLE)) (ADDVARS (SYSTEMINITVARS (IDLE.PROFILE ALLOWED.LOGINS NIL FORGET NIL TIMEOUT 0 DISPLAYFN IDLE.RANDOM SAVEVM 5 LOGOUT 5)) (IDLE.SUSPEND.PROCESS.NAMES MOUSE) (IDLE.RESETVARS ( PUPTRACEFLG NIL) (XIPTRACEFLG NIL))) (GLOBALVARS IDLE.PROFILE \IDLING \LASTUSERACTION IDLE.RESETVARS IDLE.SUSPEND.PROCESS.NAMES CH.DEFAULT.DOMAIN DEFAULTREGISTRY \AFTERLOGINFNS SAVINGCURSOR \VMEM.INHIBIT.WRITE \IDLE.PASSWORD.SET) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (FONTCREATE (QUOTE TIMESROMAND) 36)) (ADDVARS (BACKGROUNDFNS \IDLE.OUT) (BackgroundMenuCommands (Idle (QUOTE ( IDLE)) "Enter Idle mode" (SUBITEMS ("Show Profile" (QUOTE (IDLE.SHOW.OPTIONS)) "Print current idle options in prompt window") ("Set Timeout" (QUOTE (IDLE.SET.OPTION (QUOTE TIMEOUT)) ) "Set how long before idling started" (SUBITEMS ("Never" (IDLE.SET.OPTION (QUOTE TIMEOUT) 0) "Never spontaneously enter idle mode"))) ("Choose Display" (QUOTE (IDLE.SET.OPTION (QUOTE DISPLAYFN))) "Choose idle display") ("Forget" (QUOTE (IDLE.SHOW.OPTION (QUOTE FORGET))) "Erase password when leaving idle mode?" (SUBITEMS ("Do" (QUOTE (IDLE.SET.OPTION (QUOTE FORGET) T)) "Erase password upon exiting idle mode") ("Don't" (QUOTE (IDLE.SET.OPTION (QUOTE FORGET) NIL)) "Retain password through idle mode (unless someone logs in)"))) ("Allowed Logins" (QUOTE ( IDLE.SHOW.OPTION (QUOTE ALLOWED.LOGINS))) "Who can exit idle mode" (SUBITEMS ("Unlocked" (QUOTE ( IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE UNLOCKED))) "No login required to exit idle mode") ( "Locked" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE (T)))) "Only the current user may exit idle mode") ("Any Login" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS ) (QUOTE (*)))) "Any user may exit, but require login") ("Group" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE ADD))) "Only allow specific users and/or groups to exit" (SUBITEMS ( "Include Previous User" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) T)) "If current user exits, check old password") ("Add Member" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE ADD))) "Add a group or username") ("Remove Member" (QUOTE (IDLE.SET.OPTION ( QUOTE ALLOWED.LOGINS) (QUOTE REMOVE))) "Remove a group or username"))))) ("Authenticate" (QUOTE ( IDLE.SHOW.OPTION (QUOTE AUTHENTICATE))) "Authenticate user upon exiting idle mode?" (SUBITEMS ("Do" ( QUOTE (IDLE.SET.OPTION (QUOTE AUTHENTICATE) T)) "User will be authenticated upon exiting idle mode") ( "Unix" (QUOTE (IDLE.SET.OPTION (QUOTE AUTHENTICATE) (QUOTE UNIX))) "User will be authenticated in Unix upon exiting idle mode") ("NS" (QUOTE (IDLE.SET.OPTION (QUOTE AUTHENTICATE) (QUOTE NS))) "User will be authenticated in XNS upon exiting idle mode") ("GV" (QUOTE ( IDLE.SET.OPTION (QUOTE AUTHENTICATE) (QUOTE GV))) "User will be authenticated in Grapevine upon exiting idle mode") ("Don't" (QUOTE (IDLE.SET.OPTION ( QUOTE AUTHENTICATE) NIL)) "Accept any password--no authentication check"))))))) (VARS (BackgroundMenu) (\IDLING.OVER (CREATE.EVENT (QUOTE \IDLING.OVER)))) (P (\DAYTIME0 \LASTUSERACTION)))) (COMS (* ;; "Default idle display") (FNS IDLE.BOUNCING.BOX IDLE.BITMAP IDLE.RANDOM) (INITVARS (IDLE.BOUNCING.BOX ( BITMAPCOPY LOGOBITMAP)) (IDLE.FUNCTIONS (QUOTE (("Bouncing Box" (CL:FUNCTION (LAMBDA (W) ( IDLE.BOUNCING.BOX W (USERNAME NIL NIL T))))) (Random (QUOTE IDLE.RANDOM)))))) (GLOBALVARS IDLE.FUNCTIONS IDLE.BOUNCING.BOX)))) (RPAQ? IDLE.PROFILE (QUOTE (TIMEOUT 0))) (RPAQ? \IDLING) (RPAQ? CH.DEFAULT.DOMAIN) (RPAQ? DEFAULTREGISTRY) (RPAQ? IDLE.KEYACTIONTABLE) (ADDTOVAR SYSTEMINITVARS (IDLE.PROFILE ALLOWED.LOGINS NIL FORGET NIL TIMEOUT 0 DISPLAYFN IDLE.RANDOM SAVEVM 5 LOGOUT 5)) (ADDTOVAR IDLE.SUSPEND.PROCESS.NAMES MOUSE) (ADDTOVAR IDLE.RESETVARS (PUPTRACEFLG NIL) (XIPTRACEFLG NIL)) (FONTCREATE (QUOTE TIMESROMAND) 36) (ADDTOVAR BACKGROUNDFNS \IDLE.OUT) (ADDTOVAR BackgroundMenuCommands (Idle (QUOTE (IDLE)) "Enter Idle mode" (SUBITEMS ("Show Profile" ( QUOTE (IDLE.SHOW.OPTIONS)) "Print current idle options in prompt window") ("Set Timeout" (QUOTE ( IDLE.SET.OPTION (QUOTE TIMEOUT))) "Set how long before idling started" (SUBITEMS ("Never" ( IDLE.SET.OPTION (QUOTE TIMEOUT) 0) "Never spontaneously enter idle mode"))) ("Choose Display" (QUOTE ( IDLE.SET.OPTION (QUOTE DISPLAYFN))) "Choose idle display") ("Forget" (QUOTE (IDLE.SHOW.OPTION (QUOTE FORGET))) "Erase password when leaving idle mode?" (SUBITEMS ("Do" (QUOTE (IDLE.SET.OPTION (QUOTE FORGET) T)) "Erase password upon exiting idle mode") ("Don't" (QUOTE (IDLE.SET.OPTION (QUOTE FORGET) NIL)) "Retain password through idle mode (unless someone logs in)"))) ("Allowed Logins" (QUOTE ( IDLE.SHOW.OPTION (QUOTE ALLOWED.LOGINS))) "Who can exit idle mode" (SUBITEMS ("Unlocked" (QUOTE ( IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE UNLOCKED))) "No login required to exit idle mode") ( "Locked" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE (T)))) "Only the current user may exit idle mode") ("Any Login" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS ) (QUOTE (*)))) "Any user may exit, but require login") ("Group" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE ADD))) "Only allow specific users and/or groups to exit" (SUBITEMS ( "Include Previous User" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) T)) "If current user exits, check old password") ("Add Member" (QUOTE (IDLE.SET.OPTION (QUOTE ALLOWED.LOGINS) (QUOTE ADD))) "Add a group or username") ("Remove Member" (QUOTE (IDLE.SET.OPTION ( QUOTE ALLOWED.LOGINS) (QUOTE REMOVE))) "Remove a group or username"))))) ("Authenticate" (QUOTE ( IDLE.SHOW.OPTION (QUOTE AUTHENTICATE))) "Authenticate user upon exiting idle mode?" (SUBITEMS ("Do" ( QUOTE (IDLE.SET.OPTION (QUOTE AUTHENTICATE) T)) "User will be authenticated upon exiting idle mode") ( "Unix" (QUOTE (IDLE.SET.OPTION (QUOTE AUTHENTICATE) (QUOTE UNIX))) "User will be authenticated in Unix upon exiting idle mode") ("NS" (QUOTE (IDLE.SET.OPTION (QUOTE AUTHENTICATE) (QUOTE NS))) "User will be authenticated in XNS upon exiting idle mode") ("GV" (QUOTE ( IDLE.SET.OPTION (QUOTE AUTHENTICATE) (QUOTE GV))) "User will be authenticated in Grapevine upon exiting idle mode") ("Don't" (QUOTE (IDLE.SET.OPTION ( QUOTE AUTHENTICATE) NIL)) "Accept any password--no authentication check")))))) (RPAQQ BackgroundMenu NIL) (RPAQ \IDLING.OVER (CREATE.EVENT (QUOTE \IDLING.OVER))) (\DAYTIME0 \LASTUSERACTION) (RPAQ? IDLE.BOUNCING.BOX (BITMAPCOPY LOGOBITMAP)) (RPAQ? IDLE.FUNCTIONS (QUOTE (("Bouncing Box" (CL:FUNCTION (LAMBDA (W) (IDLE.BOUNCING.BOX W (USERNAME NIL NIL T))))) (Random (QUOTE IDLE.RANDOM))))) (PUTPROPS IDLER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1992 2022)) NIL