github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-03 18:27:44 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #711 from Interlisp/medley-logow

Browse Source 
Medley logow
This commit is contained in:
rmkaplan
2022-03-04 21:08:44 -08:00
committed by GitHub
parent a544855c08 156b14851b
commit 7bde19453e
13 changed files with 193 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
greetfiles/MEDLEYDIR-INIT
View File

@@ -1,11 +1,8 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 2-Dec-2021 21:13:55" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;3 2392
(FILECREATED "28-Feb-2022 21:13:20" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;2 4677
changes to%: (VARS MEDLEYDIR-INITCOMS)
(FNS INTERLISPMODE)
previous date%: "14-Nov-2021 22:34:49" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
:PREVIOUS-DATE "20-Feb-2022 11:47:18" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
(PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@@ -16,14 +13,24 @@
"/sources/MEDLEYDIR.LCOM"))
(MEDLEY-INIT-VARS)
(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
(FILES BACKGROUND-YIELD)
(VARS (FILING.ENUMERATION.DEPTH 1)
(FILES BACKGROUND-YIELD PAGEHOLD VTCHAT)
(VARS
(* ;; "settings for new users")
(DWIMWAIT 180)
(HELPDEPTH 4)
(HELPTIME 10)
(FILING.ENUMERATION.DEPTH 1)
[LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME"]
[USERGREETFILES `((,LOGINDIR "INIT" COM)
(,LOGINDIR "INIT"]
(COPYRIGHTSRESERVED NIL))
(FNS INTERLISPMODE)))
(COPYRIGHTSRESERVED NIL)
(AUTOBACKTRACEFLG 'ALWAYS)
(MAXLEVEL 30000)
(MAXLOOP 30000))
(FNS INTERLISPMODE)
(ALISTS (FONTDEFS LARGER))))
(LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
"")
@@ -33,17 +40,29 @@
(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
(FILESLOAD BACKGROUND-YIELD)
(FILESLOAD BACKGROUND-YIELD PAGEHOLD VTCHAT)
(RPAQQ DWIMWAIT 180)
(RPAQQ HELPDEPTH 4)
(RPAQQ HELPTIME 10)
(RPAQQ FILING.ENUMERATION.DEPTH 1)
(RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME"))))
(UNIX-GETENV "HOME"))))
(RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
(,LOGINDIR "INIT")))
(,LOGINDIR "INIT")))
(RPAQQ COPYRIGHTSRESERVED NIL)
(RPAQQ AUTOBACKTRACEFLG ALWAYS)
(RPAQQ MAXLEVEL 30000)
(RPAQQ MAXLOOP 30000)
(DEFINEQ
(INTERLISPMODE
@@ -59,6 +78,45 @@
else "INTERLISP")
:PACKAGE "INTERLISP"])
)
(ADDTOVAR FONTDEFS
[LARGER (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
(GACHA 10)
(TERMINAL 10)
(POSTSCRIPT (TERMINAL 10)))
(ITALICFONT 1 (HELVETICA 12 MIR)
(GACHA 10 MIR)
(MODERN 10 MIR)
(POSTSCRIPT (MODERN 10 MIR)))
(BOLDFONT 2 (HELVETICA 12 BRR)
(HELVETICA 10 BRR)
(MODERN 10 BRR)
(POSTSCRIPT (HELVETICA 12 BRR)))
(LITTLEFONT 3 (HELVETICA 10)
(HELVETICA 6 MIR)
(MODERN 10 MIR)
(POSTSCRIPT (MODERN 10 MIR)))
(TINYFONT 6 (GACHA 10)
(GACHA 6)
(TERMINAL 6)
(POSTSCRIPT (TERMINAL 6)))
(BIGFONT 4 (HELVETICA 12 BRR)
NIL
(MODERN 12 BRR)
(POSTSCRIPT (MODERN 12 BRR)))
(MENUFONT 5 (HELVETICA 12)
(HELVETICA 12)
(POSTSCRIPT (HELVETICA 12)))
(COMMENTFONT 6 (HELVETICA 12)
(HELVETICA 10)
(MODERN 10)
(POSTSCRIPT (MODERN 10)))
(TEXTFONT 7 (TIMESROMAN 12)
NIL
(CLASSIC 12)
(POSTSCRIPT (CLASSIC 12])
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1544 2369 (INTERLISPMODE 1554 . 2367)))))
(FILEMAP (NIL (1936 2761 (INTERLISPMODE 1946 . 2759)))))
STOP

BIN
greetfiles/MEDLEYDIR-INIT.LCOM
View File

Binary file not shown.

0
lispusers/KOTOLOGO → obsolete/lispusers/KOTOLOGO
View File

0
lispusers/KOTOLOGO.TEDIT → obsolete/lispusers/KOTOLOGO.TEDIT
View File

0
sources/POSTLOADUP → obsolete/sources/POSTLOADUP
View File

0
sources/POSTLOADUP.LCOM → obsolete/sources/POSTLOADUP.LCOM
View File

41
sources/LOADUP-FULL
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "15-Jan-2022 15:49:06" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4784
(FILECREATED " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4746
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE "29-Apr-2021 22:31:24" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
:PREVIOUS-DATE " 2-Mar-2022 13:58:38" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -13,18 +13,15 @@
(FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
(P (FIXMETA))))
(DEFCOMMAND "cd" (DIR)
(/CNDIR DIR))
(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
(DEFCOMMAND "pwd" ()
(DIRECTORYNAME T))
(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
(DEFCOMMAND "ls" (FIRST . REST)
(DODIR (CONS FIRST REST)))
(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
(DEFINEQ
(LOADFULLFONTS
[LAMBDA NIL (* ; "Edited 13-Feb-2021 22:51 by larry")
[LAMBDA NIL (* ; "Edited 13-Feb-2021 22:51 by larry")
(* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")
@@ -33,24 +30,23 @@
(SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
(RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
(MISSINGCHARSETDISPLAYFONTCOERCIONS NIL)) (* ;
 "Don't let the font loader substitute just because a server went catatonic on us")
 "Don't let the font loader substitute just because a server went catatonic on us")
(for FAMILY in '(CLASSIC MODERN TERMINAL)
do (PRINTOUT T " Loading " FAMILY " ")
[for SIZE in '(8 10 12)
do (PRINTOUT T SIZE " ")
(for FACE in '(MRR BRR MIR)
do (for CSET
in '(0 33 34 35 238 239 241)
do (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL
'DISPLAY NIL CSET]
(PRINTOUT T T))
[for SIZE in '(8 10 12)
do (PRINTOUT T SIZE " ")
(for FACE in '(MRR BRR MIR)
do (for CSET in '(0 33 34 35 238 239 241)
do (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL 'DISPLAY NIL CSET]
(PRINTOUT T T))
(PRINTOUT T " Loading postscript fonts" T)
(for F in (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
">c0>*.*")) do (PSCFONT.READFONT F))
">c0>*.*")) do (PSCFONT.READFONT F))
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA (DOIT) (* ; "Edited 15-Jan-2022 15:48 by larry")
[LAMBDA NIL (* ; "Edited 2-Mar-2022 13:58 by larry")
(* ; "Edited 15-Jan-2022 15:48 ")
(* ; "Edited 29-Apr-2021 22:27 by rmk:")
(* ;
 "Edited 14-May-2018 15:01 by kaplan")
@@ -77,6 +73,7 @@
DEFAULTFILETYPELIST)
(push DEFAULTFILETYPELIST '(DRIBBLE . TEXT)
'(SH . TEXT)
'(TTY . TEXT)
'(TXT . TEXT)
'(TEXT . TEXT)
'(TEX . TEXT)
@@ -97,7 +94,7 @@
(DRIBBLE])
(FIXMETA
[LAMBDA NIL (* ; "Edited 25-Jun-2017 17:12 by rmk:")
[LAMBDA NIL (* ; "Edited 25-Jun-2017 17:12 by rmk:")
(KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
\CURRENTKEYACTION)
(KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
@@ -105,5 +102,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (659 4746 (LOADFULLFONTS 669 . 2257) (LOADUP-FULL 2259 . 4500) (FIXMETA 4502 . 4744)))))
(FILEMAP (NIL (639 4708 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4458) (FIXMETA 4460 . 4706)))))
STOP

BIN
sources/LOADUP-FULL.LCOM
View File

Binary file not shown.

30
sources/LOADUP-LISP
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5105
(FILECREATED " 4-Mar-2022 19:17:17" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5132
:CHANGES-TO (FNS LOADUP-LISP)
:PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
:PREVIOUS-DATE " 2-Mar-2022 16:31:39" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
(PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -17,9 +17,10 @@
(DEFINEQ
(LOADUP-LISP
(LAMBDA NIL (* \;
 "Edited 15-Jan-2022 15:47 by larry")
(* \; "Edited 29-Apr-2021 22:30 by rmk:")
(LAMBDA NIL (* \; "Edited 4-Mar-2022 19:13 by larry")
(* \; "Edited 2-Mar-2022 16:31 by larry")
(* \; "Edited 28-Feb-2022 15:02 by larry")
(* \; "Edited 29-Apr-2021 22:30 by rmk:")
(SETQQ COMPILE.EXT LCOM) (* \; "should be set earlier")
(DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
(FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
@@ -31,7 +32,7 @@
(* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")
(LOADUP '(ACODE MACHINEINDEPENDENT POSTLOADUP))
(LOADUP '(ACODE MACHINEINDEPENDENT))
(* |;;| "establish all package exports early")
@@ -81,16 +82,14 @@
(* |;;| "the bytecompiler and Interlisp compiler interface functions")
(LOADUP '(DLAP BYTECOMPILER COMPILE))
(LOADUP '(HARDCOPY LOGOW IDLER ICONW FREEMENU SEDIT)) (* \; "don't want LOGOW ")
(COND
((WINDOWP (LOGOW))
(CLOSEW (LOGOW))
(MOVD 'NILL 'LOGOW)))
(LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT))
(LOADUP '(TIME))
(LOADUP '(BRKDWN))
(LOADUP '(XCL-EXTRAS)) (*
 "CMLPACKAGE pushes onto INSPECTMACROS")
(LOADUP '(LOGOW IDLER HARDCOPY ICONW FREEMENU SEDIT))
(LOADUP '(XCL-EXTRAS))
(* |;;| "CMLPACKAGE pushes onto INSPECTMACROS")
(LOADUP '(CMLPACKAGE))
(* |;;| "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")
@@ -101,6 +100,9 @@
(* |;;| "Already enabled, but this time fixes tables that weren't defined in the init")
(PACKAGE-ENABLE)
(* |;;| " networking code -- should make it optional but too many cross dependencies")
(LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP
NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
(DRIBBLE)
@@ -115,5 +117,5 @@
(GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (642 4883 (LOADUP-LISP 652 . 4881)))))
(FILEMAP (NIL (642 4910 (LOADUP-LISP 652 . 4908)))))
STOP

BIN
sources/LOADUP-LISP.LCOM
View File

Binary file not shown.

185
sources/LOGOW
View File

File diff suppressed because one or more lines are too long

BIN
sources/LOGOW.DFASL
View File

Binary file not shown.

BIN
sources/LOGOW.LCOM Normal file
View File

Binary file not shown.