Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/mkdump.elib
There are no other files named mkdump.elib in the archive.
PW[0 +8+fq(+4)[1
fq1"l 0'
'	& Make Impure MKDUMP Copies& SetUp MKDUMP Library<ENTRY>Dump EMACSMkDump Load Library!Prepare for Loading Libraries~DIRECTORY~%~DOC~ & Make Impure MKDUMP Copies ~DOC~ & SetUp MKDUMP Library~DOC~ <ENTRY>~DOC~ Dump EMACS~DOC~ MkDump Load Library'~DOC~ Prepare for Loading Libraries~DOC~ ~FILENAME~~FILENAME~
MKDUMP':m(m.m& Make Impure MKDUMP Copies)E:g(m.mLoad Library) m.vMM Load Libraryw
 :g(m.m~DOC~ Load Library) m.vMM ~DOC~ Load Libraryw
 :g(m.mDump EMACS) m.vMM Dump EMACSw
 :g(m.m~DOC~ Dump EMACS) m.vMM ~DOC~ Dump EMACSw
fo..qMKDUMP Loaded-13154153006"n
0m.CDumped EMACS Name* If non-0, is filename to dump to
0m.CDumped EMACS Default Filename* If non-0, is default filename for dumped EMACS when it starts
0m.CDumped EMACS Quick Start?* If non-0, we dump out a quick-starting EMACS
0m.CDumped EMACS Startup HookIf non-0, will be called at dump startup time
0m.CDumped EMACS fsTTYMacroContains the fsTTYMacro to restore after libraries are loaded
13154153006m.vMKDUMP Loaded'
m.mLoad Libraryu1
m.mMkDump Load Library m.vMM Load Libraryw
m(m.m& Make Impure MKDUMP Copies)
f=MM Load Library1"n
q1m.vMM Pre-MkDump Load Libraryw'
0fo..qMM Pre-MkDump Load Library"e
m(m.m& Get Library Pointer)EMACS(
)m.mLoad Librarym.vMM Pre-MkDump Load Libraryw''

etDSK: fsHSNamefsDSNamew
qDumped EMACS Namef"nfsDFile'
"#w fsOSTecof"ew etTS DEMACS'
"#-1"e etDEMACS.EXE'
"# etDEMACS.SAV'''w
qEditor Nameu.1
1,m.m& StartUp .1"e
@:i*|m.m& Recursive ^R Set Modef[^REnter

:m..l | m.vMM & StartUp .1w
fsClkIntf"Ew 5*3600'fsClkIntw
qDumped EMACS fsTTYMacrof(fsTTYMacrow
)"n m(fsTTYMacro)'
qDumped EMACS Startup Hook"n
mDumped EMACS Startup Hook'|
((ff"'n)&("'n))(qDumped EMACS Quick Start?)"n
Creating a quick-starting EMACS, no JCL.
etDSK: fsMSNamefsDSNamew !<! etFOO >
0fo..qDumped EMACS Default Filenamef"nfsDFilew'
fs^RExit |m.v*Initialization*w'
Creating a default-init EMACS.
fsOSTeco"e er* EMACS'"# erEMACS.INIT' @y
fs^RExit |m.v*Initialization*w''
1,m(m.m& Get Library Pointer)PURIFY"e
m(m.mKill Variable)PURIFY Library Filenamew'
0fsTTYMacrouDumped EMACS fsTTYMacro
0fo..qCache Enabled"N 1:<m(m.mPurge Cache)>w'
0u0 < q0*5-fq.b; q:.b(q0+4)[..O 1f? ]..O q:.b(q0)+q0u0 >
q.b[..O 1f? ]..O
q..q[..O 1f? ]..O
q..L( q..P(
1,m.mDump Environment"E
m(m.mDump Environment)
)u..P )u..L
qDumped EMACS fsTTYMacro fsTTYMacrow
fsDFile u.1
Dumped .1
fsOSTeco"E fsDFn2:f6'"# fsDFn1'u.1
0u.1 0u.2 0u.3
0)1,(f):m(m.mPre-MkDump Load Library)gDumped EMACS environments made easy.
Bugs/features to BUG-EMACS@MIT-AI.  Maintained by ECC@MIT-MC.\C Comes first in an init file.
The only preparation necessary to use MKDUMP is to insert the
following line into your init file, at the top before any library
loading (note that there are TWO Altmodes at the end of the line):

MM Run LibraryMKDUMP

Or if you have an EVARS file, insert this line into it, at the top:

*: MM Run LibraryMKDUMP

This will prepare EMACS for later dumping by causing M-X Load
Library to start remembering exactly where it finds the libraries
it loads.

To make a dumped EMACS job, first start up EMACS the normal way:

	:EMACS<cr>				(on ITS)
	EMACS<cr>				(on Tenex or Tops-20)

Then type:

	M-X Dump EMACS<cr>

This will write the dump to the file TS DEMACS (on ITS), DEMACS.EXE
(on Tops-20), or DEMACS.SAV (on Tenex) in your home directory.

The next time you want to run EMACS, you can run the dump:

	:DEMACS<cr>				(on ITS)
	DEMACS<cr>				(on Tenex or Tops-20)

For more detailed information, see the INFO node.+S Make Load Library and its doc impure.;S Install our little hook (hack?).
Hack Load Library so that it always maintains the
filename variables required for dumping.
This object file was compressed on 6:40pm  Friday, 5 April 1996
by ALDERSON on from the following source libraries:

   DXX:<EMACS>MKDUMP.EMACS.56,	04/05/96 18:24:12WC Dump this EMACS out to file given by string argument.

Default is home directory, TS DEMACS on ITS, DEMACS.EXE on TWENEX,
DEMACS.SAV on TENEX.  The dump, when started, will call the default
init-file (e.g. to do JCL processing) unless this command is invoked
with a numeric argument.  For more information, see the documentation
for & Setup MKDUMP Library, or the INFO node.

Should probably only be called from top-level -mode, as it is
somewhat sensitive to what has been pushed onto the PDL.

This clobbers q-registers .1, .2, and .3 for necessary reasons -- do
not push them.WC Load a library of functions.
Takes filename as string arg;  default FN2 is ELIB.
Tries both the specified (or home) directory and EMACS.
An argument means don't run the library's & Setup function.
Creates a variable with the library's real filename, so this EMACS may
    later be dumped out.
Returns a pointer to the file in core.Prepare for Loading Libraries
& Make Impure MKDUMP Copies
& SetUp MKDUMP Library
MkDump Load Library
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2