Compare commits
10 Commits
nightly-21
...
merge-ron-
| Author | SHA1 | Date | |
|---|---|---|---|
|
4fac4e3e96 | ||
|
966b837351 | ||
|
|
dac0acd0d5 | ||
|
|
105b0d1f3a | ||
|
|
10e3916e7e | ||
|
|
2cf33cebcf | ||
|
|
d40aeffdc7 | ||
|
|
6f9cafc578 | ||
|
|
a781751832 | ||
|
|
d5b26c1352 |
@@ -1,6 +1,5 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
(FILECREATED "29-Apr-2021 09:48:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;19
|
||||
)
|
||||
(FILECREATED " 6-May-2021 15:26:36" {DSK}<home>larry>ilisp>medley>tmp>RDSYS.;1)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT RDSYSCOMS)
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,13 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
(FILECREATED "12-Jun-90 15:31:15" {DSK}<usr>local>lde>lispcore>library>SYSEDIT.;2 1411
|
||||
(FILECREATED " 6-May-2021 16:22:01" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;6 1312
|
||||
|
||||
changes to%: (VARS SYSEDITCOMS)
|
||||
|
||||
previous date%: " 9-Mar-87 10:53:12" {DSK}<usr>local>lde>lispcore>library>SYSEDIT.;1)
|
||||
previous date%: "12-Jun-90 15:31:15" {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT SYSEDITCOMS)
|
||||
@@ -15,7 +15,6 @@ Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation. All rights reserve
|
||||
(RPAQQ SYSEDITCOMS
|
||||
[(VARS (CLISPIFYPRETTYFLG)
|
||||
(MSRECORDTRANFLG T)
|
||||
(MSMACROPROPS COMPILERMACROPROPS)
|
||||
(RECOMPILEDEFAULT 'CHANGES)
|
||||
(CLEANUPOPTIONS '(RC F))
|
||||
(GLOBALVARFLG T)
|
||||
@@ -30,8 +29,6 @@ Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation. All rights reserve
|
||||
|
||||
(RPAQQ MSRECORDTRANFLG T)
|
||||
|
||||
(RPAQ MSMACROPROPS COMPILERMACROPROPS)
|
||||
|
||||
(RPAQQ RECOMPILEDEFAULT CHANGES)
|
||||
|
||||
(RPAQQ CLEANUPOPTIONS (RC F))
|
||||
@@ -46,7 +43,7 @@ Copyright (c) 1984, 1987, 1990 by Venue & Xerox Corporation. All rights reserve
|
||||
(DIRECTORIES DIRECTORIES))
|
||||
(FILESLOAD (SOURCE)
|
||||
EXPORTS.ALL))
|
||||
(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990))
|
||||
(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL)))
|
||||
STOP
|
||||
|
||||
3931
library/exports.all
3931
library/exports.all
File diff suppressed because it is too large
Load Diff
File diff suppressed because one or more lines are too long
30888
loadups/full.database
Normal file
30888
loadups/full.database
Normal file
File diff suppressed because it is too large
Load Diff
@@ -1,10 +1,10 @@
|
||||
|
||||
Full loadup started at 30-Apr-2021 14:49:55 while connected to
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>
|
||||
Full loadup started at 6-May-2021 15:26:50 while connected to
|
||||
{DSK}<home>larry>ilisp>medley>
|
||||
|
||||
loading POSTSCRIPTSTREAM
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1
|
||||
compiled on 14-May-2018 10:53:32
|
||||
File created 14-May-2018 10:52:48
|
||||
POSTSCRIPTSTREAMCOMS
|
||||
@@ -16,147 +16,147 @@ Loading FULL fonts...
|
||||
FULL fonts loaded
|
||||
loading CHAT
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>CHAT.LCOM;1
|
||||
compiled on 25-Oct-93 12:23:25
|
||||
File created 20-Jan-93 13:46:52
|
||||
CHATCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>DMCHAT.LCOM;1
|
||||
compiled on 25-Feb-93 18:08:53
|
||||
File created 20-Jan-93 13:49:09
|
||||
DMCHATCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>CHATTERMINAL.LCOM;1
|
||||
compiled on 24-Feb-93 19:37:23
|
||||
File created 4-Jul-90 02:21:01
|
||||
CHATTERMINALCOMS
|
||||
loading PRESS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>PRESS.LCOM;1
|
||||
compiled on 5-Feb-2021 22:18:09
|
||||
File created 5-Feb-2021 22:18:06
|
||||
PRESSCOMS
|
||||
loading INTERPRESS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.LCOM;6
|
||||
{DSK}<home>larry>ilisp>medley>sources>INTERPRESS.LCOM;7
|
||||
compiled on 16-Apr-2018 21:56:38
|
||||
File created 16-Apr-2018 21:56:38
|
||||
INTERPRESSCOMS
|
||||
loading TEDIT
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDIT.LCOM;1
|
||||
compiled on 18-May-2018 09:16:24
|
||||
File created 19-Apr-2018 12:22:03
|
||||
TEDITCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITDCL.LCOM;1
|
||||
compiled on 18-May-2018 09:17:04
|
||||
File created 25-Aug-94 10:53:00
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITDCL.LCOM;1
|
||||
compiled on 30-Apr-2021 17:26:58
|
||||
File created 30-Apr-2021 17:26:17
|
||||
TEDITDCLCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>PCTREE.LCOM;1
|
||||
compiled on 18-May-2018 09:19:35
|
||||
File created 19-Apr-2018 12:19:49
|
||||
PCTREECOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEXTOFD.LCOM;1
|
||||
compiled on 11-Feb-2001 12:06:43
|
||||
File created 11-Feb-2001 12:06:42
|
||||
TEXTOFDCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1
|
||||
compiled on 18-May-2018 09:16:59
|
||||
File created 20-Apr-2018 08:07:35
|
||||
TEDITCOMMANDCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;4
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITSCREEN.LCOM;1
|
||||
compiled on 30-Apr-2021 14:42:15
|
||||
File created 30-Apr-2021 14:42:15
|
||||
TEDITSCREENCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITABBREV.LCOM;1
|
||||
compiled on 6-Aug-2020 14:52:14
|
||||
File created 6-Aug-2020 14:52:14
|
||||
TEDITABBREVCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITLOOKS.LCOM;1
|
||||
compiled on 18-May-2018 09:17:44
|
||||
File created 29-Jan-99 17:33:35
|
||||
TEDITLOOKSCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITFIND.LCOM;1
|
||||
compiled on 18-May-2018 09:17:21
|
||||
File created 6-May-2018 17:34:44
|
||||
TEDITFINDCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITHISTORY.LCOM;1
|
||||
compiled on 18-May-2018 09:17:41
|
||||
File created 29-Jan-99 17:34:39
|
||||
TEDITHISTORYCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;5
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITFILE.LCOM;1
|
||||
compiled on 30-Apr-2021 14:46:41
|
||||
File created 30-Apr-2021 14:46:41
|
||||
TEDITFILECOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITWINDOW.LCOM;1
|
||||
compiled on 18-May-2018 09:18:51
|
||||
File created 21-Jun-99 20:00:42
|
||||
TEDITWINDOWCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITSELECTION.LCOM;1
|
||||
compiled on 18-May-2018 09:18:43
|
||||
File created 25-Aug-94 10:56:07
|
||||
TEDITSELECTIONCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>IMAGEOBJ.LCOM;1
|
||||
compiled on 8-Feb-97 11:26:32
|
||||
File created 7-Dec-95 13:21:56
|
||||
IMAGEOBJCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>EDITBITMAP.LCOM;1
|
||||
compiled on 25-Feb-93 18:10:27
|
||||
File created 11-Jun-90 15:42:25
|
||||
EDITBITMAPCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>READNUMBER.LCOM;1
|
||||
compiled on 16-Aug-95 11:18:52
|
||||
File created 25-May-93 00:28:30
|
||||
READNUMBERCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TFBRAVO.LCOM;1
|
||||
compiled on 19-Apr-2018 12:19:55
|
||||
File created 19-Apr-2018 12:19:55
|
||||
TFBRAVOCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITHCPY.LCOM;1
|
||||
compiled on 18-May-2018 09:17:32
|
||||
File created 25-Aug-94 10:54:07
|
||||
TEDITHCPYCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITPAGE.LCOM;1
|
||||
compiled on 18-May-2018 09:18:32
|
||||
File created 25-Aug-94 10:55:28
|
||||
TEDITPAGECOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;4
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITMENU.LCOM;1
|
||||
compiled on 29-Apr-2021 22:44:22
|
||||
File created 29-Apr-2021 22:44:22
|
||||
TEDITMENUCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1
|
||||
compiled on 18-May-2018 09:17:25
|
||||
File created 6-May-2018 17:15:13
|
||||
TEDITFNKEYSCOMS
|
||||
loading HRULE
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>HRULE.LCOM;1
|
||||
compiled on 26-Feb-93 11:26:19
|
||||
File created 8-Oct-92 16:50:21
|
||||
HRULECOMS
|
||||
loading TEDITCHAT
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>TEDITCHAT.LCOM;1
|
||||
compiled on 18-May-2018 09:16:55
|
||||
File created 28-Mar-94 16:05:24
|
||||
IL:TEDITCHATCOMS
|
||||
@@ -164,121 +164,121 @@ loading READNUMBER
|
||||
loading EDITBITMAP
|
||||
loading FILEBROWSER
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;29
|
||||
{DSK}<home>larry>ilisp>medley>library>FILEBROWSER.LCOM;1
|
||||
compiled on 27-Feb-2021 20:08:26
|
||||
File created 27-Feb-2021 20:08:26
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.LCOM;3
|
||||
{DSK}<home>larry>ilisp>medley>library>TABLEBROWSER.LCOM;1
|
||||
compiled on 20-Feb-2021 23:04:42
|
||||
File created 20-Feb-2021 23:02:39
|
||||
TABLEBROWSERCOMS
|
||||
loading THINFILES
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>lispusers>THINFILES.LCOM;1
|
||||
compiled on 26-Jun-99 00:47:00
|
||||
File created 1-May-92 16:49:39
|
||||
THINFILESCOMS
|
||||
loading GRAPHER
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.LCOM;2
|
||||
{DSK}<home>larry>ilisp>medley>library>GRAPHER.LCOM;1
|
||||
compiled on 14-Mar-2021 20:40:31
|
||||
File created 14-Mar-2021 20:40:30
|
||||
GRAPHERCOMS
|
||||
loading SPY
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>SPY.LCOM;1
|
||||
compiled on 23-Aug-94 16:33:38
|
||||
File created 29-Apr-94 14:13:52
|
||||
SPYCOMS
|
||||
loading WHERE-IS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.DFASL;1
|
||||
{DSK}<home>larry>ilisp>medley>library>WHERE-IS.DFASL;1
|
||||
XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
|
||||
Source file created Wednesday, 13 June 1990, 1:16:15.
|
||||
FASL file created Thursday, 21 January 1993, 18:52:55.
|
||||
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.dfasl;1
|
||||
{DSK}<home>larry>ilisp>medley>library>HASH-FILE.dfasl;1
|
||||
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
|
||||
Source file created Monday, 11 June 1990, 16:16:54.
|
||||
FASL file created Friday, 26 February 1993, 11:23:40.
|
||||
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;4
|
||||
{DSK}<home>larry>ilisp>medley>library>CASH-FILE.DFASL;5
|
||||
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
|
||||
Source file created 11-Jun-90 14:33:44
|
||||
FASL file created Saturday, 19 September 2020, 22:04:31
|
||||
|
||||
loading COPYFILES
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>COPYFILES.LCOM;1
|
||||
compiled on 6-Apr-2018 21:14:29
|
||||
File created 6-Apr-2018 21:14:29
|
||||
COPYFILESCOMS
|
||||
loading MSANALYZE
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.DFASL;1
|
||||
{DSK}<home>larry>ilisp>medley>library>MSANALYZE.DFASL;1
|
||||
XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MSANALYZE.;2
|
||||
Source file created 3-Mar-2021 10:31:16
|
||||
FASL file created Wednesday, 3 March 2021, 10:31:16
|
||||
|
||||
loading MSPARSE
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.DFASL;1
|
||||
{DSK}<home>larry>ilisp>medley>library>MSPARSE.DFASL;1
|
||||
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
|
||||
Source file created Wednesday, 15 August 1990, 13:00:12.
|
||||
FASL file created Sunday, 28 February 1993, 23:24:50.
|
||||
|
||||
loading MASTERSCOPE
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.DFASL;4
|
||||
{DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.DFASL;4
|
||||
XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.;6
|
||||
Source file created 7-Mar-2021 19:39:11
|
||||
FASL file created Sunday, 7 March 2021, 20:20:40
|
||||
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.DFASL;1
|
||||
{DSK}<home>larry>ilisp>medley>library>MSCOMMON.DFASL;1
|
||||
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
|
||||
Source file created Monday, 4 May 1992, 13:19:40.
|
||||
FASL file created Sunday, 28 February 1993, 23:23:14.
|
||||
|
||||
loading UNIXPRINT
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.DFASL;1
|
||||
{DSK}<home>larry>ilisp>medley>library>UNIXPRINT.DFASL;1
|
||||
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
|
||||
Source file created Friday, 4 May 2018, 17:18:00.
|
||||
FASL file created Friday, 4 May 2018, 17:18:00.
|
||||
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>UNIXCOMM.LCOM;1
|
||||
compiled on 25-Apr-2018 07:31:56
|
||||
File created 25-Apr-2018 07:31:56
|
||||
UNIXCOMMCOMS
|
||||
loading UNICODE
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;21
|
||||
{DSK}<home>larry>ilisp>medley>library>UNICODE.LCOM;18
|
||||
compiled on 1-Feb-2021 18:00:30
|
||||
File created 1-Feb-2021 18:00:30
|
||||
UNICODECOMS
|
||||
loading ISO8859IO
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;3
|
||||
{DSK}<home>larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1
|
||||
compiled on 24-Apr-2021 17:06:43
|
||||
File created 24-Apr-2021 17:06:30
|
||||
ISO8859IOCOMS
|
||||
loading HELPSYS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>lispusers>HELPSYS.LCOM;1
|
||||
compiled on 27-Nov-2020 11:23:11
|
||||
File created 27-Nov-2020 09:47:44
|
||||
HELPSYSCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.LCOM;6
|
||||
{DSK}<home>larry>ilisp>medley>lispusers>DINFO.LCOM;1
|
||||
compiled on 14-Feb-2021 23:11:53
|
||||
File created 14-Feb-2021 23:11:36
|
||||
DINFOCOMS
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>HASH.LCOM;1
|
||||
compiled on 26-Feb-93 11:22:10
|
||||
File created 11-Jun-90 16:23:11
|
||||
HASHCOMS
|
||||
@@ -286,25 +286,25 @@ HASHCOMS
|
||||
Reading IRM graph...OK.loading DINFO
|
||||
loading CLIPBOARD
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;9
|
||||
{DSK}<home>larry>ilisp>medley>library>CLIPBOARD.LCOM;1
|
||||
compiled on 23-Feb-2021 22:13:09
|
||||
File created 23-Feb-2021 22:13:09
|
||||
CLIPBOARDCOMS
|
||||
loading MODERNIZE
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.LCOM;14
|
||||
{DSK}<home>larry>ilisp>medley>lispusers>MODERNIZE.LCOM;1
|
||||
compiled on 14-Mar-2021 20:33:34
|
||||
File created 14-Mar-2021 20:33:34
|
||||
MODERNIZECOMS
|
||||
loading PRETTYFILEINDEX
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;2
|
||||
{DSK}<home>larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3
|
||||
compiled on 28-Jun-99 17:13:58
|
||||
File created 28-Jun-99 17:13:51
|
||||
PRETTYFILEINDEXCOMS
|
||||
loading WHO-LINE
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.DFASL;1
|
||||
{DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.DFASL;1
|
||||
XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.;4
|
||||
Source file created 26-Mar-2021 11:01:59
|
||||
FASL file created Friday, 26 March 2021, 11:01:59
|
||||
@@ -312,7 +312,7 @@ FASL file created Friday, 26 March 2021, 11:01:59
|
||||
loading UNIXCOMM
|
||||
loading UNIXCHAT
|
||||
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.LCOM;1
|
||||
{DSK}<home>larry>ilisp>medley>library>UNIXCHAT.LCOM;1
|
||||
compiled on 21-Jan-93 18:45:15
|
||||
File created 15-Aug-90 11:05:53
|
||||
UNIXCHATCOMS
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -9,7 +9,7 @@ fi
|
||||
|
||||
# set timestamp
|
||||
mkdir -p ./tmp
|
||||
touch ./tmp/loadup-timestamp
|
||||
touch ./tmp/loadup.timestamp
|
||||
|
||||
./scripts/loadup-init.sh && \
|
||||
./scripts/loadup-mid-from-init.sh && \
|
||||
|
||||
@@ -14,13 +14,13 @@ scr="-sc 1024x768 -g 1042x790"
|
||||
|
||||
./run-medley -prog ldeinit -greet $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
|
||||
|
||||
if [ tmp/init-mid.sysout -nt tmp/loadup.timestamp ]; then
|
||||
echo
|
||||
|
||||
echo
|
||||
if [ tmp/loadup.timestamp -nt tmp/init-mid.sysout ]; then
|
||||
echo XXXXX FAILURE XXXXX
|
||||
exit 1
|
||||
else
|
||||
echo ---- made ----
|
||||
ls -l tmp/init-mid.sysout
|
||||
echo --------------
|
||||
|
||||
else
|
||||
echo XXXXX FAILURE XXXXX
|
||||
exit 1
|
||||
fi
|
||||
|
||||
134
scripts/restore-versions.sh
Executable file
134
scripts/restore-versions.sh
Executable file
@@ -0,0 +1,134 @@
|
||||
#!/bin/sh
|
||||
|
||||
# restore old versions from git repo
|
||||
# For use after a rm-versions or in a newly cloned repo
|
||||
# not guaranteed to return the SAME version as before
|
||||
# but it tries when it can.
|
||||
# version numbers follow git history
|
||||
|
||||
|
||||
# LC_ALL is needed for tr to keep it from getting confused
|
||||
export LC_ALL=C
|
||||
|
||||
file="$1"
|
||||
|
||||
# If given a directory, restore all versions from that directory
|
||||
# There's a suble difference, bcause glob expansion won't try
|
||||
# to reversion .git .github at top level.
|
||||
|
||||
if [ -d "$file" ]; then
|
||||
for dir in "$file/"*[a-zA-Z0-9]
|
||||
do echo restoring versions "$dir" && \
|
||||
find "$dir" -type f -iname "*[a-z0-9]" -exec "$0" {} \;
|
||||
done
|
||||
exit 0
|
||||
fi
|
||||
|
||||
|
||||
if [ ! -f "$file" ]; then
|
||||
echo no such file "$file"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
# file already has versions?
|
||||
|
||||
for vfn in "$file".~[1-9]*~
|
||||
do if [ -f "$vfn" ]; then
|
||||
echo "Already has versions: " $vfn && \
|
||||
exit 1
|
||||
fi
|
||||
done
|
||||
|
||||
|
||||
#stash file and remember status
|
||||
#The $stash remembers if it did something or not
|
||||
|
||||
stash=`git stash push -- $file 2>&1`
|
||||
|
||||
|
||||
# max is the maximum version checked in as as separate
|
||||
|
||||
max=0
|
||||
|
||||
# find commits with explicit old versions
|
||||
# In most cases there will be only one commit
|
||||
# these versions are restored, and n is set to 1+max of them
|
||||
# this is specific to our situation where we checked in some
|
||||
# ~nn~ versions and then .gitignore *~ was set
|
||||
|
||||
for commit in `git log --remove-empty --reverse --format="%h" -- "$file.~[1-9]*~"`
|
||||
do git checkout -q $commit "$file.~[1-9]*~" 2>/dev/null && \
|
||||
for version in "$file".~[1-9]*~
|
||||
do vn=`echo $version | sed 's/^.*\.~\([1-9][0-9]*\)~$/\1/'`
|
||||
if [ ! -z $vn ]; then
|
||||
vn=`expr $vn + 1`
|
||||
if [ $max -lt $vn ]; then
|
||||
max=$vn
|
||||
fi
|
||||
fi
|
||||
done
|
||||
done
|
||||
|
||||
# if file and max version are the same, link them
|
||||
# this obsoletes medley-fix-links
|
||||
|
||||
if cmp -q $file $file.~$max~ >/dev/null 2>&1
|
||||
then
|
||||
rm $file.~$max~
|
||||
ln $file $file.~$max~
|
||||
fi
|
||||
|
||||
# $base is used to look for mentions of DSK versions
|
||||
base=`basename "$file" .LCOM`
|
||||
base=`basename "$base" .DFASL`
|
||||
pattern='{DSK}.*'"$base"'\.\?;[1-9][0-9]*'
|
||||
|
||||
# Restore versions from git history. This process starts with
|
||||
# the max from the previous calculation and would go up by 1, but it
|
||||
# also prefers to restore files to their FILECREATED version
|
||||
# number. It does this by looking for {DSK}...root.~nn~ and using nn
|
||||
# as the version number if it isn't too small. It then makes a hard
|
||||
# link (each time for each commit) since the checkout will break any
|
||||
# old links
|
||||
|
||||
n=`expr $max + 1`
|
||||
|
||||
####
|
||||
# !!!! if you don't want these post-github versions
|
||||
# skip until end
|
||||
# If you want things before the last delete, remove the '--remove empty'
|
||||
####
|
||||
|
||||
for commit in `git log --remove-empty --reverse --format="%h" -- "$file"`
|
||||
do git checkout -q $commit "$file" && \
|
||||
fcv=`tr '\r' '\n' <"$file" | head -n 6 | grep -ai --max-count=1 --only-matching "$pattern"`
|
||||
fcv=`echo $fcv | sed 's/^.*;\([1-9][0-9]*\)$/\1/'`
|
||||
if [ ! -z $fcv ]; then
|
||||
if [ $fcv -gt $n ]; then
|
||||
n=$fcv
|
||||
fi
|
||||
fi
|
||||
ln "$file" "$file.~"$n"~" && n=`expr $n + 1`
|
||||
done
|
||||
|
||||
### END SKIP
|
||||
|
||||
# if the 'stash' at the beginning did something, restore the stashed file
|
||||
|
||||
case $stash in
|
||||
"error*" | "No local changes*")
|
||||
;;
|
||||
"*")
|
||||
git stash pop -- "$file" && \
|
||||
ln $file "$file.~"$n"~" && n=`expr $n + 1`
|
||||
;;
|
||||
esac
|
||||
|
||||
# if the result is only one version ;1 remove it
|
||||
# Otherwise, make sure no versions are staged
|
||||
if [ $n -eq 2 ]; then
|
||||
rm -f "$file".~1~
|
||||
else
|
||||
git restore --staged "$file.~[1-9]*~" 2>/dev/null
|
||||
fi
|
||||
|
||||
233
sources/LLETHER
233
sources/LLETHER
@@ -1,19 +1,19 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "19-Jan-93 10:49:30" {DSK}<python>lde>lispcore>sources>LLETHER.;2 139094
|
||||
(FILECREATED " 3-May-2021 23:13:56" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;4 139646
|
||||
|
||||
changes to%: (RECORDS SYSQUEUE QABLEITEM ETHERPACKET ETHERAUX NDB ROUTING ETHERTRANS
|
||||
CENTICLOCK 3MBENCAPSULATION PBI)
|
||||
changes to%: (FNS \ETHEREVENTFN \ETHER-AVAILABLE)
|
||||
(VARS LLETHERCOMS)
|
||||
|
||||
previous date%: " 5-Jan-93 00:36:20" {DSK}<python>lde>lispcore>sources>LLETHER.;1)
|
||||
previous date%: " 2-May-2021 12:37:02" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;3)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT LLETHERCOMS)
|
||||
|
||||
(RPAQQ LLETHERCOMS
|
||||
(RPAQQ LLETHERCOMS
|
||||
[(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||
LLNSDECLS))
|
||||
[COMS (* ;
|
||||
@@ -27,7 +27,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
(MACROS \QUEUEHEAD)))
|
||||
(INITRECORDS SYSQUEUE)
|
||||
(SYSRECORDS SYSQUEUE)
|
||||
(FNS \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE)
|
||||
(FNS CANONICAL.HOSTNAME \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE)
|
||||
(* ;
|
||||
"Queue management constructed by TCONC")
|
||||
(EXPORT (MACROS \DETCONC \ENTCONC \PEEKTCONC]
|
||||
@@ -58,7 +58,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
PRINTNSHOSTNUMBER)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'NSADDRESS '\NSADDRESS.DEFPRINT]
|
||||
[COMS (* ; "Assorted Level 0")
|
||||
(FNS \ETHERINIT \ETHEREVENTFN \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS \FLUSH.NDB.QUEUE)
|
||||
(FNS \ETHERINIT \ETHEREVENTFN \ETHER-AVAILABLE \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS
|
||||
\FLUSH.NDB.QUEUE)
|
||||
(FNS \CHECKSUM \HANDLE.RAW.OTHER \HANDLE.RAW.PACKET \ADD.PACKET.FILTER
|
||||
\DEL.PACKET.FILTER)
|
||||
(DECLARE%: DONTCOPY (EXPORT (CONSTANTS (\NULLCHECKSUM 65535)))
|
||||
@@ -190,8 +191,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
'6)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \QUEUEHEAD MACRO ((Q)
|
||||
(fetch (SYSQUEUE SYSQUEUEHEAD) of Q)))
|
||||
(PUTPROPS \QUEUEHEAD MACRO ((Q)
|
||||
(fetch (SYSQUEUE SYSQUEUEHEAD) of Q)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -213,6 +214,33 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(CANONICAL.HOSTNAME
|
||||
[LAMBDA (HOSTNAME) (* ; "Edited 1-May-2021 19:45 by larry")
|
||||
(LET [(DEV (CL:ASSOC HOSTNAME \DEVICENAMETODEVICE :TEST 'STRING-EQUAL]
|
||||
(if DEV
|
||||
then (* ; "Known device, don't ask anyone")
|
||||
(fetch DEVICENAME of (CDR DEV))
|
||||
elseif (NOT (SUBRCALL ETHER-AVAILABLE))
|
||||
then HOSTNAME
|
||||
elseif (AND \NS.READY (STRPOS ":" HOSTNAME))
|
||||
then (* ; "Assume NS")
|
||||
(\CANONICAL.NSHOSTNAME HOSTNAME)
|
||||
elseif (NUMBERP HOSTNAME)
|
||||
then (* ; "Some sort of host address")
|
||||
(if (AND (SMALLP HOSTNAME)
|
||||
(< HOSTNAME 255))
|
||||
then (* ; "valid pup address")
|
||||
HOSTNAME
|
||||
elseif \IP.READY
|
||||
then (* ; "Big number may be IP host")
|
||||
(IPHOSTNAME HOSTNAME))
|
||||
else (if (NOT (LITATOM HOSTNAME))
|
||||
then (SETQ HOSTNAME (MKATOM HOSTNAME)))
|
||||
(OR (CDR (FASSOC HOSTNAME \HOSTNAMES))
|
||||
(AND \IP.READY (\CANONICALIZE.IP.HOSTNAME HOSTNAME))
|
||||
(AND \PUP.READY (\CANONICALIZE.PUP.HOSTNAME HOSTNAME))
|
||||
HOSTNAME])
|
||||
|
||||
(\ENQUEUE
|
||||
[LAMBDA (Q ITEM) (* bvm%: "14-Feb-85 21:55")
|
||||
|
||||
@@ -333,14 +361,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS \DETCONC MACRO (OPENLAMBDA (TQ)
|
||||
(PROG1 (\PEEKTCONC TQ)
|
||||
(if [NULL (CAR (RPLACA TQ (CDAR TQ]
|
||||
then (RPLACD TQ)))]
|
||||
(PUTPROPS \DETCONC MACRO [OPENLAMBDA (TQ)
|
||||
(PROG1 (\PEEKTCONC TQ)
|
||||
(if [NULL (CAR (RPLACA TQ (CDAR TQ]
|
||||
then (RPLACD TQ)))])
|
||||
|
||||
(PUTPROPS \ENTCONC MACRO (= . TCONC))
|
||||
(PUTPROPS \ENTCONC MACRO (= . TCONC))
|
||||
|
||||
(PUTPROPS \PEEKTCONC MACRO (= . CAAR))
|
||||
(PUTPROPS \PEEKTCONC MACRO (= . CAAR))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -1471,16 +1499,16 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
HOSTNAMEP _ 'NILL])
|
||||
|
||||
(\ETHEREVENTFN
|
||||
[LAMBDA (DEV EVENT) (* ; "Edited 15-Jan-88 01:30 by bvm")
|
||||
(SELECTQ EVENT
|
||||
((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART)
|
||||
(PROG (NDB TURNOFFNS TIMESET)
|
||||
[LAMBDA (DEV EVENT) (* ; "Edited 3-May-2021 23:12 by larry")
|
||||
(PROG (NDB TURNOFFNS TIMESET)
|
||||
(SELECTQ EVENT
|
||||
((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART)
|
||||
(SETQ \PUP.READY (SETQ \NS.READY (SETQ \IP.READY)))
|
||||
(OR (\ETHER-AVAILABLE)
|
||||
(RETURN))
|
||||
(\SETETHERFLAGS)
|
||||
(\SETLOCALNSNUMBERS)
|
||||
(\FLUSHNDBS EVENT)
|
||||
[SETQ \3MBLOCALNDB (COND
|
||||
(\3MBFLG (SETQ \LOCALNDBS (\3MB.CREATENDB \3MBFLG]
|
||||
(SETQ \10MBLOCALNDB (COND
|
||||
(\10MBFLG (SETQ NDB (\10MB.CREATENDB \10MBFLG))
|
||||
(COND
|
||||
@@ -1499,30 +1527,26 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
(\NSINIT EVENT)
|
||||
(SETQ TIMESET (\NS.SETTIME]
|
||||
(\STARTPUP EVENT)
|
||||
(OR TIMESET (AND (EQ \PUP.READY T)
|
||||
(\PUP.SETTIME))
|
||||
[SELECTC \MACHINETYPE
|
||||
(\DANDELION (NEQ 0 (fetch DLTODVALID of \IOPAGE)))
|
||||
(\DAYBREAK (\DoveMisc.TODValid))
|
||||
(> (IDATE)
|
||||
(CONSTANT (IDATE " 1-JAN-88 12:00"]
|
||||
(\TIME.NOT.SET))
|
||||
(COND
|
||||
(TURNOFFNS (STOPNS)))
|
||||
(COND
|
||||
(\GATEWAYFLG (\INIT.GATEWAY)))
|
||||
(for FN in RESTARTETHERFNS do (CL:FUNCALL FN EVENT))
|
||||
T))
|
||||
((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM)
|
||||
(COND
|
||||
((EQ EVENT 'BEFORESAVEVM) (* ;
|
||||
T)
|
||||
((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM)
|
||||
(COND
|
||||
((EQ EVENT 'BEFORESAVEVM) (* ;
|
||||
"Save passwords in place outside vmem to avoid having to reenter them later")
|
||||
(\STASH.PASSWORDS))
|
||||
(T (* ;
|
||||
(\STASH.PASSWORDS))
|
||||
(T (* ;
|
||||
"No need to flush this before SAVEVM")
|
||||
(CLRHASH \ETHERPORTS)))
|
||||
(CLRHASH LOGINPASSWORDS))
|
||||
NIL])
|
||||
(CLRHASH \ETHERPORTS)))
|
||||
(CLRHASH LOGINPASSWORDS))
|
||||
NIL])
|
||||
|
||||
(\ETHER-AVAILABLE
|
||||
[LAMBDA NIL (* ; "Edited 3-May-2021 23:12 by larry")
|
||||
(SUBRCALL ETHER-AVAILABLE])
|
||||
|
||||
(\TIME.NOT.SET
|
||||
[LAMBDA NIL (* ; "Edited 13-Jan-88 14:40 by bvm")
|
||||
@@ -1532,28 +1556,15 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
(printout PROMPTWINDOW T "[Time not set]"])
|
||||
|
||||
(\SETETHERFLAGS
|
||||
[LAMBDA NIL (* ; "Edited 17-May-88 12:00 by bvm")
|
||||
(SELECTC \MACHINETYPE
|
||||
((LIST \DANDELION \DAYBREAK \MAIKO)
|
||||
(SETQ \10MBFLG 0)
|
||||
(SETQ \3MBFLG NIL)
|
||||
(SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE)
|
||||
(UNFOLD (INDEXF (FETCH EPBODY))
|
||||
BYTESPERWORD))))
|
||||
(\DORADO (SETQ \3MBFLG T)
|
||||
(SETQ \10MBFLG NIL)
|
||||
(SETQ *MAXIMUM-PACKET-SIZE* (if (>= (fetch (IFPAGE BVersion) of
|
||||
\InterfacePage
|
||||
)
|
||||
11776)
|
||||
then (* ; "This field is valid")
|
||||
(fetch (IFPAGE MAXETHERBYTES) of
|
||||
|
||||
\InterfacePage
|
||||
)
|
||||
else (* ; "Old bcpl had this much")
|
||||
590)))
|
||||
(SHOULDNT])
|
||||
[LAMBDA NIL (* ; "Edited 2-May-2021 12:35 by larry")
|
||||
|
||||
(* ;; "for Medley there is no 3MB ethernet ; used to be conditional on \MACHINETYPE")
|
||||
|
||||
(SETQ \10MBFLG 0)
|
||||
(SETQ \3MBFLG NIL)
|
||||
(SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE)
|
||||
(UNFOLD (INDEXF (FETCH EPBODY))
|
||||
BYTESPERWORD])
|
||||
|
||||
(\FLUSHNDBS
|
||||
[LAMBDA (EVENT) (* ; "Edited 15-Jan-88 00:30 by bvm")
|
||||
@@ -1774,25 +1785,27 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS ENCAPSULATE.ETHERPACKET MACRO ((NDB PACKET HOST LENGTH TYPE)
|
||||
(SPREADAPPLY* (fetch NDBENCAPSULATOR of NDB)
|
||||
NDB PACKET HOST LENGTH TYPE)))
|
||||
(PUTPROPS ENCAPSULATE.ETHERPACKET MACRO ((NDB PACKET HOST LENGTH TYPE)
|
||||
(SPREADAPPLY* (fetch NDBENCAPSULATOR
|
||||
of NDB)
|
||||
NDB PACKET HOST LENGTH TYPE)))
|
||||
|
||||
(PUTPROPS TRANSMIT.ETHERPACKET MACRO ((NDB PACKET)
|
||||
(SPREADAPPLY* (fetch NDBTRANSMITTER of NDB)
|
||||
NDB PACKET)))
|
||||
(PUTPROPS TRANSMIT.ETHERPACKET MACRO ((NDB PACKET)
|
||||
(SPREADAPPLY* (fetch NDBTRANSMITTER of NDB)
|
||||
NDB PACKET)))
|
||||
|
||||
[PUTPROPS BROADCASTP MACRO ((PACKET)
|
||||
([LAMBDA (NDB)
|
||||
(AND NDB (APPLY* (fetch NDBBROADCASTP of NDB)
|
||||
PACKET NDB]
|
||||
(fetch EPNETWORK of PACKET]
|
||||
(PUTPROPS BROADCASTP MACRO ((PACKET)
|
||||
([LAMBDA (NDB)
|
||||
(AND NDB (APPLY* (fetch NDBBROADCASTP of NDB)
|
||||
PACKET NDB]
|
||||
(fetch EPNETWORK of PACKET))))
|
||||
|
||||
[PUTPROPS \CHECK.ROUTING.TABLE MACRO ((TABLE)
|
||||
(if (NEQ (NTYPX TABLE)
|
||||
\ROUTING.TABLE.TYPENUM)
|
||||
then (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR :CULPRIT
|
||||
TABLE :EXPECTED-TYPE 'RoutingTable]
|
||||
(PUTPROPS \CHECK.ROUTING.TABLE MACRO [(TABLE)
|
||||
(if (NEQ (NTYPX TABLE)
|
||||
\ROUTING.TABLE.TYPENUM)
|
||||
then (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR
|
||||
:CULPRIT TABLE :EXPECTED-TYPE
|
||||
'RoutingTable])
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -2785,7 +2798,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \SERIALNUMBER MACRO (NIL (fetch (IFPAGE SerialNumber) of \InterfacePage)))
|
||||
(PUTPROPS \SERIALNUMBER MACRO (NIL (fetch (IFPAGE SerialNumber) of \InterfacePage)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -2866,9 +2879,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
T])
|
||||
)
|
||||
|
||||
(RPAQQ ROUTINGINFOMACRO
|
||||
(1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS SEPR ") " -2 FINALLY
|
||||
")"))
|
||||
(RPAQQ ROUTINGINFOMACRO (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS
|
||||
SEPR ") " -2 FINALLY ")"))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
@@ -2926,41 +2938,42 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 b
|
||||
)
|
||||
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")
|
||||
(PUTPROPS \DEVICE.INPUT DOPVAL (1 MISC1 1))
|
||||
(PUTPROPS \DEVICE.INPUT DOPVAL (1 MISC1 1))
|
||||
|
||||
(PUTPROPS \DEVICE.OUTPUT DOPVAL (2 MISC2 2))
|
||||
(PUTPROPS \DEVICE.OUTPUT DOPVAL (2 MISC2 2))
|
||||
|
||||
(PUTPROPS \D0.STARTIO DOPVAL (1 MISC1 0))
|
||||
(PUTPROPS \D0.STARTIO DOPVAL (1 MISC1 0))
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
|
||||
)
|
||||
(PUTPROPS LLETHER COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||
1992 1993))
|
||||
1992 1993 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (10827 17692 (\ENQUEUE 10837 . 13482) (\DEQUEUE 13484 . 14811) (\QUEUELENGTH 14813 .
|
||||
15113) (\ONQUEUE 15115 . 15381) (\UNQUEUE 15383 . 17690)) (51359 55225 (\ALLOCATE.ETHERPACKET 51369 .
|
||||
52410) (\RELEASE.ETHERPACKET 52412 . 53485) (RELEASE.PUP 53487 . 53632) (\FLUSH.PACKET.QUEUE 53634 .
|
||||
53985) (\REQUEUE.ETHERPACKET 53987 . 54501) (\EP.PUT.AUX 54503 . 55223)) (55799 67180 (
|
||||
\SETLOCALNSNUMBERS 55809 . 57194) (\LOADNSADDRESS 57196 . 57488) (\STORENSADDRESS 57490 . 57671) (
|
||||
\PRINTNSADDRESS 57673 . 58756) (\NSADDRESS.DEFPRINT 58758 . 63703) (\NSADDRESS.PRINT.DECIMAL 63705 .
|
||||
65836) (\LOADNSHOSTNUMBER 65838 . 66467) (\STORENSHOSTNUMBER 66469 . 66873) (PRINTNSHOSTNUMBER 66875
|
||||
. 67178)) (67293 74381 (\ETHERINIT 67303 . 67873) (\ETHEREVENTFN 67875 . 70869) (\TIME.NOT.SET 70871
|
||||
. 71197) (\SETETHERFLAGS 71199 . 72688) (\FLUSHNDBS 72690 . 73868) (\FLUSH.NDB.QUEUE 73870 . 74379))
|
||||
(74382 77674 (\CHECKSUM 74392 . 76324) (\HANDLE.RAW.OTHER 76326 . 76681) (\HANDLE.RAW.PACKET 76683 .
|
||||
77195) (\ADD.PACKET.FILTER 77197 . 77429) (\DEL.PACKET.FILTER 77431 . 77672)) (85243 85768 (
|
||||
ENCAPSULATE.ETHERPACKET 85253 . 85525) (TRANSMIT.ETHERPACKET 85527 . 85766)) (86056 98652 (
|
||||
\AGE.ROUTING.TABLE 86066 . 88215) (\ADD.ROUTING.TABLE.ENTRY 88217 . 88913) (\CLEAR.ROUTING.TABLE 88915
|
||||
. 89642) (\MAP.ROUTING.TABLE 89644 . 90172) (PRINTROUTINGTABLE 90174 . 93799) (\ROUTINGTABLE.INFOHOOK
|
||||
93801 . 98650)) (99137 105922 (\TRANSLATE.10TO3 99147 . 100931) (\NOTE.10TO3 100933 . 102549) (
|
||||
\HANDLE.RAW.10TO3 102551 . 105920)) (109904 124726 (PRINTPACKET 109914 . 110475) (\MAYBEPRINTPACKET
|
||||
110477 . 112134) (PRINT10TO3 112136 . 113504) (PRINTPACKETDATA 113506 . 118796) (PRINTPACKETQUEUE
|
||||
118798 . 119227) (TIME.SINCE.PACKET 119229 . 119714) (MAKE-NETWORK-TRACE-WINDOW 119716 . 123258) (
|
||||
\CHANGE.ETHER.TRACING 123260 . 124724)) (125097 125912 (\CENTICLOCK 125107 . 125910)) (126367 132467 (
|
||||
\3MBGETPACKET 126377 . 127797) (\3MB.CREATENDB 127799 . 128514) (\3MBSENDPACKET 128516 . 130699) (
|
||||
\3MBWATCHER 130701 . 131439) (\3MBENCAPSULATE 131441 . 131989) (\3MB.BROADCASTP 131991 . 132162) (
|
||||
\3MBFLUSH 132164 . 132465)) (135413 137356 (ASSURE.ETHER.ON 135423 . 135753) (INITPUPLEVEL1 135755 .
|
||||
136235) (TURN.ON.ETHER 136237 . 136382) (RESTART.ETHER 136384 . 136758) (TURN.OFF.ETHER 136760 .
|
||||
137078) (PRINTWORDS 137080 . 137354)) (137618 138153 (\DEVICE.INPUT 137628 . 137793) (\DEVICE.OUTPUT
|
||||
137795 . 137989) (\D0.STARTIO 137991 . 138151)))))
|
||||
(FILEMAP (NIL (10792 19248 (CANONICAL.HOSTNAME 10802 . 12391) (\ENQUEUE 12393 . 15038) (\DEQUEUE 15040
|
||||
. 16367) (\QUEUELENGTH 16369 . 16669) (\ONQUEUE 16671 . 16937) (\UNQUEUE 16939 . 19246)) (52949 56815
|
||||
(\ALLOCATE.ETHERPACKET 52959 . 54000) (\RELEASE.ETHERPACKET 54002 . 55075) (RELEASE.PUP 55077 . 55222
|
||||
) (\FLUSH.PACKET.QUEUE 55224 . 55575) (\REQUEUE.ETHERPACKET 55577 . 56091) (\EP.PUT.AUX 56093 . 56813)
|
||||
) (57389 68770 (\SETLOCALNSNUMBERS 57399 . 58784) (\LOADNSADDRESS 58786 . 59078) (\STORENSADDRESS
|
||||
59080 . 59261) (\PRINTNSADDRESS 59263 . 60346) (\NSADDRESS.DEFPRINT 60348 . 65293) (
|
||||
\NSADDRESS.PRINT.DECIMAL 65295 . 67426) (\LOADNSHOSTNUMBER 67428 . 68057) (\STORENSHOSTNUMBER 68059 .
|
||||
68463) (PRINTNSHOSTNUMBER 68465 . 68768)) (68883 74631 (\ETHERINIT 68893 . 69463) (\ETHEREVENTFN 69465
|
||||
. 71997) (\ETHER-AVAILABLE 71999 . 72157) (\TIME.NOT.SET 72159 . 72485) (\SETETHERFLAGS 72487 . 72938
|
||||
) (\FLUSHNDBS 72940 . 74118) (\FLUSH.NDB.QUEUE 74120 . 74629)) (74632 77924 (\CHECKSUM 74642 . 76574)
|
||||
(\HANDLE.RAW.OTHER 76576 . 76931) (\HANDLE.RAW.PACKET 76933 . 77445) (\ADD.PACKET.FILTER 77447 . 77679
|
||||
) (\DEL.PACKET.FILTER 77681 . 77922)) (85757 86282 (ENCAPSULATE.ETHERPACKET 85767 . 86039) (
|
||||
TRANSMIT.ETHERPACKET 86041 . 86280)) (86570 99166 (\AGE.ROUTING.TABLE 86580 . 88729) (
|
||||
\ADD.ROUTING.TABLE.ENTRY 88731 . 89427) (\CLEAR.ROUTING.TABLE 89429 . 90156) (\MAP.ROUTING.TABLE 90158
|
||||
. 90686) (PRINTROUTINGTABLE 90688 . 94313) (\ROUTINGTABLE.INFOHOOK 94315 . 99164)) (99651 106436 (
|
||||
\TRANSLATE.10TO3 99661 . 101445) (\NOTE.10TO3 101447 . 103063) (\HANDLE.RAW.10TO3 103065 . 106434)) (
|
||||
110418 125240 (PRINTPACKET 110428 . 110989) (\MAYBEPRINTPACKET 110991 . 112648) (PRINT10TO3 112650 .
|
||||
114018) (PRINTPACKETDATA 114020 . 119310) (PRINTPACKETQUEUE 119312 . 119741) (TIME.SINCE.PACKET 119743
|
||||
. 120228) (MAKE-NETWORK-TRACE-WINDOW 120230 . 123772) (\CHANGE.ETHER.TRACING 123774 . 125238)) (
|
||||
125611 126426 (\CENTICLOCK 125621 . 126424)) (126881 132981 (\3MBGETPACKET 126891 . 128311) (
|
||||
\3MB.CREATENDB 128313 . 129028) (\3MBSENDPACKET 129030 . 131213) (\3MBWATCHER 131215 . 131953) (
|
||||
\3MBENCAPSULATE 131955 . 132503) (\3MB.BROADCASTP 132505 . 132676) (\3MBFLUSH 132678 . 132979)) (
|
||||
135935 137878 (ASSURE.ETHER.ON 135945 . 136275) (INITPUPLEVEL1 136277 . 136757) (TURN.ON.ETHER 136759
|
||||
. 136904) (RESTART.ETHER 136906 . 137280) (TURN.OFF.ETHER 137282 . 137600) (PRINTWORDS 137602 .
|
||||
137876)) (138153 138688 (\DEVICE.INPUT 138163 . 138328) (\DEVICE.OUTPUT 138330 . 138524) (\D0.STARTIO
|
||||
138526 . 138686)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
560
sources/PUP
560
sources/PUP
@@ -1,139 +1,134 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 8)
|
||||
(FILECREATED "19-Jan-93 11:14:09" {DSK}<python>lde>lispcore>sources>PUP.;4 352070Q
|
||||
(FILECREATED " 1-May-2021 19:49:18" {DSK}<home>larry>ilisp>medley>sources>PUP.;2 336270Q
|
||||
|
||||
changes to%: (RECORDS PUP PUPADDRESS ERRORPUP PUPROUTINGINFO PUPSOCKET PORT TIMEPUPCONTENTS)
|
||||
changes to%: (FNS \PUP.SETTIME CANONICAL.HOSTNAME)
|
||||
(VARS PUPCOMS)
|
||||
|
||||
previous date%: " 5-Jan-93 01:53:53" {DSK}<python>lde>lispcore>sources>PUP.;3)
|
||||
previous date%: "19-Jan-93 11:14:09" {DSK}<home>larry>ilisp>medley>sources>PUP.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT PUPCOMS)
|
||||
|
||||
(RPAQQ PUPCOMS ((COMS (* ; "Low level pup")
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS PUP PUPADDRESS)
|
||||
(MACROS \LOCALPUPADDRESS \LOCALPUPHOSTNUMBER
|
||||
\LOCALPUPNETNUMBER))
|
||||
(GLOBALVARS \LOCALPUPNETHOST \OLDPUPHOST#))
|
||||
(FNS \STARTPUP ASSURE.PUP.READY \FIND.LOCALPUPHOSTNUMBER
|
||||
\PROMPT.FOR.PUP.NUMBER \HANDLE.RAW.PUP \FORWARD.PUP \SETPUPCHECKSUM)
|
||||
(INITVARS (\PUP.CHECKSUMFLG T)
|
||||
(\MAX.EPKTS.ON.PUPSOCKET 20Q)
|
||||
(\LOCALPUPNETHOST)
|
||||
(\OLDPUPHOST# 0)))
|
||||
(COMS (* ; "Pup error stuff")
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS ERRORPUP)
|
||||
(CONSTANTS * PUPERRORCODES))
|
||||
(GLOBALVARS PUPERRORMESSAGES))
|
||||
(VARS PUPERRORMESSAGES)
|
||||
(FNS \PUPERROR))
|
||||
(COMS (* ; "Pup utilities")
|
||||
(FNS SETUPPUP SWAPPUPPORTS GETPUP SENDPUP EXCHANGEPUPS DISCARDPUPS
|
||||
GETPUPWORD \PUPINIT)
|
||||
(FNS ETHERHOSTNAME ETHERHOSTNUMBER ETHERPORT BESTPUPADDRESS NETDAYTIME0
|
||||
\PUP.SETTIME \SETNEWTIME0 \NET.SETTIME NETDATE \LOOKUPPORT
|
||||
\PARSE.PORTCONSTANT \FIXLOCALNET)
|
||||
(FNS PORTSTRING OCTALSTRING)
|
||||
(INITVARS (\ETHERPORTS (HASHARRAY 24Q))
|
||||
(\ETHERTIMEOUT 3720Q)
|
||||
(\MAXETHERTRIES 4)
|
||||
(\PUPCOUNTER 0))
|
||||
(GLOBALVARS \ETHERPORTS \PUPCOUNTER))
|
||||
(COMS (* ; "Accessing a PUP's contents")
|
||||
(FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM
|
||||
PUTPUPSTRING)
|
||||
(OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE))
|
||||
(COMS (* ;
|
||||
(RPAQQ PUPCOMS
|
||||
((COMS (* ; "Low level pup")
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS PUP PUPADDRESS)
|
||||
(MACROS \LOCALPUPADDRESS \LOCALPUPHOSTNUMBER
|
||||
\LOCALPUPNETNUMBER))
|
||||
(GLOBALVARS \LOCALPUPNETHOST \OLDPUPHOST#))
|
||||
(FNS \STARTPUP ASSURE.PUP.READY \FIND.LOCALPUPHOSTNUMBER \PROMPT.FOR.PUP.NUMBER
|
||||
\HANDLE.RAW.PUP \FORWARD.PUP \SETPUPCHECKSUM)
|
||||
(INITVARS (\PUP.CHECKSUMFLG T)
|
||||
(\MAX.EPKTS.ON.PUPSOCKET 20Q)
|
||||
(\LOCALPUPNETHOST)
|
||||
(\OLDPUPHOST# 0)))
|
||||
(COMS (* ; "Pup error stuff")
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS ERRORPUP)
|
||||
(CONSTANTS * PUPERRORCODES))
|
||||
(GLOBALVARS PUPERRORMESSAGES))
|
||||
(VARS PUPERRORMESSAGES)
|
||||
(FNS \PUPERROR))
|
||||
(COMS (* ; "Pup utilities")
|
||||
(FNS SETUPPUP SWAPPUPPORTS GETPUP SENDPUP EXCHANGEPUPS DISCARDPUPS GETPUPWORD \PUPINIT)
|
||||
(FNS ETHERHOSTNAME ETHERHOSTNUMBER ETHERPORT BESTPUPADDRESS NETDAYTIME0 \PUP.SETTIME
|
||||
\SETNEWTIME0 \NET.SETTIME NETDATE \LOOKUPPORT \PARSE.PORTCONSTANT \FIXLOCALNET)
|
||||
(FNS PORTSTRING OCTALSTRING)
|
||||
(INITVARS (\ETHERPORTS (HASHARRAY 24Q))
|
||||
(\ETHERTIMEOUT 3720Q)
|
||||
(\MAXETHERTRIES 4)
|
||||
(\PUPCOUNTER 0))
|
||||
(GLOBALVARS \ETHERPORTS \PUPCOUNTER))
|
||||
(COMS (* ; "Accessing a PUP's contents")
|
||||
(FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM PUTPUPSTRING)
|
||||
(OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE))
|
||||
(COMS (* ;
|
||||
"Reading property lists from streams")
|
||||
(FNS READPLIST)
|
||||
(INITVARS \READPLIST.READTABLES)
|
||||
(GLOBALVARS \READPLIST.READTABLES))
|
||||
(COMS (FNS CANONICAL.HOSTNAME \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME)
|
||||
(P (* ;
|
||||
(FNS READPLIST)
|
||||
(INITVARS \READPLIST.READTABLES)
|
||||
(GLOBALVARS \READPLIST.READTABLES))
|
||||
(COMS (FNS \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME)
|
||||
(P (* ;
|
||||
"Default this for when IP not loaded")
|
||||
(MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T))
|
||||
(ADDVARS (\HOSTNAMES)
|
||||
(\SYSTEMCACHEVARS \HOSTNAMES))
|
||||
(GLOBALVARS \HOSTNAMES))
|
||||
[COMS (* ; "PUP allocation")
|
||||
(EXPORT (MACROS BINDPUPS)
|
||||
(PROP INFO BINDPUPS)
|
||||
(ALISTS (PRETTYPRINTMACROS BINDPUPS]
|
||||
(COMS (* ; "Pup routing")
|
||||
(FNS \PUPGATELISTENER \HANDLE.PUP.ROUTING.INFO \ROUTE.PUP \LOCATE.PUPNET
|
||||
SORT.PUPHOSTS.BY.DISTANCE \PUPNET.CLOSERP PUPNET.DISTANCE)
|
||||
(INITVARS (\PUP.ROUTING.TABLE (CONS))
|
||||
(\PUP.ROUTING.TABLE.RADIUS 2)
|
||||
(\PUPROUTER.PROBECOUNT 0)
|
||||
(\PUPROUTER.PROBETIMER)
|
||||
(\PUPROUTER.PROBEINTERVAL 5670Q)
|
||||
(\PUP.READY)
|
||||
(\PUP.READY.EVENT (CREATE.EVENT "Pup Ready"))
|
||||
(\PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready")))
|
||||
(ADDVARS (\SYSTEMCACHEVARS \PUP.READY))
|
||||
(DECLARE%: DONTCOPY (RECORDS PUPROUTINGINFO)
|
||||
(CONSTANTS \PUP.ROUTINGINFO.WORDS)
|
||||
(GLOBALVARS \PUP.ROUTING.TABLE \PUP.ROUTING.TABLE.RADIUS
|
||||
\PUPROUTER.PROBECOUNT \PUPROUTER.PROBETIMER
|
||||
\PUPROUTER.PROBEINTERVAL \PUP.READY \PUP.READY.EVENT
|
||||
\PUP.READY.LOCK)))
|
||||
(COMS (* ; "Sockets")
|
||||
(DECLARE%: DONTCOPY (RECORDS PUPSOCKET)
|
||||
(MACROS \PUPSOCKET.FROM#)
|
||||
(GLOBALVARS \PUPSOCKETS.TABLE \MAX.EPKTS.ON.PUPSOCKET
|
||||
\PUP.CHECKSUMFLG))
|
||||
(INITRECORDS PUPSOCKET)
|
||||
(SYSRECORDS PUPSOCKET)
|
||||
(FNS OPENPUPSOCKET CLOSEPUPSOCKET PUPSOCKETNUMBER PUPSOCKETFROMNUMBER
|
||||
PUPSOCKETEVENT \FLUSHPUPSOCQUEUE)
|
||||
(FNS \GETMISCSOCKET)
|
||||
(GLOBALVARS \MISC.SOCKET \PUPSOCKETS)
|
||||
(INITVARS (\MISC.SOCKET)
|
||||
(\PUPSOCKETS)))
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS PORT ERRORPUP)
|
||||
(GLOBALVARS \ETHERWAIT1 \ETHERTIMEOUT \MAXETHERTRIES
|
||||
PUPTRACEFLG LOGINPASSWORDS)
|
||||
(GLOBALVARS PUPTRACEFILE PUPONLYTYPES PUPIGNORETYPES
|
||||
PUPPRINTMACROS)
|
||||
(CONSTANTS (\PUPOVLEN 26Q)
|
||||
(\MAX.PUPLENGTH 1024Q)
|
||||
(\TIME.GETPUP 5))
|
||||
(PROP VARTYPE PUPPRINTMACROS)
|
||||
(MACROS \GETPUPWORD \PUTPUPWORD \GETPUPBYTE
|
||||
\PUTPUPBYTE)
|
||||
(CONSTANTS * RAWPUPTYPES)
|
||||
(INITVARS (PUPTYPES RAWPUPTYPES))
|
||||
(CONSTANTS * WELLKNOWNPUPSOCKETS))
|
||||
(CONSTANTS * PUPCONSTANTS)
|
||||
(MACROS PUPDEBUGGING)
|
||||
(ALISTS (PUPPRINTMACROS 210Q 214Q 211Q 213Q 201Q 30Q))
|
||||
(RECORDS TIMEPUPCONTENTS))
|
||||
(COMS (* ; "echo utilities")
|
||||
(FNS PUP.ECHOSERVER PUP.ECHOUSER))
|
||||
(COMS (* ; "Peeking")
|
||||
(FNS \PEEKPUP \MAYBEPEEKPUP)
|
||||
(INITVARS (\PEEKPUPNUMBER))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS \ETHERHOSTLOC)
|
||||
(GLOBALVARS \PEEKPUPNUMBER)))
|
||||
(COMS (* ; "Debugging assistance")
|
||||
(FNS PRINTPUP PRINTPUPROUTE PRINTPUPDATA PRINTERRORPUP PUPTRACE
|
||||
PRINTCONSTANT)
|
||||
(INITVARS (PUPTRACEFLG)
|
||||
(PUPTRACEFILE T)
|
||||
(PUPTRACETIME))
|
||||
(GLOBALVARS PUPTRACETIME)
|
||||
(ADDVARS (PUPPRINTMACROS)
|
||||
(PUPONLYTYPES)
|
||||
(PUPIGNORETYPES))
|
||||
(ALISTS (PUPPRINTMACROS 4 220Q 221Q 223Q 224Q)))
|
||||
(DECLARE%: DONTEVAL@LOAD (P (\PUPINIT)))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)
|
||||
(FILES (LOADCOMP)
|
||||
LLETHER))
|
||||
(PROP (MAKEFILE-ENVIRONMENT FILETYPE)
|
||||
PUP)))
|
||||
(MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T))
|
||||
(ADDVARS (\HOSTNAMES)
|
||||
(\SYSTEMCACHEVARS \HOSTNAMES))
|
||||
(GLOBALVARS \HOSTNAMES))
|
||||
[COMS (* ; "PUP allocation")
|
||||
(EXPORT (MACROS BINDPUPS)
|
||||
(PROP INFO BINDPUPS)
|
||||
(ALISTS (PRETTYPRINTMACROS BINDPUPS]
|
||||
(COMS (* ; "Pup routing")
|
||||
(FNS \PUPGATELISTENER \HANDLE.PUP.ROUTING.INFO \ROUTE.PUP \LOCATE.PUPNET
|
||||
SORT.PUPHOSTS.BY.DISTANCE \PUPNET.CLOSERP PUPNET.DISTANCE)
|
||||
(INITVARS (\PUP.ROUTING.TABLE (CONS))
|
||||
(\PUP.ROUTING.TABLE.RADIUS 2)
|
||||
(\PUPROUTER.PROBECOUNT 0)
|
||||
(\PUPROUTER.PROBETIMER)
|
||||
(\PUPROUTER.PROBEINTERVAL 5670Q)
|
||||
(\PUP.READY)
|
||||
(\PUP.READY.EVENT (CREATE.EVENT "Pup Ready"))
|
||||
(\PUP.READY.LOCK (CREATE.MONITORLOCK "Pup Ready")))
|
||||
(ADDVARS (\SYSTEMCACHEVARS \PUP.READY))
|
||||
(DECLARE%: DONTCOPY (RECORDS PUPROUTINGINFO)
|
||||
(CONSTANTS \PUP.ROUTINGINFO.WORDS)
|
||||
(GLOBALVARS \PUP.ROUTING.TABLE \PUP.ROUTING.TABLE.RADIUS \PUPROUTER.PROBECOUNT
|
||||
\PUPROUTER.PROBETIMER \PUPROUTER.PROBEINTERVAL \PUP.READY
|
||||
\PUP.READY.EVENT \PUP.READY.LOCK)))
|
||||
(COMS (* ; "Sockets")
|
||||
(DECLARE%: DONTCOPY (RECORDS PUPSOCKET)
|
||||
(MACROS \PUPSOCKET.FROM#)
|
||||
(GLOBALVARS \PUPSOCKETS.TABLE \MAX.EPKTS.ON.PUPSOCKET \PUP.CHECKSUMFLG))
|
||||
(INITRECORDS PUPSOCKET)
|
||||
(SYSRECORDS PUPSOCKET)
|
||||
(FNS OPENPUPSOCKET CLOSEPUPSOCKET PUPSOCKETNUMBER PUPSOCKETFROMNUMBER PUPSOCKETEVENT
|
||||
\FLUSHPUPSOCQUEUE)
|
||||
(FNS \GETMISCSOCKET)
|
||||
(GLOBALVARS \MISC.SOCKET \PUPSOCKETS)
|
||||
(INITVARS (\MISC.SOCKET)
|
||||
(\PUPSOCKETS)))
|
||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS PORT ERRORPUP)
|
||||
(GLOBALVARS \ETHERWAIT1 \ETHERTIMEOUT \MAXETHERTRIES PUPTRACEFLG
|
||||
LOGINPASSWORDS)
|
||||
(GLOBALVARS PUPTRACEFILE PUPONLYTYPES PUPIGNORETYPES
|
||||
PUPPRINTMACROS)
|
||||
(CONSTANTS (\PUPOVLEN 26Q)
|
||||
(\MAX.PUPLENGTH 1024Q)
|
||||
(\TIME.GETPUP 5))
|
||||
(PROP VARTYPE PUPPRINTMACROS)
|
||||
(MACROS \GETPUPWORD \PUTPUPWORD \GETPUPBYTE \PUTPUPBYTE)
|
||||
(CONSTANTS * RAWPUPTYPES)
|
||||
(INITVARS (PUPTYPES RAWPUPTYPES))
|
||||
(CONSTANTS * WELLKNOWNPUPSOCKETS))
|
||||
(CONSTANTS * PUPCONSTANTS)
|
||||
(MACROS PUPDEBUGGING)
|
||||
(ALISTS (PUPPRINTMACROS 210Q 214Q 211Q 213Q 201Q 30Q))
|
||||
(RECORDS TIMEPUPCONTENTS))
|
||||
(COMS (* ; "echo utilities")
|
||||
(FNS PUP.ECHOSERVER PUP.ECHOUSER))
|
||||
(COMS (* ; "Peeking")
|
||||
(FNS \PEEKPUP \MAYBEPEEKPUP)
|
||||
(INITVARS (\PEEKPUPNUMBER))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS \ETHERHOSTLOC)
|
||||
(GLOBALVARS \PEEKPUPNUMBER)))
|
||||
(COMS (* ; "Debugging assistance")
|
||||
(FNS PRINTPUP PRINTPUPROUTE PRINTPUPDATA PRINTERRORPUP PUPTRACE PRINTCONSTANT)
|
||||
(INITVARS (PUPTRACEFLG)
|
||||
(PUPTRACEFILE T)
|
||||
(PUPTRACETIME))
|
||||
(GLOBALVARS PUPTRACETIME)
|
||||
(ADDVARS (PUPPRINTMACROS)
|
||||
(PUPONLYTYPES)
|
||||
(PUPIGNORETYPES))
|
||||
(ALISTS (PUPPRINTMACROS 4 220Q 221Q 223Q 224Q)))
|
||||
(DECLARE%: DONTEVAL@LOAD (P (\PUPINIT)))
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)
|
||||
(FILES (LOADCOMP)
|
||||
LLETHER))
|
||||
(PROP (MAKEFILE-ENVIRONMENT FILETYPE)
|
||||
PUP)))
|
||||
|
||||
|
||||
|
||||
@@ -193,11 +188,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \LOCALPUPADDRESS MACRO (NIL \LOCALPUPNETHOST))
|
||||
(PUTPROPS \LOCALPUPADDRESS MACRO (NIL \LOCALPUPNETHOST))
|
||||
|
||||
(PUTPROPS \LOCALPUPHOSTNUMBER MACRO (NIL (fetch PUPHOST# of \LOCALPUPNETHOST)))
|
||||
(PUTPROPS \LOCALPUPHOSTNUMBER MACRO (NIL (fetch PUPHOST# of \LOCALPUPNETHOST)))
|
||||
|
||||
(PUTPROPS \LOCALPUPNETNUMBER MACRO (NIL (fetch PUPNET# of \LOCALPUPNETHOST)))
|
||||
(PUTPROPS \LOCALPUPNETNUMBER MACRO (NIL (fetch PUPNET# of \LOCALPUPNETHOST)))
|
||||
)
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
@@ -485,16 +480,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
)))
|
||||
)
|
||||
|
||||
(RPAQQ PUPERRORCODES ((\PUPE.CHECKSUM 1)
|
||||
(\PUPE.NOSOCKET 2)
|
||||
(\PUPE.SOCKETFULL 3)
|
||||
(\PUPE.GATEWAY.BADPUP 1001Q)
|
||||
(\PUPE.NOROUTE 1002Q)
|
||||
(\PUPE.NOHOST 1003Q)
|
||||
(\PUPE.LOOPED 1004Q)
|
||||
(\PUPE.TOOLARGE 1005Q)
|
||||
(\PUPE.WRONG.GATEWAY 1006Q)
|
||||
(\PUPE.GATEWAYFULL 1007Q)))
|
||||
(RPAQQ PUPERRORCODES
|
||||
((\PUPE.CHECKSUM 1)
|
||||
(\PUPE.NOSOCKET 2)
|
||||
(\PUPE.SOCKETFULL 3)
|
||||
(\PUPE.GATEWAY.BADPUP 1001Q)
|
||||
(\PUPE.NOROUTE 1002Q)
|
||||
(\PUPE.NOHOST 1003Q)
|
||||
(\PUPE.LOOPED 1004Q)
|
||||
(\PUPE.TOOLARGE 1005Q)
|
||||
(\PUPE.WRONG.GATEWAY 1006Q)
|
||||
(\PUPE.GATEWAYFULL 1007Q)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \PUPE.CHECKSUM 1)
|
||||
@@ -539,16 +535,17 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
)
|
||||
)
|
||||
|
||||
(RPAQQ PUPERRORMESSAGES ((1 "Bad Checksum")
|
||||
(2 "No such socket")
|
||||
(3 "Socket full")
|
||||
(1001Q "Inconsistent pup")
|
||||
(1002Q "No route to that host")
|
||||
(1003Q "Host is down")
|
||||
(1004Q "Too many hops")
|
||||
(1005Q "Pup too long")
|
||||
(1006Q "Wrong gateway for that host")
|
||||
(1007Q "Gateway IQ full")))
|
||||
(RPAQQ PUPERRORMESSAGES
|
||||
((1 "Bad Checksum")
|
||||
(2 "No such socket")
|
||||
(3 "Socket full")
|
||||
(1001Q "Inconsistent pup")
|
||||
(1002Q "No route to that host")
|
||||
(1003Q "Host is down")
|
||||
(1004Q "Too many hops")
|
||||
(1005Q "Pup too long")
|
||||
(1006Q "Wrong gateway for that host")
|
||||
(1007Q "Gateway IQ full")))
|
||||
(DEFINEQ
|
||||
|
||||
(\PUPERROR
|
||||
@@ -936,41 +933,11 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
(\NET.SETTIME T])
|
||||
|
||||
(\PUP.SETTIME
|
||||
[LAMBDA (RETFLG) (* bvm%: " 1-NOV-83 17:07")
|
||||
|
||||
(* ;;; "Sets the local time from the network, if possible, or simply returns a 32-bit unsigned alto time if RETFLG is T")
|
||||
|
||||
(DECLARE (GLOBALVARS \TimeZoneComp \BeginDST \EndDST))
|
||||
(PROG ((SOC (\GETMISCSOCKET))
|
||||
(OPUP (ALLOCATE.PUP))
|
||||
RESULT IPUP DATA TIME)
|
||||
(SETUPPUP OPUP 0 \PUPSOCKET.MISCSERVICES \PT.ALTOTIMEREQUEST NIL SOC T)
|
||||
(RETURN (to \MAXETHERTRIES when (SETQ IPUP (EXCHANGEPUPS SOC OPUP NIL T))
|
||||
do (SELECTC (fetch PUPTYPE of IPUP)
|
||||
(\PT.ALTOTIMERESPONSE
|
||||
(SETQ DATA (fetch PUPCONTENTS of IPUP))
|
||||
(SETQ TIME (create FIXP
|
||||
HINUM _ (fetch TIMEPUPVALUEHI of
|
||||
DATA)
|
||||
LONUM _ (fetch TIMEPUPVALUELO of
|
||||
DATA)))
|
||||
(COND
|
||||
(RETFLG (RETURN TIME)))
|
||||
(\SETNEWTIME0 TIME)
|
||||
(SETQ \TimeZoneComp (ITIMES (COND
|
||||
((fetch TIMEPUPEASTP
|
||||
of DATA)
|
||||
-1)
|
||||
(T 1))
|
||||
(fetch TIMEPUPHOURS of DATA))
|
||||
)
|
||||
(SETQ \BeginDST (fetch TIMEPUPBEGINDST of DATA))
|
||||
(SETQ \EndDST (fetch TIMEPUPENDDST of DATA))
|
||||
(RELEASE.PUP IPUP)
|
||||
(RETURN T))
|
||||
(\PT.ERROR (AND PUPTRACEFLG (PRINTERRORPUP IPUP PUPTRACEFILE)))
|
||||
NIL)
|
||||
(RELEASE.PUP IPUP])
|
||||
[LAMBDA (RETFLG) (* ; "Edited 13-May-88 15:22 by MASINTER")
|
||||
(CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG)))
|
||||
(SETQ \TimeZoneComp (SUBRCALL GETUNIXTIME 10Q NIL)))
|
||||
(\PROCESS.RESET.TIMERS)
|
||||
(DAYTIME])
|
||||
|
||||
(\SETNEWTIME0
|
||||
[LAMBDA (NEWTIME) (* bvm%: "26-Jul-84 15:23")
|
||||
@@ -1281,30 +1248,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(CANONICAL.HOSTNAME
|
||||
[LAMBDA (HOSTNAME) (* ; "Edited 12-Apr-88 17:43 by bvm")
|
||||
(LET [(DEV (CL:ASSOC HOSTNAME \DEVICENAMETODEVICE :TEST 'STRING-EQUAL]
|
||||
(if DEV
|
||||
then (* ; "Known device, don't ask anyone")
|
||||
(fetch DEVICENAME of (CDR DEV))
|
||||
elseif (STRPOS ":" HOSTNAME)
|
||||
then (* ; "Assume NS")
|
||||
(\CANONICAL.NSHOSTNAME HOSTNAME)
|
||||
elseif (NUMBERP HOSTNAME)
|
||||
then (* ; "Some sort of host address")
|
||||
(if (AND (SMALLP HOSTNAME)
|
||||
(< HOSTNAME 377Q))
|
||||
then (* ; "valid pup address")
|
||||
HOSTNAME
|
||||
elseif \IP.READY
|
||||
then (* ; "Big number may be IP host")
|
||||
(IPHOSTNAME HOSTNAME))
|
||||
else (if (NOT (LITATOM HOSTNAME))
|
||||
then (SETQ HOSTNAME (MKATOM HOSTNAME)))
|
||||
(OR (CDR (FASSOC HOSTNAME \HOSTNAMES))
|
||||
(\CANONICALIZE.IP.HOSTNAME HOSTNAME)
|
||||
(\CANONICALIZE.PUP.HOSTNAME HOSTNAME])
|
||||
|
||||
(\CANONICAL.HOSTNAME
|
||||
[LAMBDA (NAME) (* ; "Edited 11-Mar-88 12:09 by bvm")
|
||||
|
||||
@@ -1357,25 +1300,26 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS BINDPUPS MACRO (X (CONS (LIST 'LAMBDA (CAR X)
|
||||
(CONS 'PROGN (CDR X)))
|
||||
(in (CAR X) collect (LIST 'ALLOCATE.PUP]
|
||||
(PUTPROPS BINDPUPS MACRO [X (CONS (LIST 'LAMBDA (CAR X)
|
||||
(CONS 'PROGN (CDR X)))
|
||||
(in (CAR X) collect (LIST 'ALLOCATE.PUP])
|
||||
)
|
||||
|
||||
(PUTPROPS BINDPUPS INFO BINDS)
|
||||
(PUTPROPS BINDPUPS INFO BINDS)
|
||||
|
||||
(ADDTOVAR PRETTYPRINTMACROS (BINDPUPS LAMBDA
|
||||
(FORM)
|
||||
(PROG [(POS (IPLUS 2 (POSITION]
|
||||
(PRIN1 "(")
|
||||
(PRIN2 (CAR FORM))
|
||||
(SPACES 1)
|
||||
(PRINTDEF (CADR FORM)
|
||||
(POSITION))
|
||||
(OR [EQ COMMENTFLG (CAAR (SETQ FORM (CDDR FORM]
|
||||
(TAB POS 0))
|
||||
(PRINTDEF FORM POS T T FNSLST)
|
||||
(PRIN1 ")"))))
|
||||
(ADDTOVAR PRETTYPRINTMACROS
|
||||
(BINDPUPS LAMBDA
|
||||
(FORM)
|
||||
(PROG [(POS (IPLUS 2 (POSITION]
|
||||
(PRIN1 "(")
|
||||
(PRIN2 (CAR FORM))
|
||||
(SPACES 1)
|
||||
(PRINTDEF (CADR FORM)
|
||||
(POSITION))
|
||||
(OR [EQ COMMENTFLG (CAAR (SETQ FORM (CDDR FORM]
|
||||
(TAB POS 0))
|
||||
(PRINTDEF FORM POS T T FNSLST)
|
||||
(PRIN1 ")"))))
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
|
||||
@@ -1725,12 +1669,12 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS \PUPSOCKET.FROM# MACRO (OPENLAMBDA (SOCHI SOCLO)
|
||||
(for SOC in \PUPSOCKETS
|
||||
when (AND (EQ (fetch PSOCKETLO of SOC)
|
||||
SOCLO)
|
||||
(EQ (fetch PSOCKETHI of SOC)
|
||||
SOCHI)) do (RETURN SOC]
|
||||
(PUTPROPS \PUPSOCKET.FROM# MACRO (OPENLAMBDA (SOCHI SOCLO)
|
||||
(for SOC in \PUPSOCKETS
|
||||
when (AND (EQ (fetch PSOCKETLO of SOC)
|
||||
SOCLO)
|
||||
(EQ (fetch PSOCKETHI of SOC)
|
||||
SOCHI)) do (RETURN SOC))))
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -1920,61 +1864,62 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
(\TIME.GETPUP 5))
|
||||
)
|
||||
|
||||
(PUTPROPS PUPPRINTMACROS VARTYPE ALIST)
|
||||
(PUTPROPS PUPPRINTMACROS VARTYPE ALIST)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \GETPUPWORD DMACRO ((PUP WORD#)
|
||||
(\GETBASE (fetch PUPCONTENTS of PUP)
|
||||
WORD#)))
|
||||
(PUTPROPS \GETPUPWORD DMACRO ((PUP WORD#)
|
||||
(\GETBASE (fetch PUPCONTENTS of PUP)
|
||||
WORD#)))
|
||||
|
||||
(PUTPROPS \PUTPUPWORD DMACRO ((PUP WORD# VALUE)
|
||||
(\PUTBASE (fetch PUPCONTENTS of PUP)
|
||||
WORD# VALUE)))
|
||||
(PUTPROPS \PUTPUPWORD DMACRO ((PUP WORD# VALUE)
|
||||
(\PUTBASE (fetch PUPCONTENTS of PUP)
|
||||
WORD# VALUE)))
|
||||
|
||||
(PUTPROPS \GETPUPBYTE DMACRO ((PUP BYTE#)
|
||||
(\GETBASEBYTE (fetch PUPCONTENTS of PUP)
|
||||
BYTE#)))
|
||||
(PUTPROPS \GETPUPBYTE DMACRO ((PUP BYTE#)
|
||||
(\GETBASEBYTE (fetch PUPCONTENTS of PUP)
|
||||
BYTE#)))
|
||||
|
||||
(PUTPROPS \PUTPUPBYTE DMACRO ((PUP BYTE# VALUE)
|
||||
(\PUTBASEBYTE (fetch PUPCONTENTS of PUP)
|
||||
BYTE# VALUE)))
|
||||
(PUTPROPS \PUTPUPBYTE DMACRO ((PUP BYTE# VALUE)
|
||||
(\PUTBASEBYTE (fetch PUPCONTENTS of PUP)
|
||||
BYTE# VALUE)))
|
||||
)
|
||||
|
||||
(RPAQQ RAWPUPTYPES ((\PT.ECHOME 1)
|
||||
(\PT.IAMECHO 2)
|
||||
(\PT.IAMBADECHO 3)
|
||||
(\PT.ERROR 4)
|
||||
(\PT.RFC 10Q)
|
||||
(\PT.ABORT 11Q)
|
||||
(\PT.END 12Q)
|
||||
(\PT.ENDREPLY 13Q)
|
||||
(\PT.DATA 20Q)
|
||||
(\PT.ADATA 21Q)
|
||||
(\PT.ACK 22Q)
|
||||
(\PT.MARK 23Q)
|
||||
(\PT.INTERRUPT 24Q)
|
||||
(\PT.INTERRUPTREPLY 25Q)
|
||||
(\PT.AMARK 26Q)
|
||||
(\PT.GATEWAYREQUEST 200Q)
|
||||
(\PT.GATEWAYRESPONSE 201Q)
|
||||
(\PT.ALTOTIMEREQUEST 206Q)
|
||||
(\PT.ALTOTIMERESPONSE 207Q)
|
||||
(\PT.MSGCHECK 210Q)
|
||||
(\PT.NEWMAIL 211Q)
|
||||
(\PT.NONEWMAIL 212Q)
|
||||
(\PT.NOMAILBOX 213Q)
|
||||
(\PT.LAURELCHECK 214Q)
|
||||
(\PT.NAMELOOKUP 220Q)
|
||||
(\PT.NAMERESPONSE 221Q)
|
||||
(\PT.NAME/ADDRERROR 222Q)
|
||||
(\PT.ADDRLOOKUP 223Q)
|
||||
(\PT.ADDRRESPONSE 224Q)
|
||||
(\PT.PRINTERSTATUS 200Q)
|
||||
(\PT.STATUSRESPONSE 201Q)
|
||||
(\PT.PRINTERCAPABILITY 202Q)
|
||||
(\PT.CAPABILITYRESPONSE 203Q)
|
||||
(\PT.PRINTJOBSTATUS 204Q)
|
||||
(\PT.PRINTJOBRESPONSE 205Q)))
|
||||
(RPAQQ RAWPUPTYPES
|
||||
((\PT.ECHOME 1)
|
||||
(\PT.IAMECHO 2)
|
||||
(\PT.IAMBADECHO 3)
|
||||
(\PT.ERROR 4)
|
||||
(\PT.RFC 10Q)
|
||||
(\PT.ABORT 11Q)
|
||||
(\PT.END 12Q)
|
||||
(\PT.ENDREPLY 13Q)
|
||||
(\PT.DATA 20Q)
|
||||
(\PT.ADATA 21Q)
|
||||
(\PT.ACK 22Q)
|
||||
(\PT.MARK 23Q)
|
||||
(\PT.INTERRUPT 24Q)
|
||||
(\PT.INTERRUPTREPLY 25Q)
|
||||
(\PT.AMARK 26Q)
|
||||
(\PT.GATEWAYREQUEST 200Q)
|
||||
(\PT.GATEWAYRESPONSE 201Q)
|
||||
(\PT.ALTOTIMEREQUEST 206Q)
|
||||
(\PT.ALTOTIMERESPONSE 207Q)
|
||||
(\PT.MSGCHECK 210Q)
|
||||
(\PT.NEWMAIL 211Q)
|
||||
(\PT.NONEWMAIL 212Q)
|
||||
(\PT.NOMAILBOX 213Q)
|
||||
(\PT.LAURELCHECK 214Q)
|
||||
(\PT.NAMELOOKUP 220Q)
|
||||
(\PT.NAMERESPONSE 221Q)
|
||||
(\PT.NAME/ADDRERROR 222Q)
|
||||
(\PT.ADDRLOOKUP 223Q)
|
||||
(\PT.ADDRRESPONSE 224Q)
|
||||
(\PT.PRINTERSTATUS 200Q)
|
||||
(\PT.STATUSRESPONSE 201Q)
|
||||
(\PT.PRINTERCAPABILITY 202Q)
|
||||
(\PT.CAPABILITYRESPONSE 203Q)
|
||||
(\PT.PRINTJOBSTATUS 204Q)
|
||||
(\PT.PRINTJOBRESPONSE 205Q)))
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RPAQQ \PT.ECHOME 1)
|
||||
@@ -2151,9 +2096,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
[PUTPROPS PUPDEBUGGING MACRO ((X . Y)
|
||||
(COND
|
||||
(PUPTRACEFLG (printout PUPTRACEFILE X . Y]
|
||||
(PUTPROPS PUPDEBUGGING MACRO [(X . Y)
|
||||
(COND
|
||||
(PUPTRACEFLG (printout PUPTRACEFILE X . Y])
|
||||
)
|
||||
|
||||
|
||||
@@ -2521,36 +2466,35 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992,
|
||||
LLETHER)
|
||||
)
|
||||
|
||||
(PUTPROPS PUP MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q))
|
||||
(PUTPROPS PUP MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q))
|
||||
|
||||
(PUTPROPS PUP FILETYPE CL:COMPILE-FILE)
|
||||
(PUTPROPS PUP FILETYPE CL:COMPILE-FILE)
|
||||
(PUTPROPS PUP COPYRIGHT ("Venue & Xerox Corporation" 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3705Q
|
||||
3706Q 3707Q 3710Q 3711Q))
|
||||
3706Q 3707Q 3710Q 3711Q 3745Q))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (30620Q 64575Q (\STARTPUP 30632Q . 31504Q) (ASSURE.PUP.READY 31506Q . 37601Q) (
|
||||
\FIND.LOCALPUPHOSTNUMBER 37603Q . 42001Q) (\PROMPT.FOR.PUP.NUMBER 42003Q . 44023Q) (\HANDLE.RAW.PUP
|
||||
44025Q . 62125Q) (\FORWARD.PUP 62127Q . 63047Q) (\SETPUPCHECKSUM 63051Q . 64573Q)) (72106Q 77200Q (
|
||||
\PUPERROR 72120Q . 77176Q)) (77237Q 116373Q (SETUPPUP 77251Q . 102437Q) (SWAPPUPPORTS 102441Q .
|
||||
103256Q) (GETPUP 103260Q . 106172Q) (SENDPUP 106174Q . 112016Q) (EXCHANGEPUPS 112020Q . 114056Q) (
|
||||
DISCARDPUPS 114060Q . 114664Q) (GETPUPWORD 114666Q . 115205Q) (\PUPINIT 115207Q . 116371Q)) (116374Q
|
||||
164121Q (ETHERHOSTNAME 116406Q . 125534Q) (ETHERHOSTNUMBER 125536Q . 126151Q) (ETHERPORT 126153Q .
|
||||
131672Q) (BESTPUPADDRESS 131674Q . 141734Q) (NETDAYTIME0 141736Q . 142267Q) (\PUP.SETTIME 142271Q .
|
||||
147063Q) (\SETNEWTIME0 147065Q . 150145Q) (\NET.SETTIME 150147Q . 151236Q) (NETDATE 151240Q . 151575Q)
|
||||
(\LOOKUPPORT 151577Q . 157436Q) (\PARSE.PORTCONSTANT 157440Q . 162550Q) (\FIXLOCALNET 162552Q .
|
||||
164117Q)) (164122Q 165457Q (PORTSTRING 164134Q . 165123Q) (OCTALSTRING 165125Q . 165455Q)) (166051Q
|
||||
175162Q (CLEARPUP 166063Q . 170576Q) (PUTPUPWORD 170600Q . 171125Q) (GETPUPBYTE 171127Q . 171452Q) (
|
||||
PUTPUPBYTE 171454Q . 172005Q) (GETPUPSTRING 172007Q . 173440Q) (GETPUPSTREAM 173442Q . 174371Q) (
|
||||
PUTPUPSTRING 174373Q . 175160Q)) (177265Q 205104Q (READPLIST 177277Q . 205102Q)) (205265Q 213311Q (
|
||||
CANONICAL.HOSTNAME 205277Q . 210121Q) (\CANONICAL.HOSTNAME 210123Q . 211170Q) (
|
||||
\CANONICALIZE.PUP.HOSTNAME 211172Q . 213307Q)) (216177Q 251404Q (\PUPGATELISTENER 216211Q . 222042Q) (
|
||||
\HANDLE.PUP.ROUTING.INFO 222044Q . 234403Q) (\ROUTE.PUP 234405Q . 240240Q) (\LOCATE.PUPNET 240242Q .
|
||||
244777Q) (SORT.PUPHOSTS.BY.DISTANCE 245001Q . 247255Q) (\PUPNET.CLOSERP 247257Q . 250440Q) (
|
||||
PUPNET.DISTANCE 250442Q . 251402Q)) (263001Q 272753Q (OPENPUPSOCKET 263013Q . 267474Q) (CLOSEPUPSOCKET
|
||||
267476Q . 271155Q) (PUPSOCKETNUMBER 271157Q . 271410Q) (PUPSOCKETFROMNUMBER 271412Q . 272051Q) (
|
||||
PUPSOCKETEVENT 272053Q . 272332Q) (\FLUSHPUPSOCQUEUE 272334Q . 272751Q)) (272754Q 273521Q (
|
||||
\GETMISCSOCKET 272766Q . 273517Q)) (314367Q 327157Q (PUP.ECHOSERVER 314401Q . 317206Q) (PUP.ECHOUSER
|
||||
317210Q . 327155Q)) (327210Q 336341Q (\PEEKPUP 327222Q . 334353Q) (\MAYBEPEEKPUP 334355Q . 336337Q)) (
|
||||
336742Q 350177Q (PRINTPUP 336754Q . 343124Q) (PRINTPUPROUTE 343126Q . 345073Q) (PRINTPUPDATA 345075Q
|
||||
. 345545Q) (PRINTERRORPUP 345547Q . 346247Q) (PUPTRACE 346251Q . 346562Q) (PRINTCONSTANT 346564Q .
|
||||
350175Q)))))
|
||||
(FILEMAP (NIL (25631Q 61606Q (\STARTPUP 25643Q . 26515Q) (ASSURE.PUP.READY 26517Q . 34612Q) (
|
||||
\FIND.LOCALPUPHOSTNUMBER 34614Q . 37012Q) (\PROMPT.FOR.PUP.NUMBER 37014Q . 41034Q) (\HANDLE.RAW.PUP
|
||||
41036Q . 57136Q) (\FORWARD.PUP 57140Q . 60060Q) (\SETPUPCHECKSUM 60062Q . 61604Q)) (66376Q 73470Q (
|
||||
\PUPERROR 66410Q . 73466Q)) (73527Q 112663Q (SETUPPUP 73541Q . 76727Q) (SWAPPUPPORTS 76731Q . 77546Q)
|
||||
(GETPUP 77550Q . 102462Q) (SENDPUP 102464Q . 106306Q) (EXCHANGEPUPS 106310Q . 110346Q) (DISCARDPUPS
|
||||
110350Q . 111154Q) (GETPUPWORD 111156Q . 111475Q) (\PUPINIT 111477Q . 112661Q)) (112664Q 154244Q (
|
||||
ETHERHOSTNAME 112676Q . 122024Q) (ETHERHOSTNUMBER 122026Q . 122441Q) (ETHERPORT 122443Q . 126162Q) (
|
||||
BESTPUPADDRESS 126164Q . 136224Q) (NETDAYTIME0 136226Q . 136557Q) (\PUP.SETTIME 136561Q . 137206Q) (
|
||||
\SETNEWTIME0 137210Q . 140270Q) (\NET.SETTIME 140272Q . 141361Q) (NETDATE 141363Q . 141720Q) (
|
||||
\LOOKUPPORT 141722Q . 147561Q) (\PARSE.PORTCONSTANT 147563Q . 152673Q) (\FIXLOCALNET 152675Q . 154242Q
|
||||
)) (154245Q 155602Q (PORTSTRING 154257Q . 155246Q) (OCTALSTRING 155250Q . 155600Q)) (156174Q 165305Q (
|
||||
CLEARPUP 156206Q . 160721Q) (PUTPUPWORD 160723Q . 161250Q) (GETPUPBYTE 161252Q . 161575Q) (PUTPUPBYTE
|
||||
161577Q . 162130Q) (GETPUPSTRING 162132Q . 163563Q) (GETPUPSTREAM 163565Q . 164514Q) (PUTPUPSTRING
|
||||
164516Q . 165303Q)) (167410Q 175227Q (READPLIST 167422Q . 175225Q)) (175410Q 200610Q (
|
||||
\CANONICAL.HOSTNAME 175422Q . 176467Q) (\CANONICALIZE.PUP.HOSTNAME 176471Q . 200606Q)) (203163Q
|
||||
236370Q (\PUPGATELISTENER 203175Q . 207026Q) (\HANDLE.PUP.ROUTING.INFO 207030Q . 221367Q) (\ROUTE.PUP
|
||||
221371Q . 225224Q) (\LOCATE.PUPNET 225226Q . 231763Q) (SORT.PUPHOSTS.BY.DISTANCE 231765Q . 234241Q) (
|
||||
\PUPNET.CLOSERP 234243Q . 235424Q) (PUPNET.DISTANCE 235426Q . 236366Q)) (250017Q 257771Q (
|
||||
OPENPUPSOCKET 250031Q . 254512Q) (CLOSEPUPSOCKET 254514Q . 256173Q) (PUPSOCKETNUMBER 256175Q . 256426Q
|
||||
) (PUPSOCKETFROMNUMBER 256430Q . 257067Q) (PUPSOCKETEVENT 257071Q . 257350Q) (\FLUSHPUPSOCQUEUE
|
||||
257352Q . 257767Q)) (257772Q 260537Q (\GETMISCSOCKET 260004Q . 260535Q)) (300551Q 313341Q (
|
||||
PUP.ECHOSERVER 300563Q . 303370Q) (PUP.ECHOUSER 303372Q . 313337Q)) (313372Q 322523Q (\PEEKPUP 313404Q
|
||||
. 320535Q) (\MAYBEPEEKPUP 320537Q . 322521Q)) (323124Q 334361Q (PRINTPUP 323136Q . 327306Q) (
|
||||
PRINTPUPROUTE 327310Q . 331255Q) (PRINTPUPDATA 331257Q . 331727Q) (PRINTERRORPUP 331731Q . 332431Q) (
|
||||
PUPTRACE 332433Q . 332744Q) (PRINTCONSTANT 332746Q . 334357Q)))))
|
||||
STOP
|
||||
|
||||
BIN
sources/PUP.LCOM
BIN
sources/PUP.LCOM
Binary file not shown.
Reference in New Issue
Block a user