1 line
2.9 KiB
Plaintext
1 line
2.9 KiB
Plaintext
//////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// L O A D I N I T . C M
|
|
//
|
|
// (C) Copyright 1990, Venue & Fuji Xerox, Ltd.
|
|
// All Rights Reserved.
|
|
//
|
|
// Make the INIT.DLINIT starting sysout for a new loadup.
|
|
//
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// IF YOU EDIT THIS FILE, EDIT LOADINITSLOW.CM TOO!!!!
|
|
|
|
// Edit November 3, 1987 by vanMelle, note comment ^^
|
|
|
|
// The path given to the Lisp command below should point to the LispCore sysout cache.
|
|
// Code that runs after Lisp starts up assures that the cached sysout
|
|
// is the most recent, and if not, fetches a new one and restarts itself.
|
|
// Edited so that the most recent patch file is loaded
|
|
// Updated Lisp version for big physical memory --bvm 11/3/87
|
|
|
|
Delete INIT.DFASL!* INIT.SAVE* // otherwise Lisp might read INIT.LISP!2
|
|
Copy INIT.SAVE _ INIT.DFASL // save away site file to be restored below
|
|
|
|
FTP/-E ERINYES Login/C Directory/C LispCore>Next Ret/<>A Lisp.run DoradoLispMc.eb Ret/S <Lisp>Current>Init-NOGREET Init.DFASL
|
|
|
|
Lisp {DSK7}LispCore.Sysout;"
|
|
(XCL:RESTORE-PROFILE \"INTERLISP\")
|
|
(DELFILE '{DSK}INIT.DFASL)
|
|
(AND (INFILEP '{DSK}INIT.SAVE) (RENAMEFILE '{DSK}INIT.SAVE '{DSK}INIT.DFASL))
|
|
(DIRECTORY '{DSK6}INIT.DLINIT;* '(DELETE))
|
|
(* Make sure we have a valid sysout)
|
|
(LET
|
|
((DATE (CAR (NLSETQ (GETFILEINFO '{Pele:mv:envos}<LispCore>Saved>FULL.SYSOUT 'ICREATIONDATE)))))
|
|
(IF (AND DATE (IGREATERP DATE (GETFILEINFO '{DSK7}LispCore.Sysout;1 'ICREATIONDATE)))
|
|
THEN (* Get new saved sysout)
|
|
(NLSETQ (PROGN
|
|
(COPYFILE '{Pele:mv:envos}<LispCore>Saved>FULL.SYSOUT '{DSK7}LispCore.Sysout;1)
|
|
(COPYFILE '{DSK}REM.CM;1 '{CORE}REM.CM) (* Repeat current command now)
|
|
(OUTFILE '{DSK}REM.CM;1)
|
|
(PRIN1 '@LoadInit.cm@)
|
|
(COPYBYTES (OPENSTREAM '{CORE}REM.CM 'INPUT))
|
|
(CLOSEF)
|
|
(LOGOUT T]
|
|
(PROGN (* Make old sysout work with new read tables)
|
|
(SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM FILERDTBL)
|
|
(SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM CODERDTBL)
|
|
(SETSYNTAX (CHARCODE ^^) 'PACKAGEDELIM \\ORIGREADTABLE))
|
|
(LOAD \"{Pele:mv:envos}<LISPCORE>NEXT>LOAD-LISPCORE-PATCH\")
|
|
CONN \"{pele:mv:envos}<LispCore>SOURCES>\"
|
|
(SETQ DIRECTORIES '(\"{Pele:MV:Envos}<LISPCORE>SOURCES>\"
|
|
\"{Pele:MV:Envos}<LISPCORE>LIBRARY>\" \"{Pele:MV:Envos}<LISPCORE>INTERNAL>LIBRARY>\"))
|
|
(SETQ LITATOM-PACKAGE-CONVERSION-ENABLED NIL)
|
|
(SETQ *REMOVE-INTERLISP-COMMENTS* NIL)
|
|
(* Get new exports since last loadup)
|
|
(LOAD 'CONDITION-PACKAGE.LCOM 'SYSLOAD)
|
|
(LOAD 'XCL-PACKAGE.LCOM 'SYSLOAD)
|
|
(* FILESETS has where to get things from)
|
|
(LOAD 'FILESETS)
|
|
(FILESLOAD RENAMEFNS MAKEINIT DLFIXINIT CMLARRAY-SUPPORT)
|
|
(* Versions are Lisp Microcode Bcpl)
|
|
(PROGN
|
|
(CNDIR '{CORE})
|
|
(IDLE.SET.OPTION 'TIMEOUT 0)
|
|
(IDLE.SET.OPTION 'SAVEVM 0)
|
|
(DORENAME 'I)
|
|
(DLFIXINIT
|
|
(MAKEINIT '(115000Q 13062Q 25400Q)
|
|
NIL NIL
|
|
'(\"{Pele:MV:Envos}<LISPCORE>SOURCES>\" \"{Pele:MV:Envos}<LISPCORE>INTERNAL>LIBRARY>\" \"{Pele:MV:Envos}<LISPCORE>LIBRARY>\"))
|
|
'{DSK6}INIT.DLINIT
|
|
\"{Pele:MV:Envos}<LISPCORE>NEXT>LispDLion.db\"
|
|
300)
|
|
(LOGOUT T]]
|
|
"
|
|
|