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