loadup cleanups (#306)
This commit is contained in:
Larry Masinter
GitHub
@@ -1 +0,0 @@
|
||||
//////////////////////////////////////////////////////////////////////////
|
||||
@@ -1 +0,0 @@
|
||||
(RESETVARS
|
||||
@@ -1 +0,0 @@
|
||||
//////////////////////////////////////////////////////////////////////////
|
||||
@@ -1 +0,0 @@
|
||||
// IF YOU EDIT THIS FILE, BE SURE TO EDIT LOADFULLFROMDLINIT.CM
|
||||
@@ -1 +0,0 @@
|
||||
// LoadFullFromLisp.cm Edited 24-Feb-87 19:10:47 -- van Melle --
|
||||
@@ -1 +0,0 @@
|
||||
ftp ERIS Directory/C LispCore>SOURCES Retrieve/<>A LOADFULLSLOW.CM LoadInitSlow.cm LoadFullFromDLInitSlow.cm
|
||||
@@ -1 +0,0 @@
|
||||
//////////////////////////////////////////////////////////////////////////
|
||||
@@ -1 +0,0 @@
|
||||
// LoadInitSlow.cm edited: November 3, 1987 by vanMelle
|
||||
@@ -1,53 +0,0 @@
|
||||
(SETQQ COMPILE.EXT LCOM)
|
||||
(SETQ SYSFILES (UNION BOOTLOADEDFILES SYSFILES))
|
||||
(SETQ BOOTLOADEDFILES)
|
||||
(* ;; "following files are really loaded earlier, this call to LOADUP just cleans up")
|
||||
(LOADUP (QUOTE (ACODE MACHINEINDEPENDENT POSTLOADUP)))
|
||||
(* ;; "establish all package exports early")
|
||||
(LOADUP (QUOTE (LISP-PACKAGE FASL-PACKAGE D-ASSEM-PACKAGE COMPILER-PACKAGE)))
|
||||
(* ;; "load FASL loader here, so we can load DFASLs earlier in loadup")
|
||||
(LOADUP (QUOTE (ERROR-RUNTIME CMLARITH CONDITION-HIERARCHY CMLHASH D-ASSEM FASLOAD)))
|
||||
(* ;; "These are needed by any FASL files")
|
||||
(LOADUP (QUOTE (DEFFER-RUNTIME CMLPRINT CLSTREAMS CMLSTRING CMLSYMBOL CMLTYPES CMLSEQCOMMON CMLSEQMAPPERS CMLPATHNAME CMLFILESYS)))
|
||||
(* ;;; "* 'FASL files may be loaded after this point' * * *")
|
||||
(LOADUP (QUOTE (CMLDEFFER ERROR-RUNTIME-AFTER-FASL WRAPPERS)))
|
||||
(* ;; "early runtime support for Common Lisp and (temporarily) debugger")
|
||||
(LOADUP (QUOTE (STACKFNS CMLMVS MACROS MACROAUX UNWINDMACROS)))
|
||||
(LOADUP (QUOTE (COMMON XCLC-RUNTIME CMLTYPES CL-ERROR)))
|
||||
(LOADUP (QUOTE (AFONT EDIT WEDIT PRETTY DSPRINTDEF NEWPRINTDEF FONTPROFILE SPELLFILE PRINTFN LOADFNS
|
||||
DMISC DIRECTORY SPELLFILE FILEPKG RESOURCE)))
|
||||
(* ;; "needed for makesys")
|
||||
(LOADUP (QUOTE (MOD44IO)))
|
||||
(* ;;
|
||||
"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 (QUOTE (HIST UNDO SPELL DWIM WTFIX CLISP DWIMIFY CLISPIFY RECORD)))
|
||||
(LOADUP (QUOTE (GAINSPACE COROUTINE ARGLIST ASKUSER SYSPRETTY COMMON COMPARE)))
|
||||
(DWIM (QUOTE C))
|
||||
(* ;; "Kernel Common Lisp files")
|
||||
(LOADUP (QUOTE (CMLSTEP CMLDOC CMLPARSE CMLSETF CMLPRED CMLREAD WALKER CMLSEQFINDER CMLSEQMODIFY CMLSORT DEFSTRUCT CMLMISCIO CMLCOMPILE CMLDESTRUCT CL-ERROR CMLFORMAT CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES)))
|
||||
(LOADUP (QUOTE (PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT)))
|
||||
(LOADUP (QUOTE (ADDARITH)))
|
||||
(LOADUP (QUOTE (CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE CMLARRAYINSPECTOR EDITINTERFACE TTYIN)))
|
||||
(LOADUP (QUOTE (BREAK-AND-TRACE)))
|
||||
(LOADUP (QUOTE (FASDUMP XCL-COMPILER ADVISE)))
|
||||
(* ;; "the bytecompiler and Interlisp compiler interface functions")
|
||||
(LOADUP (QUOTE (DLAP BYTECOMPILER COMPILE)))
|
||||
(LOADUP (QUOTE (HARDCOPY LOGOW IDLER ICONW FREEMENU SEDIT)))
|
||||
(CLOSEW (LOGOW)) (MOVD 'NILL 'LOGOW)
|
||||
(LOADUP (QUOTE (DSK UFS UFSCALLC MAIKOBITBLT)))
|
||||
(LOADUP (QUOTE (TIME)))
|
||||
(LOADUP (QUOTE (XCL-EXTRAS)))
|
||||
(* "CMLPACKAGE pushes onto INSPECTMACROS")
|
||||
(LOADUP (QUOTE (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 (QUOTE (CMLSMARTARGS)))
|
||||
(LOADUP (QUOTE (IMPLICIT-KEY-HASH CLOSURE-CACHE)))
|
||||
(* ;; "Already enabled, but this time fixes tables that weren't defined in the init")
|
||||
(PACKAGE-ENABLE)
|
||||
(* ;; "Additional stuff that should be folded into original definitions")
|
||||
(LOADUP (QUOTE (LOADUP-LISP)))
|
||||
STOP
|
||||
|
||||
150
sources/subrs.h
150
sources/subrs.h
@@ -1,150 +0,0 @@
|
||||
/* This file written from LLSUBRS on 17-Mar-2021 11:14:28 */
|
||||
/* Do not edit this file! Instead, edit the list \initsubrs */
|
||||
/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to */
|
||||
/* generate a new version. */
|
||||
#ifndef SUBRS_H
|
||||
#define SUBRS_H 1
|
||||
#define sb_YIELD 0322
|
||||
#define sb_BACKGROUNDSUBR 06
|
||||
#define sb_CHECKBCPLPASSWORD 07
|
||||
#define sb_DISKPARTITION 010
|
||||
#define sb_DSPBOUT 011
|
||||
#define sb_DSPRATE 012
|
||||
#define sb_GATHERSTATS 013
|
||||
#define sb_GETPACKETBUFFER 014
|
||||
#define sb_LISPFINISH 015
|
||||
#define sb_MOREVMEMFILE 016
|
||||
#define sb_RAID 017
|
||||
#define sb_READRAWPBI 020
|
||||
#define sb_WRITERAWPBI 021
|
||||
#define sb_SETSCREENCOLOR 022
|
||||
#define sb_SHOWDISPLAY 023
|
||||
#define sb_PUPLEVEL1STATE 024
|
||||
#define sb_WRITESTATS 025
|
||||
#define sb_CONTEXTSWITCH 026
|
||||
#define sb_COPYSYS0SUBR 027
|
||||
#define sb_WRITEMAP 030
|
||||
#define sb_UFS_GETFILENAME 042
|
||||
#define sb_UFS_DELETEFILE 043
|
||||
#define sb_UFS_RENAMEFILE 044
|
||||
#define sb_COM_READPAGES 045
|
||||
#define sb_COM_WRITEPAGES 046
|
||||
#define sb_COM_TRUNCATEFILE 047
|
||||
#define sb_UFS_DIRECTORYNAMEP 051
|
||||
#define sb_COM_GETFREEBLOCK 055
|
||||
#define sb_SETUNIXTIME 060
|
||||
#define sb_GETUNIXTIME 061
|
||||
#define sb_COPYTIMESTATS 062
|
||||
#define sb_UNIX_USERNAME 063
|
||||
#define sb_UNIX_FULLNAME 064
|
||||
#define sb_UNIX_GETENV 065
|
||||
#define sb_UNIX_GETPARM 066
|
||||
#define sb_CHECK_SUM 067
|
||||
#define sb_ETHER_SUSPEND 070
|
||||
#define sb_ETHER_RESUME 071
|
||||
#define sb_ETHER_AVAILABLE 072
|
||||
#define sb_ETHER_RESET 073
|
||||
#define sb_ETHER_GET 074
|
||||
#define sb_ETHER_SEND 075
|
||||
#define sb_ETHER_SETFILTER 076
|
||||
#define sb_ETHER_CHECK 077
|
||||
#define sb_DSPCURSOR 0100
|
||||
#define sb_SETMOUSEXY 0101
|
||||
#define sb_DSP_VIDEOCOLOR 0102
|
||||
#define sb_DSP_SCREENWIDTH 0103
|
||||
#define sb_DSP_SCREENHEIGHT 0104
|
||||
#define sb_BITBLTSUB 0105
|
||||
#define sb_BLTCHAR 0106
|
||||
#define sb_TEDIT_BLTCHAR 0107
|
||||
#define sb_BITBLT_BITMAP 0110
|
||||
#define sb_BLTSHADE_BITMAP 0111
|
||||
#define sb_RS232C_CMD 0112
|
||||
#define sb_RS232C_READ_INIT 0113
|
||||
#define sb_RS232C_WRITE 0114
|
||||
#define sb_KEYBOARDBEEP 0120
|
||||
#define sb_KEYBOARDMAP 0121
|
||||
#define sb_KEYBOARDSTATE 0122
|
||||
#define sb_VMEMSAVE 0131
|
||||
#define sb_LISP_FINISH 0132
|
||||
#define sb_NEWPAGE 0133
|
||||
#define sb_DORECLAIM 0134
|
||||
#define sb_DUMMY_135Q 0135
|
||||
#define sb_NATIVE_MEMORY_REFERENCE 0136
|
||||
#define sb_OLD_COMPILE_LOAD_NATIVE 0137
|
||||
#define sb_DISABLEGC 0140
|
||||
#define sb_COM_SETFILEINFO 0147
|
||||
#define sb_COM_OPENFILE 0150
|
||||
#define sb_COM_CLOSEFILE 0151
|
||||
#define sb_DSK_GETFILENAME 0152
|
||||
#define sb_DSK_DELETEFILE 0153
|
||||
#define sb_DSK_RENAMEFILE 0154
|
||||
#define sb_COM_NEXT_FILE 0156
|
||||
#define sb_COM_FINISH_FINFO 0157
|
||||
#define sb_COM_GEN_FILES 0160
|
||||
#define sb_DSK_DIRECTORYNAMEP 0161
|
||||
#define sb_COM_GETFILEINFO 0162
|
||||
#define sb_COM_CHANGEDIR 0164
|
||||
#define sb_UNIX_HANDLECOMM 0165
|
||||
#define sb_RPC_CALL 0167
|
||||
#define sb_MESSAGE_READP 0170
|
||||
#define sb_MESSAGE_READ 0171
|
||||
#define sb_MONITOR_CONTROL 0200
|
||||
#define sb_GET_NATIVE_ADDR_FROM_LISP_PTR 0203
|
||||
#define sb_GET_LISP_PTR_FROM_NATIVE_ADDR 0204
|
||||
#define sb_LOAD_NATIVE_FILE 0205
|
||||
#define sb_SUSPEND_LISP 0206
|
||||
#define sb_NEW_BLTCHAR 0207
|
||||
#define sb_COLOR_INIT 0210
|
||||
#define sb_COLOR_SCREENMODE 0211
|
||||
#define sb_COLOR_MAP 0212
|
||||
#define sb_COLOR_BASE 0213
|
||||
#define sb_C_SlowBltChar 0214
|
||||
#define sb_UNCOLORIZE_BITMAP 0215
|
||||
#define sb_COLORIZE_BITMAP 0216
|
||||
#define sb_COLOR_8BPPDRAWLINE 0217
|
||||
#define sb_TCP_OP 0220
|
||||
#define sb_WITH_SYMBOL 0221
|
||||
#define sb_CAUSE_INTERRUPT 0222
|
||||
#define sb_OPEN_SOCKET 0240
|
||||
#define sb_CLOSE_SOCKET 0241
|
||||
#define sb_READ_SOCKET 0242
|
||||
#define sb_WRITE_SOCKET 0243
|
||||
#define sb_CALL_C_FUNCTION 0247
|
||||
#define sb_DLD_LINK 0250
|
||||
#define sb_DLD_UNLINK_BY_FILE 0251
|
||||
#define sb_DLD_UNLINK_BY_SYMBOL 0252
|
||||
#define sb_DLD_GET_SYMBOL 0253
|
||||
#define sb_DLD_GET_FUNC 0254
|
||||
#define sb_DLD_FUNCTION_EXECUTABLE_P 0255
|
||||
#define sb_DLD_LIST_UNDEFINED_SYMBOLS 0256
|
||||
#define sb_C_MALLOC 0257
|
||||
#define sb_C_FREE 0260
|
||||
#define sb_C_PUTBASEBYTE 0261
|
||||
#define sb_C_GETBASEBYTE 0262
|
||||
#define sb_CHAR_OPENFILE 0310
|
||||
#define sb_CHAR_BIN 0311
|
||||
#define sb_CHAR_BOUT 0312
|
||||
#define sb_CHAR_IOCTL 0313
|
||||
#define sb_CHAR_CLOSEFILE 0314
|
||||
#define sb_CHAR_EOFP 0315
|
||||
#define sb_CHAR_READP 0316
|
||||
#define sb_CHAR_BINS 0317
|
||||
#define sb_CHAR_BOUTS 0320
|
||||
#define sb_CHAR_FILLBUFFER 0321
|
||||
/* MISCN opcodes */
|
||||
#define miscn_USER_SUBR 00
|
||||
#define miscn_VALUES 01
|
||||
#define miscn_SXHASH 02
|
||||
#define miscn_EQLHASHBITSFN 03
|
||||
#define miscn_STRINGHASHBITS 04
|
||||
#define miscn_STRING_EQUAL_HASHBITS 05
|
||||
#define miscn_VALUES_LIST 06
|
||||
#define miscn_LCFetchMethod 07
|
||||
#define miscn_LCFetchMethodOrHelp 010
|
||||
#define miscn_LCFindVarIndex 011
|
||||
#define miscn_LCGetIVValue 012
|
||||
#define miscn_LCPutIVValue 013
|
||||
/* Assigned USER SUBR numbers */
|
||||
#define user_subr_DUMMY 012
|
||||
#define user_subr_SAMPLE_USER_SUBR 00
|
||||
#endif
|
||||
Reference in New Issue
Block a user