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

move all loadups-related source files into internal/loadups; adjust scripts accordingly; move venuesysouts from loadups into internal/venuesysouts; fix issues in .CM files to allow starting loadups-all from any lisp/full.sysout

Browse Source
This commit is contained in:
Frank Halasz
2023-08-07 12:34:11 -07:00
parent dbf6808bcb
commit ed6a6e4e04
20 changed files with 79 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
sources/LOADUP-APPS
View File

@@ -1,56 +0,0 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Jan-2023 20:34:02" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-APPS.;3 2095
:CHANGES-TO (FNS Apps.RemoveBackgroundMenuItem)
:PREVIOUS-DATE "17-Jan-2023 20:29:39" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-APPS.;2
)
(PRETTYCOMPRINT LOADUP-APPSCOMS)
(RPAQQ LOADUP-APPSCOMS ((GLOBALVARS *ALL-BUTTONS* BackgroundMenuCommands BackgroundMenu)
(FNS Apps.LOADUP Apps.RemoveBackgroundMenuItem)))
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS *ALL-BUTTONS* BackgroundMenuCommands BackgroundMenu)
)
(DEFINEQ
(Apps.LOADUP
[LAMBDA NIL (* ; "Edited 12-Nov-2022 14:03 by FGH")
(PROGN
(* ;; " Delete button(s) that are created when lispusers/BUTTONS is loaded")
(for B in *ALL-BUTTONS* do (DELETE-BUTTON B))
(* ;; " Remove the BUTTONS BackgroundMenu item")
(Apps.RemoveBackgroundMenuItem "Button Control")
(* ;; " Remove the NoteCards Background Menu Item")
(Apps.RemoveBackgroundMenuItem 'NoteCards)
(* ;; " Remove the CLOS Background Menu Item")
(Apps.RemoveBackgroundMenuItem 'BrowseClass)
(RPLACA [CAR (LIST '(A B C]
NIL])
(Apps.RemoveBackgroundMenuItem
[LAMBDA (ItemStringOrAtom)
(DECLARE (GLOBALVARS Apps.SBG)) (* ; "Edited 17-Jan-2023 20:33 by FGH")
(* ; "Edited 12-Nov-2022 14:07 by FGH")
(LET (SAVEX)
(SETQ BackgroundMenuCommands (REMOVE (SETQ SAVEX (SASSOC ItemStringOrAtom
BackgroundMenuCommands))
BackgroundMenuCommands))
(SETQ BackgroundMenu NIL)
(SETQ Apps.SBG (APPEND (LIST SAVEX)
Apps.SBG])
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (647 2072 (Apps.LOADUP 657 . 1400) (Apps.RemoveBackgroundMenuItem 1402 . 2070)))))
STOP

BIN
sources/LOADUP-APPS.LCOM
View File

Binary file not shown.

90
sources/LOADUP-FULL
View File

@@ -1,90 +0,0 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "31-Jul-2023 18:28:53" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;4 4521
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;3
)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
(RPAQQ LOADUP-FULLCOMS ((FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
(P (FIXMETA))))
(DEFINEQ
(LOADFULLFONTS
[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")
(PRINTOUT T "Loading FULL fonts..." T)
(SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
(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")
(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))
(PRINTOUT T " Loading postscript fonts" T)
(for F in (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
">c0>*.*")) do (PSCFONT.READFONT F))
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA (DRIBBLEFILE) (* ; "Edited 18-Jan-2023 16:22 by FGH")
(* ; "Edited 12-Aug-2022 11:17 by lmm")
(* ; "Edited 14-Jul-2022 12:32 by rmk")
(* ; "Edited 12-Jul-2022 21:57 by rmk")
(* ; "Edited 7-Mar-2022 21:06 by larry")
(* ; "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")
(* ; "Edited 28-Sep-2020 12:35 by rmk:")
(* ; "Edited 21-Apr-2018 07:27 by rmk:")
(* ; "Edited 23-Feb-94 15:04 by bvm")
(PROGN (SETQ MEDLEYDIR)
(CNDIR (MEDLEYDIR)))
(MEDLEY-INIT-VARS)
(DRIBBLE DRIBBLEFILE)
(* ;; "BKSYSBUF stops page holding ")
(BKSYSBUF " ")
(PRINTOUT T T "Full loadup started at " (DATE)
" while connected to "
(DIRECTORYNAME T)
T T)
(LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT")
(LOADFULLFONTS)
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
(SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER
THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
UNIXCOMM UNIXCHAT UNIXYCD UNIXUTILS))
(COND
((WINDOWP *WHO-LINE*)
(CLOSEW *WHO-LINE*)))
(DRIBBLE])
(FIXMETA
[LAMBDA NIL (* ; "Edited 25-Jun-2017 17:12 by rmk:")
(KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
\CURRENTKEYACTION)
(KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (467 4483 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4233) (FIXMETA 4235 . 4481)))))
STOP

BIN
sources/LOADUP-FULL.LCOM
View File

Binary file not shown.

127
sources/LOADUP-LISP
View File

@@ -1,127 +0,0 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
(FILECREATED "31-Jul-2023 18:22:53" |{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;2| 5235
:CHANGES-TO (FNS LOADUP-LISP)
:PREVIOUS-DATE "27-Feb-2023 17:15:53"
|{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;1|)
(PRETTYCOMPRINT LOADUP-LISPCOMS)
(RPAQQ LOADUP-LISPCOMS ((FNS LOADUP-LISP)
(INITVARS (FILING.ENUMERATION.DEPTH 1))
(FILES MEDLEYDIR)
(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS
USERRECLST)))
(DEFINEQ
(LOADUP-LISP
(LAMBDA (DRIBBLEFILE) (* \; "Edited 26-Feb-2023 12:17 by lmm")
(* \; "Edited 13-Jul-2022 14:09 by rmk")
(* \; "Edited 4-Mar-2022 19:13 by larry")
(* \; "Edited 29-Apr-2021 22:30 by rmk:")
(SETQQ COMPILE.EXT LCOM)
(MEDLEY-INIT-VARS) (* \; "should be set earlier")
(DRIBBLE DRIBBLEFILE)
(FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
(PRINTOUT T X " bootloaded" T)
(SETQ SYSFILES (CONS X SYSFILES))))
(SETQ BOOTLOADEDFILES NIL)
(IF (NOT (BOUNDP 'DIRECTORIES))
THEN (SETQ DIRECTORIES LOADUPDIRECTORIES))
(* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")
(LOADUP '(ACODE MACHINEINDEPENDENT))
(* |;;| "establish all package exports early")
(LOADUP '(LISP-PACKAGE FASL-PACKAGE D-ASSEM-PACKAGE COMPILER-PACKAGE))
(* |;;| "load FASL loader here, so we can load DFASLs earlier in loadup")
(LOADUP '(ERROR-RUNTIME CMLARITH CONDITION-HIERARCHY CMLHASH D-ASSEM FASLOAD))
(* |;;| "These are needed by any FASL files")
(LOADUP '(DEFFER-RUNTIME CMLPRINT CLSTREAMS CMLSTRING CMLSYMBOL CMLTYPES CMLSEQCOMMON
CMLSEQMAPPERS CMLPATHNAME CMLFILESYS))
(* |;;;| "* 'FASL files may be loaded after this point' * * *")
(LOADUP '(CMLDEFFER ERROR-RUNTIME-AFTER-FASL WRAPPERS))
(* |;;| "early runtime support for Common Lisp and (temporarily) debugger")
(LOADUP '(STACKFNS CMLMVS MACROS MACROAUX UNWINDMACROS))
(LOADUP '(COMMON XCLC-RUNTIME CMLTYPES CL-ERROR))
(LOADUP '(AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN LOADFNS
DMISC DIRECTORY SPELLFILE FILEPKG RESOURCE))
(* |;;| "needed for makesys")
(* |;;| "The Byte Compiler (DLAP, BYTECOMPILER, COMPILER) used to be here. Moved after XCL Compiler so that one byte compiler init will work. JDS 10/11/89")
(LOADUP '(HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD))
(LOADUP '(GAINSPACE COROUTINE ARGLIST ASKUSER SYSPRETTY COMMON COMPARE))
(DWIM 'C)
(* |;;| "Kernel Common Lisp files")
(LOADUP '(CMLSTEP CMLDOC CMLPARSE CMLSETF CMLPRED CMLREAD WALKER CMLSEQFINDER CMLSEQMODIFY
CMLSORT DEFSTRUCT CMLMISCIO CMLCOMPILE CMLDESTRUCT CL-ERROR CMLFORMAT
CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES))
(LOADUP '(PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT))
(LOADUP '(ADDARITH))
(LOADUP '(UNICODE CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW
WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE
CMLARRAYINSPECTOR EDITINTERFACE TTYIN))
(LOADUP '(BREAK-AND-TRACE))
(LOADUP '(FASDUMP XCL-COMPILER ADVISE))
(* |;;| "the bytecompiler and Interlisp compiler interface functions")
(LOADUP '(DLAP BYTECOMPILER COMPILE))
(LOADUP '(DSK UFS UFSCALLC MAIKOBITBLT))
(LOADUP '(TIME))
(LOADUP '(BRKDWN))
(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")
(LOADUP '(CMLSMARTARGS))
(LOADUP '(IMPLICIT-KEY-HASH CLOSURE-CACHE))
(* |;;| " not sure what this depends on, so putting it here")
(LOADUP '(BIGBITMAPS))
(* |;;| "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)
(SETQ MAKESYSNAME :MEDLEY)))
)
(RPAQ? FILING.ENUMERATION.DEPTH 1)
(FILESLOAD MEDLEYDIR)
(DECLARE\: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
)
(DECLARE\: DONTCOPY
(FILEMAP (NIL (649 5029 (LOADUP-LISP 659 . 5027)))))
STOP

BIN
sources/LOADUP-LISP.LCOM
View File

Binary file not shown.

1074
sources/MAKEINIT
View File

File diff suppressed because it is too large Load Diff

BIN
sources/MAKEINIT.LCOM
View File

Binary file not shown.