Compare commits
10 Commits
medley-210
...
test
| Author | SHA1 | Date | |
|---|---|---|---|
|
8ec1ca966d | ||
|
c55239f744 | ||
|
|
d6f7ad7de9 | ||
|
|
0236971881 | ||
|
|
d04f734295 | ||
|
|
27a52b6ce0 | ||
|
|
0e2e16f183 | ||
|
b760d005fb | ||
|
|
95c9496780 | ||
|
|
4bb4457d55 |
19
greetfiles/NOGREET
Normal file
19
greetfiles/NOGREET
Normal file
@@ -0,0 +1,19 @@
|
|||||||
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
|
(FILECREATED "10-Sep-2021 21:25:42" {DSK}<home>larry>medley>greetfiles>NOGREET.;1 537 )
|
||||||
|
|
||||||
|
|
||||||
|
(PRETTYCOMPRINT NOGREETCOMS)
|
||||||
|
|
||||||
|
(RPAQQ NOGREETCOMS [(P (COND ((STKPOS 'GREET)
|
||||||
|
(SETQ USERGREETFILES NIL)
|
||||||
|
(CLOSEF? (INPUT))
|
||||||
|
(RETFROM 'GREET])
|
||||||
|
|
||||||
|
[COND
|
||||||
|
((STKPOS 'GREET)
|
||||||
|
(SETQ USERGREETFILES NIL)
|
||||||
|
(CLOSEF? (INPUT))
|
||||||
|
(RETFROM 'GREET]
|
||||||
|
(DECLARE%: DONTCOPY
|
||||||
|
(FILEMAP (NIL)))
|
||||||
|
STOP
|
||||||
Binary file not shown.
Binary file not shown.
103
run-medley
103
run-medley
@@ -1,16 +1,18 @@
|
|||||||
#!/bin/sh
|
#!/bin/sh
|
||||||
# Run Medley
|
# Run Medley
|
||||||
#
|
#
|
||||||
# Syntax: run-medley [--dimensions WIDTHxHEIGHT] \ sets both -g -sc
|
# Syntax: run-medley [--dimensions WIDTHxHEIGHT] # sets both -g -sc
|
||||||
# [-g WIDTHxHEIGHT] \
|
# [-g WIDTHxHEIGHT]
|
||||||
# [-sc WIDTHxHEIGHT] \
|
# [-sc WIDTHxHEIGHT]
|
||||||
# [--display X_DISPLAY] \
|
# [--display X_DISPLAY] # defaults to $DISPLAY or :0
|
||||||
# [--vmem | --vmfile FILE] \
|
# [-prog LDEFILE]
|
||||||
# [--nogreet | --greet FILE] \
|
# [--vmem | --vmfile FILE]
|
||||||
# [-n | -nl |
|
# [--nogreet | --greet FILE |
|
||||||
# [URL_OR_FILE]
|
# --loadup FILE ] # will separate from GREET
|
||||||
|
# [-n | -nl | -full | -lisp |
|
||||||
|
# [SYSOUTFILE]
|
||||||
|
|
||||||
# Directory variables are accessible from Lisp via UNIX-GETENV
|
# Variables accessible from Lisp via UNIX-GETENV
|
||||||
# LDESRCESYSOUT SYSOUT full-file name you want to run
|
# LDESRCESYSOUT SYSOUT full-file name you want to run
|
||||||
# LDEDESTSYSOUT name for destination of SaveVM/LOGOUT
|
# LDEDESTSYSOUT name for destination of SaveVM/LOGOUT
|
||||||
# MEDLEYDIR used by init file to set other path variables
|
# MEDLEYDIR used by init file to set other path variables
|
||||||
@@ -53,8 +55,17 @@ export LDEKBDTYPE=x
|
|||||||
|
|
||||||
while [ "$#" -ne 0 ]; do
|
while [ "$#" -ne 0 ]; do
|
||||||
case "$1" in
|
case "$1" in
|
||||||
|
"-loadup")
|
||||||
|
export MEDLEYLOADUP="$2"
|
||||||
|
export LDEINIT="$2"
|
||||||
|
shift
|
||||||
|
;;
|
||||||
"-nogreet" | "--nogreet")
|
"-nogreet" | "--nogreet")
|
||||||
export LDEINIT=""
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LDEINIT="$MEDLEYDIR/greetfiles/NOGREET"
|
||||||
;;
|
;;
|
||||||
"-greet" | "--greet")
|
"-greet" | "--greet")
|
||||||
export LDEINIT="$2"
|
export LDEINIT="$2"
|
||||||
@@ -120,8 +131,6 @@ while [ "$#" -ne 0 ]; do
|
|||||||
shift
|
shift
|
||||||
done
|
done
|
||||||
|
|
||||||
# not set on command line
|
|
||||||
|
|
||||||
if [ -z "$LDESRCESYSOUT" ] ; then
|
if [ -z "$LDESRCESYSOUT" ] ; then
|
||||||
if [ -f "$LDEDESTSYSOUT" ] ; then
|
if [ -f "$LDEDESTSYSOUT" ] ; then
|
||||||
export LDESRCESYSOUT="$LDEDESTSYSOUT"
|
export LDESRCESYSOUT="$LDEDESTSYSOUT"
|
||||||
@@ -136,45 +145,39 @@ if [ -z "$geometry" ] ; then
|
|||||||
screensize="-sc 1440x900"
|
screensize="-sc 1440x900"
|
||||||
fi
|
fi
|
||||||
|
|
||||||
case "$LDESRCSYSOUT" in
|
|
||||||
"http:*" | "https:*")
|
|
||||||
echo URL not supported yet
|
|
||||||
exit 1
|
|
||||||
esac
|
|
||||||
|
|
||||||
inferred_maikodir=false
|
|
||||||
|
|
||||||
if [ -z "$MAIKODIR" ] ; then
|
|
||||||
# here we try two options relative to MEDLEYDIR: ./maiko and ../maiko
|
|
||||||
# this is highly imperfect, but the user can always set the env variables
|
|
||||||
export MAIKODIR="$MEDLEYDIR/../maiko"
|
|
||||||
if [ ! -d "$MAIKODIR" ] ; then
|
|
||||||
export MAIKODIR="$MEDLEYDIR/maiko"
|
|
||||||
fi
|
|
||||||
inferred_maikodir=true
|
|
||||||
fi
|
|
||||||
|
|
||||||
if [ ! -d "$MAIKODIR/bin" ] ; then
|
|
||||||
echo "MAIKODIR has no bin: $MAIKODIR"
|
|
||||||
if [ inferred_maikodir = true ] ; then
|
|
||||||
echo "I tried to infer it based on your working directory, but that didn't work."
|
|
||||||
echo "Try setting the MAIKODIR environment variable to the right location."
|
|
||||||
fi
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
|
|
||||||
|
|
||||||
oldpath="$PATH"
|
|
||||||
|
|
||||||
export PATH=.:"$PATH"
|
|
||||||
cd "$MAIKODIR"/bin
|
|
||||||
export PATH="$MAIKODIR"/`osversion`.`machinetype`:"$oldpath"
|
|
||||||
|
|
||||||
cd "$OLDPWD"
|
|
||||||
|
|
||||||
if ! command -v "$prog" > /dev/null 2>&1; then
|
if ! command -v "$prog" > /dev/null 2>&1; then
|
||||||
echo "$prog" not found
|
# if lde is already on path, don't reset it
|
||||||
exit 1
|
# otherwise check for MAIKODIR
|
||||||
|
|
||||||
|
if [ -z "$MAIKODIR" ] ; then
|
||||||
|
# try two options relative to MEDLEYDIR: ./maiko and ../maiko
|
||||||
|
MAIKODIR="$MEDLEYDIR/../maiko"
|
||||||
|
if ! command -v "$MAIKODIR/bin/osversion" > /dev/null 2>&1; then
|
||||||
|
MAIKODIR="$MEDLEYDIR/maiko"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
if ! command -v "$MAIKODIR/bin/osversion" > /dev/null 2>&1; then
|
||||||
|
echo "Could not find 'lde' on PATH"
|
||||||
|
echo "nor MAIKODIR with 'bin/osversion' (to look for it)"
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
oldpath="$PATH"
|
||||||
|
oldpwd=`pwd`
|
||||||
|
PATH=.:"$PATH"
|
||||||
|
cd "$MAIKODIR"/bin
|
||||||
|
osv=`osversion`
|
||||||
|
mct=`machinetype`
|
||||||
|
newpath="$MAIKODIR"/"$osv.$mct"
|
||||||
|
PATH="$newpath":"$oldpath"
|
||||||
|
cd "$oldpwd"
|
||||||
|
if ! command -v $prog > /dev/null 2>&1; then
|
||||||
|
echo $prog not found in $newpath
|
||||||
|
echo osversion = $osv
|
||||||
|
echo machinetype = $mct
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
fi
|
fi
|
||||||
|
|
||||||
echo "running: $prog $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"
|
echo "running: $prog $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"
|
||||||
|
|||||||
@@ -7,10 +7,6 @@ if [ ! -x run-medley ] ; then
|
|||||||
exit 1
|
exit 1
|
||||||
fi
|
fi
|
||||||
|
|
||||||
# set timestamp
|
|
||||||
mkdir -p ./tmp
|
|
||||||
touch ./tmp/loadup.timestamp
|
|
||||||
|
|
||||||
./scripts/loadup-init.sh && \
|
./scripts/loadup-init.sh && \
|
||||||
./scripts/loadup-mid-from-init.sh && \
|
./scripts/loadup-mid-from-init.sh && \
|
||||||
./scripts/loadup-lisp-from-mid.sh && \
|
./scripts/loadup-lisp-from-mid.sh && \
|
||||||
|
|||||||
@@ -9,10 +9,15 @@ fi
|
|||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|
||||||
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
scr="-sc 1024x768 -g 1042x790"
|
scr="-sc 1024x768 -g 1042x790"
|
||||||
|
|
||||||
echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > tmp/loadup-aux.cm
|
echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > tmp/loadup-aux.cm
|
||||||
./run-medley $scr -greet "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
|
./run-medley $scr -loadup "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
|
||||||
|
|
||||||
if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
|
if [ tmp/whereis.hash -nt tmp/loadup.timestamp ]; then
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,12 @@ scr="-sc 1024x768 -g 1042x790"
|
|||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|
||||||
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
|
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/tmp/lisp.sysout"
|
||||||
|
|
||||||
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
|
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
|
||||||
|
|
||||||
|
|||||||
@@ -6,11 +6,17 @@ if [ ! -x run-medley ] ; then
|
|||||||
echo must run from MEDLEYDIR ;
|
echo must run from MEDLEYDIR ;
|
||||||
exit 1 ;
|
exit 1 ;
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
scr="-sc 1024x768 -g 1042x790"
|
scr="-sc 1024x768 -g 1042x790"
|
||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|
||||||
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/loadups/lisp.sysout"
|
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "$MEDLEYDIR/loadups/lisp.sysout"
|
||||||
|
|
||||||
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
|
if [ tmp/full.sysout -nt tmp/loadup.timestamp ]; then
|
||||||
|
|
||||||
|
|||||||
@@ -9,10 +9,14 @@ fi
|
|||||||
|
|
||||||
scr="-sc 1024x768 -g 1042x790"
|
scr="-sc 1024x768 -g 1042x790"
|
||||||
|
|
||||||
mkdir -p "$MEDLEYDIR/tmp"
|
# Keep (GREET) from finding an init file
|
||||||
|
mkdir -p $MEDLEYDIR/tmp/logindir
|
||||||
|
export HOME=$MEDLEYDIR/tmp/logindir
|
||||||
|
export LOGINDIR=$MEDLEYDIR/tmp/logindir
|
||||||
|
|
||||||
touch tmp/loadup.timestamp
|
touch tmp/loadup.timestamp
|
||||||
|
|
||||||
./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP loadups/starter.sysout
|
./run-medley $scr -loadup "$MEDLEYDIR"/sources/LOADUP-INIT.LISP loadups/starter.sysout
|
||||||
|
|
||||||
if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
|
if [ tmp/init.dlinit -nt tmp/loadup.timestamp ]; then
|
||||||
|
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ touch tmp/loadup.timestamp
|
|||||||
scr="-sc 1024x768 -g 1042x790"
|
scr="-sc 1024x768 -g 1042x790"
|
||||||
|
|
||||||
|
|
||||||
./run-medley $scr -greet "$MEDLEYDIR/sources/LOADUP-LISP.CM" tmp/init-mid.sysout
|
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-LISP.CM" tmp/init-mid.sysout
|
||||||
|
|
||||||
if [ tmp/lisp.sysout -nt tmp/loadup.timestamp ]; then
|
if [ tmp/lisp.sysout -nt tmp/loadup.timestamp ]; then
|
||||||
|
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ touch tmp/loadup.timestamp
|
|||||||
|
|
||||||
scr="-sc 1024x768 -g 1042x790"
|
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 -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
|
||||||
|
|
||||||
|
|
||||||
echo
|
echo
|
||||||
|
|||||||
35
sources/AOFD
35
sources/AOFD
@@ -1,10 +1,11 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||||
(FILECREATED " 5-Sep-2021 08:26:16" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;7 38270
|
(FILECREATED " 9-Aug-2021 23:30:19" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;5 38301
|
||||||
|
|
||||||
changes to%: (FNS \BASEBYTES.IO.INIT \STRINGSTREAM.INIT)
|
changes to%: (VARS AOFDCOMS)
|
||||||
|
(FNS \STRINGSTREAM.INIT)
|
||||||
|
|
||||||
previous date%: " 9-Aug-2021 23:30:19"
|
previous date%: " 8-Aug-2021 00:11:00"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;6)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;4)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -803,16 +804,16 @@ Copyright (c) 1981-1987, 1990, 2021 by Venue & Xerox Corporation.
|
|||||||
)
|
)
|
||||||
(PUTPROPS AOFD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 2021))
|
(PUTPROPS AOFD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (2584 3691 (\ADD-OPEN-STREAM 2594 . 2871) (\GENERIC-UNREGISTER-STREAM 2873 . 3689)) (
|
(FILEMAP (NIL (2615 3722 (\ADD-OPEN-STREAM 2625 . 2902) (\GENERIC-UNREGISTER-STREAM 2904 . 3720)) (
|
||||||
3732 10989 (CLOSEALL 3742 . 4447) (CLOSEF 4449 . 5645) (EOFCLOSEF 5647 . 5943) (INPUT 5945 . 6717) (
|
3763 11020 (CLOSEALL 3773 . 4478) (CLOSEF 4480 . 5676) (EOFCLOSEF 5678 . 5974) (INPUT 5976 . 6748) (
|
||||||
OPENP 6719 . 7118) (OUTPUT 7120 . 7894) (POSITION 7896 . 8708) (RANDACCESSP 8710 . 9185) (\IOMODEP
|
OPENP 6750 . 7149) (OUTPUT 7151 . 7925) (POSITION 7927 . 8739) (RANDACCESSP 8741 . 9216) (\IOMODEP
|
||||||
9187 . 9824) (WHENCLOSE 9826 . 10987)) (10990 11112 (STREAMADDPROP 11000 . 11110)) (12276 25157 (
|
9218 . 9855) (WHENCLOSE 9857 . 11018)) (11021 11143 (STREAMADDPROP 11031 . 11141)) (12307 25188 (
|
||||||
\BASEBYTES.IO.INIT 12286 . 15482) (\MAKEBASEBYTESTREAM 15484 . 18796) (\MBS.OUTCHARFN 18798 . 19186) (
|
\BASEBYTES.IO.INIT 12317 . 15513) (\MAKEBASEBYTESTREAM 15515 . 18827) (\MBS.OUTCHARFN 18829 . 19217) (
|
||||||
\BASEBYTES.NAME.FROM.STREAM 19188 . 19651) (\BASEBYTES.BOUT 19653 . 20370) (\BASEBYTES.SETFILEPTR
|
\BASEBYTES.NAME.FROM.STREAM 19219 . 19682) (\BASEBYTES.BOUT 19684 . 20401) (\BASEBYTES.SETFILEPTR
|
||||||
20372 . 20993) (\BASEBYTES.READP 20995 . 21631) (\BASEBYTES.BIN 21633 . 22164) (\BASEBYTES.PEEKBIN
|
20403 . 21024) (\BASEBYTES.READP 21026 . 21662) (\BASEBYTES.BIN 21664 . 22195) (\BASEBYTES.PEEKBIN
|
||||||
22166 . 22997) (\BASEBYTES.TRUNCATEFN 22999 . 23503) (\BASEBYTES.OPENFN 23505 . 23995) (
|
22197 . 23028) (\BASEBYTES.TRUNCATEFN 23030 . 23534) (\BASEBYTES.OPENFN 23536 . 24026) (
|
||||||
\BASEBYTES.BLOCKIO 23997 . 25155)) (25280 28589 (OPENSTRINGSTREAM 25290 . 27007) (MAKE-STRING-FORMAT
|
\BASEBYTES.BLOCKIO 24028 . 25186)) (25311 28620 (OPENSTRINGSTREAM 25321 . 27038) (MAKE-STRING-FORMAT
|
||||||
27009 . 28587)) (28861 33522 (\STRINGSTREAM.INIT 28871 . 33520)) (33599 37171 (GETSTREAM 33609 . 33832
|
27040 . 28618)) (28892 33553 (\STRINGSTREAM.INIT 28902 . 33551)) (33630 37202 (GETSTREAM 33640 . 33863
|
||||||
) (\ADDOFD 33834 . 34121) (\CLEAROFD 34123 . 34404) (\DELETEOFD 34406 . 34557) (\GETSTREAM 34559 .
|
) (\ADDOFD 33865 . 34152) (\CLEAROFD 34154 . 34435) (\DELETEOFD 34437 . 34588) (\GETSTREAM 34590 .
|
||||||
36723) (\SEARCHOPENFILES 36725 . 37169)))))
|
36754) (\SEARCHOPENFILES 36756 . 37200)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,13 +1,13 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED "23-May-91 14:25:00" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>ASTACK.;4| 43099
|
(FILECREATED "11-Sep-2021 12:54:19" {DSK}<home>larry>medley>sources>ASTACK.;2 43098
|
||||||
|
|
||||||
changes to%: (FNS \STKARG)
|
changes to%: (FNS STKARGNAME)
|
||||||
|
|
||||||
previous date%: "20-Feb-91 13:47:06" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>ASTACK.;3|)
|
previous date%: "23-May-91 14:25:00" {DSK}<home>larry>medley>sources>ASTACK.;1)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Corporation. All rights reserved.
|
Copyright (c) 1982-1987, 1990-1991 by Venue & Xerox Corporation.
|
||||||
")
|
")
|
||||||
|
|
||||||
(PRETTYCOMPRINT ASTACKCOMS)
|
(PRETTYCOMPRINT ASTACKCOMS)
|
||||||
@@ -501,7 +501,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Co
|
|||||||
(T (LISPERROR "ILLEGAL STACK ARG" N])
|
(T (LISPERROR "ILLEGAL STACK ARG" N])
|
||||||
|
|
||||||
(STKARGNAME
|
(STKARGNAME
|
||||||
[LAMBDA (N POS) (* ; "Edited 18-Feb-91 16:55 by jds")
|
[LAMBDA (N POS NOERROR) (* ; "Edited 11-Sep-2021 12:51 by larry")
|
||||||
|
|
||||||
(* ;; "Given an interpreted frame and an argument number, return the name of that argument (actually, just the n-th NameTable entry)")
|
(* ;; "Given an interpreted frame and an argument number, return the name of that argument (actually, just the n-th NameTable entry)")
|
||||||
|
|
||||||
@@ -552,6 +552,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Co
|
|||||||
WORDSPERCELL]
|
WORDSPERCELL]
|
||||||
(RETURN)))
|
(RETURN)))
|
||||||
(MAKE-NTENTRY PVARCODE (SUB1 NTENTRY)))
|
(MAKE-NTENTRY PVARCODE (SUB1 NTENTRY)))
|
||||||
|
(NOERROR (RETURN))
|
||||||
(T (LISPERROR "ILLEGAL STACK ARG" N]
|
(T (LISPERROR "ILLEGAL STACK ARG" N]
|
||||||
(RETURN (for NT1 from (fetch (FNHEADER OVERHEADWORDS) of T)
|
(RETURN (for NT1 from (fetch (FNHEADER OVERHEADWORDS) of T)
|
||||||
by (CONSTANT (WORDSPERNAMEENTRY)) as NT2
|
by (CONSTANT (WORDSPERNAMEENTRY)) as NT2
|
||||||
@@ -789,13 +790,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1990, 1991 by Venue & Xerox Co
|
|||||||
)
|
)
|
||||||
(PUTPROPS ASTACK COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991))
|
(PUTPROPS ASTACK COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (1519 4724 (ARG 1529 . 1688) (SETARG 1690 . 1874) (\ARG 1876 . 2111) (\ARGPTR 2113 .
|
(FILEMAP (NIL (1470 4675 (ARG 1480 . 1639) (SETARG 1641 . 1825) (\ARG 1827 . 2062) (\ARGPTR 2064 .
|
||||||
4455) (\SETARG 4457 . 4722)) (4725 8940 (\RETURN 4735 . 5093) (\STACKARGPTR 5095 . 8938)) (8985 12362
|
4406) (\SETARG 4408 . 4673)) (4676 8891 (\RETURN 4686 . 5044) (\STACKARGPTR 5046 . 8889)) (8936 12313
|
||||||
(STKNTH 8995 . 9893) (STKNTHNAME 9895 . 10782) (STKNAME 10784 . 10929) (SETSTKNAME 10931 . 12360)) (
|
(STKNTH 8946 . 9844) (STKNTHNAME 9846 . 10733) (STKNAME 10735 . 10880) (SETSTKNAME 10882 . 12311)) (
|
||||||
12363 16138 (STKPOS 12373 . 13294) (STKSCAN 13296 . 13942) (RETFROM 13944 . 14298) (RETTO 14300 .
|
12314 16089 (STKPOS 12324 . 13245) (STKSCAN 13247 . 13893) (RETFROM 13895 . 14249) (RETTO 14251 .
|
||||||
14575) (RESUME 14577 . 15950) (\RESUME 15952 . 16136)) (16139 42186 (STKARG 16149 . 16484) (\STKARG
|
14526) (RESUME 14528 . 15901) (\RESUME 15903 . 16087)) (16090 42185 (STKARG 16100 . 16435) (\STKARG
|
||||||
16486 . 21189) (SETSTKARG 21191 . 25374) (STKARGNAME 25376 . 29599) (\SPREADFRAMEP 29601 . 30142) (
|
16437 . 21140) (SETSTKARG 21142 . 25325) (STKARGNAME 25327 . 29598) (\SPREADFRAMEP 29600 . 30141) (
|
||||||
SETSTKARGNAME 30144 . 33435) (STKNARGS 33437 . 35846) (FRAMESCAN 35848 . 36298) (\INTERPFRAMENT 36300
|
SETSTKARGNAME 30143 . 33434) (STKNARGS 33436 . 35845) (FRAMESCAN 35847 . 36297) (\INTERPFRAMENT 36299
|
||||||
. 36700) (\FRAMESCAN 36702 . 39755) (\VAROFFSET 39757 . 42184)) (42228 42781 (\RECLAIMSTACKP 42238 .
|
. 36699) (\FRAMESCAN 36701 . 39754) (\VAROFFSET 39756 . 42183)) (42227 42780 (\RECLAIMSTACKP 42237 .
|
||||||
42779)))))
|
42778)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,10 +1,10 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:38" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;5 57504
|
(FILECREATED " 7-Aug-2021 12:47:09" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;3 57513
|
||||||
|
|
||||||
changes to%: (FNS \INITBCPLDISPLAY)
|
changes to%: (FNS \FILLBUFFER)
|
||||||
|
|
||||||
previous date%: " 7-Aug-2021 12:47:09"
|
previous date%: "23-Jun-2021 12:31:16"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;4)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;2)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -1142,18 +1142,18 @@ Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation.
|
|||||||
)
|
)
|
||||||
(PUTPROPS ATERM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 2021))
|
(PUTPROPS ATERM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (2983 31940 (BKLINBUF 2993 . 3468) (CLEARBUF 3470 . 4802) (LINBUF 4804 . 4990) (
|
(FILEMAP (NIL (2992 31949 (BKLINBUF 3002 . 3477) (CLEARBUF 3479 . 4811) (LINBUF 4813 . 4999) (
|
||||||
PAGEFULLFN 4992 . 6473) (SETLINELENGTH 6475 . 6671) (SYSBUF 6673 . 6859) (TERMCHARWIDTH 6861 . 7278) (
|
PAGEFULLFN 5001 . 6482) (SETLINELENGTH 6484 . 6680) (SYSBUF 6682 . 6868) (TERMCHARWIDTH 6870 . 7287) (
|
||||||
TERMINAL-INPUT 7280 . 7848) (TERMINAL-OUTPUT 7850 . 8436) (\CHDEL1 8438 . 8707) (\CLOSELINE 8709 .
|
TERMINAL-INPUT 7289 . 7857) (TERMINAL-OUTPUT 7859 . 8445) (\CHDEL1 8447 . 8716) (\CLOSELINE 8718 .
|
||||||
8998) (\DECPARENCOUNT 9000 . 10583) (\ECHOCHAR 10585 . 11277) (\FILLBUFFER 11279 . 24270) (
|
9007) (\DECPARENCOUNT 9009 . 10592) (\ECHOCHAR 10594 . 11286) (\FILLBUFFER 11288 . 24279) (
|
||||||
\FILLBUFFER.WORDSEPRP 24272 . 24517) (\FILLBUFFER.BACKUP 24519 . 24698) (\GETCHAR 24700 . 25089) (
|
\FILLBUFFER.WORDSEPRP 24281 . 24526) (\FILLBUFFER.BACKUP 24528 . 24707) (\GETCHAR 24709 . 25098) (
|
||||||
\INCPARENCOUNT 25091 . 27703) (\RESETLINE 27705 . 28029) (\RESETTERMINAL 28031 . 28795) (\SAVELINEBUF
|
\INCPARENCOUNT 25100 . 27712) (\RESETLINE 27714 . 28038) (\RESETTERMINAL 28040 . 28804) (\SAVELINEBUF
|
||||||
28797 . 30768) (\STOPSCROLL? 30770 . 31938)) (32151 36007 (\DSCCOUT 32161 . 35301) (\INITBCPLDISPLAY
|
28806 . 30777) (\STOPSCROLL? 30779 . 31947)) (32160 36016 (\DSCCOUT 32170 . 35310) (\INITBCPLDISPLAY
|
||||||
35303 . 36005)) (36200 37450 (VIDEOCOLOR 36210 . 37448)) (38282 44136 (\PEEKREFILL 38292 . 42403) (
|
35312 . 36014)) (36209 37459 (VIDEOCOLOR 36219 . 37457)) (38291 44145 (\PEEKREFILL 38301 . 42412) (
|
||||||
\READREFILL 42405 . 42999) (\RATOM/RSTRING-REFILL 43001 . 43579) (\READCREFILL 43581 . 44134)) (44137
|
\READREFILL 42414 . 43008) (\RATOM/RSTRING-REFILL 43010 . 43588) (\READCREFILL 43590 . 44143)) (44146
|
||||||
45966 (DRIBBLE 44147 . 45748) (DRIBBLEFILE 45750 . 45964)) (45967 52642 (\SETUP.DEFAULT.LINEBUF 45977
|
45975 (DRIBBLE 44156 . 45757) (DRIBBLEFILE 45759 . 45973)) (45976 52651 (\SETUP.DEFAULT.LINEBUF 45986
|
||||||
. 48434) (\CREATELINEBUFFER 48436 . 50858) (\LINEBUF.READP 50860 . 51209) (\LINEBUF.EOFP 51211 .
|
. 48443) (\CREATELINEBUFFER 48445 . 50867) (\LINEBUF.READP 50869 . 51218) (\LINEBUF.EOFP 51220 .
|
||||||
51550) (\LINEBUF.PEEKBIN 51552 . 51759) (\OPENLINEBUF 51761 . 52640)) (52717 53956 (LINEBUFFER-EOFP
|
51559) (\LINEBUF.PEEKBIN 51561 . 51768) (\OPENLINEBUF 51770 . 52649)) (52726 53965 (LINEBUFFER-EOFP
|
||||||
52727 . 53185) (LINEBUFFER-SKIPSEPRS 53187 . 53954)) (54313 54587 (\INTERMP 54323 . 54454) (\OUTTERMP
|
52736 . 53194) (LINEBUFFER-SKIPSEPRS 53196 . 53963)) (54322 54596 (\INTERMP 54332 . 54463) (\OUTTERMP
|
||||||
54456 . 54585)))))
|
54465 . 54594)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
346
sources/BSP
346
sources/BSP
@@ -1,59 +1,58 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||||
(FILECREATED " 5-Sep-2021 08:26:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;2 149423
|
(FILECREATED "19-Jan-93 10:23:19" {DSK}<python>lde>lispcore>sources>BSP.;3 149048
|
||||||
|
|
||||||
changes to%: (FNS \BSPINIT)
|
changes to%: (RECORDS BSPSOC ACKPUP BSPSTREAM)
|
||||||
|
|
||||||
previous date%: "19-Jan-93 10:23:19"
|
previous date%: " 4-Jan-93 17:24:25" {DSK}<python>lde>lispcore>sources>BSP.;2)
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;1)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corporation.
|
Copyright (c) 1982, 1983, 1900, 1984, 1985, 1986, 1987, 1990, 1993 by Venue & Xerox Corporation. All rights reserved.
|
||||||
")
|
")
|
||||||
|
|
||||||
(PRETTYCOMPRINT BSPCOMS)
|
(PRETTYCOMPRINT BSPCOMS)
|
||||||
|
|
||||||
(RPAQQ BSPCOMS
|
(RPAQQ BSPCOMS
|
||||||
((DECLARE%: EVAL@COMPILE DONTCOPY (* ;
|
((DECLARE%: EVAL@COMPILE DONTCOPY (* ;
|
||||||
"This socket record has both RTP and BSP state info")
|
"This socket record has both RTP and BSP state info")
|
||||||
(RECORDS BSPSOC ACKPUP BSPSTREAM)
|
(RECORDS BSPSOC ACKPUP BSPSTREAM)
|
||||||
(CONSTANTS * RTPSTATES)
|
(CONSTANTS * RTPSTATES)
|
||||||
(CONSTANTS * RTPEVENTS)
|
(CONSTANTS * RTPEVENTS)
|
||||||
(CONSTANTS (WORDSPERPORT 3))
|
(CONSTANTS (WORDSPERPORT 3))
|
||||||
(MACROS RTP.OTHERFN BSP.OTHERFN BSP.INPUT.ERROR BSP.OUTPUT.ERROR \BSPINCFILEPTR))
|
(MACROS RTP.OTHERFN BSP.OTHERFN BSP.INPUT.ERROR BSP.OUTPUT.ERROR \BSPINCFILEPTR))
|
||||||
(COMS (* ;
|
(COMS (* ;
|
||||||
"User-level RTP socket manipulation")
|
"User-level RTP socket manipulation")
|
||||||
(FNS OPENRTPSOCKET CLOSERTPSOCKET \INIT.RTPPROCESS))
|
(FNS OPENRTPSOCKET CLOSERTPSOCKET \INIT.RTPPROCESS))
|
||||||
(COMS (* ; "RTP process")
|
(COMS (* ; "RTP process")
|
||||||
(FNS \RTP.SOCKET.PROCESS \RTP.HANDLE.INPUT \RTP.HANDLE.PUP \RTP.HANDLE.RFC \RTP.CLEANUP
|
(FNS \RTP.SOCKET.PROCESS \RTP.HANDLE.INPUT \RTP.HANDLE.PUP \RTP.HANDLE.RFC \RTP.CLEANUP
|
||||||
\RTP.ACTION \RTP.ERROR \RTP.SHOW.FAILURE \RTP.FILTER \SEND.ABORT
|
\RTP.ACTION \RTP.ERROR \RTP.SHOW.FAILURE \RTP.FILTER \SEND.ABORT
|
||||||
\SEND.ANSWERING.RFC \SEND.END \SEND.ENDREPLY \SEND.RFC \FILLRTPPUP \SETRTPPORTS)
|
\SEND.ANSWERING.RFC \SEND.END \SEND.ENDREPLY \SEND.RFC \FILLRTPPUP \SETRTPPORTS)
|
||||||
(FNS \BSPINIT \BSPEVENTFN \BSP.CLOSE.OPEN.SOCKETS))
|
(FNS \BSPINIT \BSPEVENTFN \BSP.CLOSE.OPEN.SOCKETS))
|
||||||
(COMS (* ; "Creating BSP stream")
|
(COMS (* ; "Creating BSP stream")
|
||||||
(FNS OPENBSPSTREAM \SMASHBSPSTREAM BSPOUTPUTSTREAM BSPINPUTSTREAM BSPFRNADDRESS
|
(FNS OPENBSPSTREAM \SMASHBSPSTREAM BSPOUTPUTSTREAM BSPINPUTSTREAM BSPFRNADDRESS
|
||||||
CLOSEBSPSTREAM \BSP.FLUSHINPUT BSPOPENP GETBSPUSERINFO SETBSPUSERINFO)
|
CLOSEBSPSTREAM \BSP.FLUSHINPUT BSPOPENP GETBSPUSERINFO SETBSPUSERINFO)
|
||||||
(FNS CREATEBSPSTREAM ENDBSPSTREAM))
|
(FNS CREATEBSPSTREAM ENDBSPSTREAM))
|
||||||
(COMS (* ; "BSP stream functions")
|
(COMS (* ; "BSP stream functions")
|
||||||
(FNS BSPBIN \BSP.GETNEXTBUFFER BSPPEEKBIN BSPREADP BSPEOFP \BSPBACKFILEPTR
|
(FNS BSPBIN \BSP.GETNEXTBUFFER BSPPEEKBIN BSPREADP BSPEOFP \BSPBACKFILEPTR
|
||||||
\BSP.PREPARE.INPUT \BSP.GETFILEPTR \BSP.DECLARE.FILEPTR \BSP.SETFILEPTR
|
\BSP.PREPARE.INPUT \BSP.GETFILEPTR \BSP.DECLARE.FILEPTR \BSP.SETFILEPTR
|
||||||
\BSP.SKIPBYTES \BSP.CLEANUP.INPUT BSPBOUT \BSP.OTHERBOUT \BSPWRITEBLOCK
|
\BSP.SKIPBYTES \BSP.CLEANUP.INPUT BSPBOUT \BSP.OTHERBOUT \BSPWRITEBLOCK
|
||||||
BSPFORCEOUTPUT \BSP.SENDBUFFER \BSP.PREPARE.OUTPUT BSPGETMARK BSPPUTMARK
|
BSPFORCEOUTPUT \BSP.SENDBUFFER \BSP.PREPARE.OUTPUT BSPGETMARK BSPPUTMARK
|
||||||
BSP.PUTINTERRUPT))
|
BSP.PUTINTERRUPT))
|
||||||
(COMS (* ; "BSP pup handler")
|
(COMS (* ; "BSP pup handler")
|
||||||
(FNS \BSP.HANDLE.INPUT \BSP.HANDLE.ACK \BSP.HANDLE.DATA \BSP.HANDLE.ERROR
|
(FNS \BSP.HANDLE.INPUT \BSP.HANDLE.ACK \BSP.HANDLE.DATA \BSP.HANDLE.ERROR
|
||||||
\BSP.HANDLE.INTERRUPT \BSP.HANDLE.INTERRUPTREPLY \SEND.ACK \SEARCH.OUTPUTQ
|
\BSP.HANDLE.INTERRUPT \BSP.HANDLE.INTERRUPTREPLY \SEND.ACK \SEARCH.OUTPUTQ
|
||||||
\SETBSPTIMEOUT \TRANSMIT.STRATEGY))
|
\SETBSPTIMEOUT \TRANSMIT.STRATEGY))
|
||||||
(COMS (* ; "BSP utilities")
|
(COMS (* ; "BSP utilities")
|
||||||
(FNS \BSP.DEFAULT.ERROR.HANDLER \BSP.TIMERFN \BSP.FLUSH.SOCKET.QUEUES \FILLBSPPUP
|
(FNS \BSP.DEFAULT.ERROR.HANDLER \BSP.TIMERFN \BSP.FLUSH.SOCKET.QUEUES \FILLBSPPUP
|
||||||
BSPHELP))
|
BSPHELP))
|
||||||
[COMS (* ; "debugging")
|
[COMS (* ; "debugging")
|
||||||
(FNS PPSOC PPSOC.CURRENT PRINTTIMER PRINTPUPQUEUE BSPPRINTPUP \RTP.INFO.HOOK)
|
(FNS PPSOC PPSOC.CURRENT PRINTTIMER PRINTPUPQUEUE BSPPRINTPUP \RTP.INFO.HOOK)
|
||||||
(DECLARE%: DONTCOPY (ALISTS (PUPPRINTMACROS 8 9 16 17 18 20]
|
(DECLARE%: DONTCOPY (ALISTS (PUPPRINTMACROS 8 9 16 17 18 20]
|
||||||
(INITRECORDS BSPSOC)
|
(INITRECORDS BSPSOC)
|
||||||
(SYSRECORDS BSPSOC)
|
(SYSRECORDS BSPSOC)
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\BSPINIT)))
|
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\BSPINIT)))
|
||||||
(COMS (* ;
|
(COMS (* ;
|
||||||
"Some of these may want to be constants")
|
"Some of these may want to be constants")
|
||||||
(INITVARS (\BSPSOCKETS)
|
(INITVARS (\BSPSOCKETS)
|
||||||
(\RFC.TIMEOUT 2000)
|
(\RFC.TIMEOUT 2000)
|
||||||
(\RTP.DALLY.TIMEOUT 5000)
|
(\RTP.DALLY.TIMEOUT 5000)
|
||||||
@@ -79,84 +78,84 @@ Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corp
|
|||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(DATATYPE BSPSOC ((FRNPORT WORD)
|
(DATATYPE BSPSOC ((FRNPORT WORD)
|
||||||
(FRNSOCKET FIXP) (* ; "Net,host,socket of partner")
|
(FRNSOCKET FIXP) (* ; "Net,host,socket of partner")
|
||||||
(LCLPORT WORD)
|
(LCLPORT WORD)
|
||||||
(LCLSOCKET FIXP) (* ; "Net,host,socket of us")
|
(LCLSOCKET FIXP) (* ; "Net,host,socket of us")
|
||||||
(RTPSTATE BYTE) (* ;
|
(RTPSTATE BYTE) (* ;
|
||||||
"The current state of the RTP connection, see RTPSTATES")
|
"The current state of the RTP connection, see RTPSTATES")
|
||||||
(RTPPROCESS POINTER) (* ; "Process handle for RTP demon")
|
(RTPPROCESS POINTER) (* ; "Process handle for RTP demon")
|
||||||
(RTPEVENT POINTER) (* ; "Notified when RTPSTATE changes")
|
(RTPEVENT POINTER) (* ; "Notified when RTPSTATE changes")
|
||||||
(PUPSOC POINTER) (* ;
|
(PUPSOC POINTER) (* ;
|
||||||
"The packet-level socket used by us")
|
"The packet-level socket used by us")
|
||||||
(CONNID POINTER) (* ;
|
(CONNID POINTER) (* ;
|
||||||
"A large integer, the connection ID")
|
"A large integer, the connection ID")
|
||||||
(RTPTIMER POINTER) (* ;
|
(RTPTIMER POINTER) (* ;
|
||||||
"Timer used for timing out some RTP steps")
|
"Timer used for timing out some RTP steps")
|
||||||
(RTPTIMEOUT WORD) (* ;
|
(RTPTIMEOUT WORD) (* ;
|
||||||
"Timeout for current RTP op, or zero if none")
|
"Timeout for current RTP op, or zero if none")
|
||||||
(BSPINPUTHANDLER POINTER) (* ;
|
(BSPINPUTHANDLER POINTER) (* ;
|
||||||
"Function that is the top-level loop of the watcher process")
|
"Function that is the top-level loop of the watcher process")
|
||||||
|
|
||||||
(* ;; "The rest of this structure is dedicated to handling the BSP")
|
(* ;; "The rest of this structure is dedicated to handling the BSP")
|
||||||
|
|
||||||
(BSPINPUTSTREAM POINTER) (* ; "Pointer back to STREAM object")
|
(BSPINPUTSTREAM POINTER) (* ; "Pointer back to STREAM object")
|
||||||
(BSPTIMER POINTER) (* ; "Timer for BSP use")
|
(BSPTIMER POINTER) (* ; "Timer for BSP use")
|
||||||
(BSPTIMEOUT WORD)
|
(BSPTIMEOUT WORD)
|
||||||
(BSPFAILUREREASON POINTER) (* ;
|
(BSPFAILUREREASON POINTER) (* ;
|
||||||
"Why connection was broken or not opened")
|
"Why connection was broken or not opened")
|
||||||
(BSPOTHERPUPFN POINTER) (* ;
|
(BSPOTHERPUPFN POINTER) (* ;
|
||||||
"Called on error, interrupt and non-bsp pups")
|
"Called on error, interrupt and non-bsp pups")
|
||||||
(BSPERRORHANDLER POINTER) (* ; "Called for bsp errors")
|
(BSPERRORHANDLER POINTER) (* ; "Called for bsp errors")
|
||||||
(BSPIOTIMEOUT POINTER) (* ;
|
(BSPIOTIMEOUT POINTER) (* ;
|
||||||
"if non-zero will cause prepare.output and prepare.input to timeout")
|
"if non-zero will cause prepare.output and prepare.input to timeout")
|
||||||
(RCVBYTEID POINTER) (* ; "ID of as far as we have acked")
|
(RCVBYTEID POINTER) (* ; "ID of as far as we have acked")
|
||||||
(RCVINTERRUPTID POINTER) (* ; "ID of next incoming interrupt")
|
(RCVINTERRUPTID POINTER) (* ; "ID of next incoming interrupt")
|
||||||
(BSPINPUTQ POINTER) (* ;
|
(BSPINPUTQ POINTER) (* ;
|
||||||
"Queue of all pups we have received")
|
"Queue of all pups we have received")
|
||||||
(%#UNREADPUPS WORD) (* ;
|
(%#UNREADPUPS WORD) (* ;
|
||||||
"How many pups do we have before first hole in input")
|
"How many pups do we have before first hole in input")
|
||||||
(XMITBYTEID POINTER) (* ; "Id of next outgoing pup")
|
(XMITBYTEID POINTER) (* ; "Id of next outgoing pup")
|
||||||
(XMITINTERRUPTID POINTER) (* ; "id of next outgoing interrupt")
|
(XMITINTERRUPTID POINTER) (* ; "id of next outgoing interrupt")
|
||||||
(LASTACKID POINTER) (* ;
|
(LASTACKID POINTER) (* ;
|
||||||
"Id of last ack, i.e. how far our partner has read us")
|
"Id of last ack, i.e. how far our partner has read us")
|
||||||
(%#UNACKEDPUPS WORD)
|
(%#UNACKEDPUPS WORD)
|
||||||
(%#UNACKEDBYTES WORD) (* ;
|
(%#UNACKEDBYTES WORD) (* ;
|
||||||
"how many pups/bytes have we sent that haven't been acked")
|
"how many pups/bytes have we sent that haven't been acked")
|
||||||
(BSPOUTPUTQ POINTER) (* ;
|
(BSPOUTPUTQ POINTER) (* ;
|
||||||
"Queue of sent but not acked pups")
|
"Queue of sent but not acked pups")
|
||||||
(BYTESPERPUP WORD) (* ;
|
(BYTESPERPUP WORD) (* ;
|
||||||
"Maximum size we are allowed to grow pups")
|
"Maximum size we are allowed to grow pups")
|
||||||
(PUPALLOC WORD) (* ;
|
(PUPALLOC WORD) (* ;
|
||||||
"Remaining outgoing pup allocation, i.e. partner's allocation less #UNACKEDPUPS")
|
"Remaining outgoing pup allocation, i.e. partner's allocation less #UNACKEDPUPS")
|
||||||
(BYTEALLOC WORD) (* ;
|
(BYTEALLOC WORD) (* ;
|
||||||
"Remaining outgoing byte allocation")
|
"Remaining outgoing byte allocation")
|
||||||
(MAXPUPALLOC WORD)
|
(MAXPUPALLOC WORD)
|
||||||
(PUPALLOCCOUNT WORD)
|
(PUPALLOCCOUNT WORD)
|
||||||
(ADATACOUNT WORD) (* ; "incremented once per AData sent")
|
(ADATACOUNT WORD) (* ; "incremented once per AData sent")
|
||||||
(LASTADATATIME POINTER) (* ; "Time last ADATA was sent")
|
(LASTADATATIME POINTER) (* ; "Time last ADATA was sent")
|
||||||
(ADATATIMEOUT WORD) (* ;
|
(ADATATIMEOUT WORD) (* ;
|
||||||
"Timeout currently in use for AData")
|
"Timeout currently in use for AData")
|
||||||
(INACTIVITYTIMER POINTER) (* ;
|
(INACTIVITYTIMER POINTER) (* ;
|
||||||
"Time of last incoming pup on this connection")
|
"Time of last incoming pup on this connection")
|
||||||
(LISTENING FLAG) (* ;
|
(LISTENING FLAG) (* ;
|
||||||
"if socket was opened as a server rather than user")
|
"if socket was opened as a server rather than user")
|
||||||
(INTERRUPTOUT FLAG) (* ;
|
(INTERRUPTOUT FLAG) (* ;
|
||||||
"an unacked interrupt is outstanding")
|
"an unacked interrupt is outstanding")
|
||||||
(INTERRUPTIN FLAG) (* ; "an interrupt has been received")
|
(INTERRUPTIN FLAG) (* ; "an interrupt has been received")
|
||||||
(ACKPENDING FLAG) (* ;
|
(ACKPENDING FLAG) (* ;
|
||||||
"Adata was received, we need to ack")
|
"Adata was received, we need to ack")
|
||||||
(ACKREQUESTED FLAG) (* ;
|
(ACKREQUESTED FLAG) (* ;
|
||||||
"We have sent an Adata, are waiting for ack")
|
"We have sent an Adata, are waiting for ack")
|
||||||
(SENTZEROALLOC FLAG) (* ; "Need to send gratuitous ack")
|
(SENTZEROALLOC FLAG) (* ; "Need to send gratuitous ack")
|
||||||
(BSPNOACTIVITY FLAG) (* ;
|
(BSPNOACTIVITY FLAG) (* ;
|
||||||
"True if BSPINACTIVITYTIMEOUT has passed with no sign of life from other side")
|
"True if BSPINACTIVITYTIMEOUT has passed with no sign of life from other side")
|
||||||
(BSPUSERSTATE POINTER) (* ;
|
(BSPUSERSTATE POINTER) (* ;
|
||||||
"For applications use to do as it pleases")
|
"For applications use to do as it pleases")
|
||||||
(NIL WORD) (* ; "No longer used")
|
(NIL WORD) (* ; "No longer used")
|
||||||
(IOTIMEOUTFN POINTER) (* ;
|
(IOTIMEOUTFN POINTER) (* ;
|
||||||
"function to be called when prepare.* timeout")
|
"function to be called when prepare.* timeout")
|
||||||
(BSPWHENCLOSEDFN POINTER) (* ;
|
(BSPWHENCLOSEDFN POINTER) (* ;
|
||||||
"Called when connection is closed")
|
"Called when connection is closed")
|
||||||
(BSPINPUTEVENT POINTER)
|
(BSPINPUTEVENT POINTER)
|
||||||
(BSPLOCK POINTER)
|
(BSPLOCK POINTER)
|
||||||
(BSPINITTIMER POINTER)
|
(BSPINITTIMER POINTER)
|
||||||
@@ -175,7 +174,7 @@ Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corp
|
|||||||
(LCLPUPADDRESS (CONS (fetch LCLPORT of DATUM)
|
(LCLPUPADDRESS (CONS (fetch LCLPORT of DATUM)
|
||||||
(fetch LCLSOCKET of DATUM]
|
(fetch LCLSOCKET of DATUM]
|
||||||
|
|
||||||
(* ;; "Note: I assume record pkg does not break up the first six words (the two ports). I hope I don't have to force it")
|
(* ;; "Note: I assume record pkg does not break up the first six words (the two ports). I hope I don't have to force it")
|
||||||
|
|
||||||
RTPTIMER _ (CREATECELL \FIXP)
|
RTPTIMER _ (CREATECELL \FIXP)
|
||||||
BSPTIMER _ (CREATECELL \FIXP)
|
BSPTIMER _ (CREATECELL \FIXP)
|
||||||
@@ -186,25 +185,25 @@ Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corp
|
|||||||
|
|
||||||
(BLOCKRECORD ACKPUP ((ACKBYTESPERPUP WORD)
|
(BLOCKRECORD ACKPUP ((ACKBYTESPERPUP WORD)
|
||||||
(ACKPUPS WORD)
|
(ACKPUPS WORD)
|
||||||
(ACKBYTES WORD)) (* ;
|
(ACKBYTES WORD)) (* ;
|
||||||
"body of ACK pup, giving partner's allocation")
|
"body of ACK pup, giving partner's allocation")
|
||||||
)
|
)
|
||||||
|
|
||||||
(ACCESSFNS BSPSTREAM [(BSPSOC (fetch F1 of DATUM)
|
(ACCESSFNS BSPSTREAM [(BSPSOC (fetch F1 of DATUM)
|
||||||
(replace F1 of DATUM with NEWVALUE))
|
(replace F1 of DATUM with NEWVALUE))
|
||||||
(* ; "BSPSOC object")
|
(* ; "BSPSOC object")
|
||||||
(BSPOUTPUTSTREAM (fetch F2 of DATUM)
|
(BSPOUTPUTSTREAM (fetch F2 of DATUM)
|
||||||
(replace F2 of DATUM with NEWVALUE))
|
(replace F2 of DATUM with NEWVALUE))
|
||||||
(* ;
|
(* ;
|
||||||
"If this stream is the input side, gives output side")
|
"If this stream is the input side, gives output side")
|
||||||
(BSPCURRENTPUP (fetch F3 of DATUM)
|
(BSPCURRENTPUP (fetch F3 of DATUM)
|
||||||
(replace F3 of DATUM with NEWVALUE))
|
(replace F3 of DATUM with NEWVALUE))
|
||||||
(* ;
|
(* ;
|
||||||
"PUP whose body is the current buffer. Could be redundant")
|
"PUP whose body is the current buffer. Could be redundant")
|
||||||
(MARKPENDING (fetch F4 of DATUM)
|
(MARKPENDING (fetch F4 of DATUM)
|
||||||
(replace F4 of DATUM with NEWVALUE))
|
(replace F4 of DATUM with NEWVALUE))
|
||||||
(* ;
|
(* ;
|
||||||
"On input, true if next byte is a mark")
|
"On input, true if next byte is a mark")
|
||||||
(BSPFILEPTRHI (fetch FW6 of DATUM)
|
(BSPFILEPTRHI (fetch FW6 of DATUM)
|
||||||
(replace FW6 of DATUM with NEWVALUE))
|
(replace FW6 of DATUM with NEWVALUE))
|
||||||
(BSPFILEPTRLO (fetch FW7 of DATUM)
|
(BSPFILEPTRLO (fetch FW7 of DATUM)
|
||||||
@@ -318,17 +317,16 @@ Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corp
|
|||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
(RPAQQ RTPEVENTS
|
(RPAQQ RTPEVENTS ((\EVENT.OPEN 0)
|
||||||
((\EVENT.OPEN 0)
|
(\EVENT.OPENLISTENING 1)
|
||||||
(\EVENT.OPENLISTENING 1)
|
(\EVENT.OPENIMMEDIATE 2)
|
||||||
(\EVENT.OPENIMMEDIATE 2)
|
(\EVENT.CLOSE 3)
|
||||||
(\EVENT.CLOSE 3)
|
(\EVENT.FORCECLOSE 4)
|
||||||
(\EVENT.FORCECLOSE 4)
|
(\EVENT.RFC 5)
|
||||||
(\EVENT.RFC 5)
|
(\EVENT.ABORT 6)
|
||||||
(\EVENT.ABORT 6)
|
(\EVENT.END 7)
|
||||||
(\EVENT.END 7)
|
(\EVENT.ENDREPLY 8)
|
||||||
(\EVENT.ENDREPLY 8)
|
(\EVENT.TIMEOUT 9)))
|
||||||
(\EVENT.TIMEOUT 9)))
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(RPAQQ \EVENT.OPEN 0)
|
(RPAQQ \EVENT.OPEN 0)
|
||||||
@@ -374,47 +372,44 @@ Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corp
|
|||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS RTP.OTHERFN MACRO ((PUP SOCKET)
|
[PUTPROPS RTP.OTHERFN MACRO ((PUP SOCKET)
|
||||||
(SELECTQ (fetch OTHERPUPFN of SOCKET)
|
(SELECTQ (fetch OTHERPUPFN of SOCKET)
|
||||||
(RELEASE.PUP (RELEASE.PUP PUP))
|
(RELEASE.PUP (RELEASE.PUP PUP))
|
||||||
(\BSP.PUPHANDLER
|
(\BSP.PUPHANDLER
|
||||||
(\BSP.PUPHANDLER PUP SOCKET))
|
(\BSP.PUPHANDLER PUP SOCKET))
|
||||||
(APPLY* (fetch OTHERPUPFN of SOCKET)
|
(APPLY* (fetch OTHERPUPFN of SOCKET)
|
||||||
PUP SOCKET))))
|
PUP SOCKET]
|
||||||
|
|
||||||
(PUTPROPS BSP.OTHERFN MACRO [(PUP SOCKET)
|
[PUTPROPS BSP.OTHERFN MACRO ((PUP SOCKET)
|
||||||
(SELECTQ (fetch BSPOTHERPUPFN of SOCKET)
|
(SELECTQ (fetch BSPOTHERPUPFN of SOCKET)
|
||||||
(RELEASE.PUP (RELEASE.PUP PUP))
|
(RELEASE.PUP (RELEASE.PUP PUP))
|
||||||
(APPLY* (fetch BSPOTHERPUPFN of SOCKET)
|
(APPLY* (fetch BSPOTHERPUPFN of SOCKET)
|
||||||
PUP
|
PUP
|
||||||
(fetch BSPINPUTSTREAM of SOCKET])
|
(fetch BSPINPUTSTREAM of SOCKET]
|
||||||
|
|
||||||
(PUTPROPS BSP.INPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
(PUTPROPS BSP.INPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
||||||
(APPLY* (fetch BSPERRORHANDLER
|
(APPLY* (fetch BSPERRORHANDLER
|
||||||
of (fetch BSPSOC of STREAM))
|
of (fetch BSPSOC of STREAM))
|
||||||
STREAM ERRCODE)))
|
STREAM ERRCODE)))
|
||||||
|
|
||||||
(PUTPROPS BSP.OUTPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
(PUTPROPS BSP.OUTPUT.ERROR MACRO (OPENLAMBDA (STREAM ERRCODE)
|
||||||
(APPLY* (fetch BSPERRORHANDLER
|
(APPLY* (fetch BSPERRORHANDLER
|
||||||
of (fetch BSPSOC of STREAM))
|
of (fetch BSPSOC of STREAM))
|
||||||
STREAM ERRCODE)))
|
STREAM ERRCODE)))
|
||||||
|
|
||||||
(PUTPROPS \BSPINCFILEPTR MACRO [(STREAM N)
|
[PUTPROPS \BSPINCFILEPTR MACRO ((STREAM N)
|
||||||
(PROG (NEWLO)
|
(PROG (NEWLO)
|
||||||
(replace BSPFILEPTRLO of STREAM
|
(replace BSPFILEPTRLO of STREAM
|
||||||
with (COND
|
with (COND
|
||||||
((IGREATERP (SETQ NEWLO
|
((IGREATERP (SETQ NEWLO
|
||||||
(IPLUS (fetch
|
(IPLUS (fetch BSPFILEPTRLO
|
||||||
BSPFILEPTRLO
|
of STREAM)
|
||||||
of STREAM)
|
N))
|
||||||
N))
|
MAX.SMALL.INTEGER)
|
||||||
MAX.SMALL.INTEGER)
|
(add (fetch BSPFILEPTRHI of STREAM)
|
||||||
(add (fetch BSPFILEPTRHI
|
1)
|
||||||
of STREAM)
|
(SUB1 (IDIFFERENCE NEWLO MAX.SMALL.INTEGER)))
|
||||||
1)
|
(T NEWLO]
|
||||||
(SUB1 (IDIFFERENCE NEWLO
|
|
||||||
MAX.SMALL.INTEGER)))
|
|
||||||
(T NEWLO])
|
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
@@ -2667,34 +2662,33 @@ Copyright (c) 1982-1983, 1900, 1984-1987, 1990, 1993, 2021 by Venue & Xerox Corp
|
|||||||
\BSP.MIN.ADATA.TIMEOUT \BSP.MAX.ADATA.TIMEOUT \BSP.INACTIVITY.TIMEOUT
|
\BSP.MIN.ADATA.TIMEOUT \BSP.MAX.ADATA.TIMEOUT \BSP.INACTIVITY.TIMEOUT
|
||||||
\BSP.NO.INACTIVITY.TIMEOUT)
|
\BSP.NO.INACTIVITY.TIMEOUT)
|
||||||
)
|
)
|
||||||
(PUTPROPS BSP COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1900 1984 1985 1986 1987 1990 1993 2021
|
(PUTPROPS BSP COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1900 1984 1985 1986 1987 1990 1993))
|
||||||
))
|
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (22186 30354 (OPENRTPSOCKET 22196 . 27464) (CLOSERTPSOCKET 27466 . 29656) (
|
(FILEMAP (NIL (21817 29985 (OPENRTPSOCKET 21827 . 27095) (CLOSERTPSOCKET 27097 . 29287) (
|
||||||
\INIT.RTPPROCESS 29658 . 30352)) (30383 56738 (\RTP.SOCKET.PROCESS 30393 . 31244) (\RTP.HANDLE.INPUT
|
\INIT.RTPPROCESS 29289 . 29983)) (30014 56369 (\RTP.SOCKET.PROCESS 30024 . 30875) (\RTP.HANDLE.INPUT
|
||||||
31246 . 32231) (\RTP.HANDLE.PUP 32233 . 33765) (\RTP.HANDLE.RFC 33767 . 36259) (\RTP.CLEANUP 36261 .
|
30877 . 31862) (\RTP.HANDLE.PUP 31864 . 33396) (\RTP.HANDLE.RFC 33398 . 35890) (\RTP.CLEANUP 35892 .
|
||||||
37305) (\RTP.ACTION 37307 . 47779) (\RTP.ERROR 47781 . 48247) (\RTP.SHOW.FAILURE 48249 . 49686) (
|
36936) (\RTP.ACTION 36938 . 47410) (\RTP.ERROR 47412 . 47878) (\RTP.SHOW.FAILURE 47880 . 49317) (
|
||||||
\RTP.FILTER 49688 . 51153) (\SEND.ABORT 51155 . 52073) (\SEND.ANSWERING.RFC 52075 . 53820) (\SEND.END
|
\RTP.FILTER 49319 . 50784) (\SEND.ABORT 50786 . 51704) (\SEND.ANSWERING.RFC 51706 . 53451) (\SEND.END
|
||||||
53822 . 54034) (\SEND.ENDREPLY 54036 . 54258) (\SEND.RFC 54260 . 55632) (\FILLRTPPUP 55634 . 56317) (
|
53453 . 53665) (\SEND.ENDREPLY 53667 . 53889) (\SEND.RFC 53891 . 55263) (\FILLRTPPUP 55265 . 55948) (
|
||||||
\SETRTPPORTS 56319 . 56736)) (56739 59996 (\BSPINIT 56749 . 58588) (\BSPEVENTFN 58590 . 58929) (
|
\SETRTPPORTS 55950 . 56367)) (56370 59627 (\BSPINIT 56380 . 58219) (\BSPEVENTFN 58221 . 58560) (
|
||||||
\BSP.CLOSE.OPEN.SOCKETS 58931 . 59994)) (60033 74318 (OPENBSPSTREAM 60043 . 67019) (\SMASHBSPSTREAM
|
\BSP.CLOSE.OPEN.SOCKETS 58562 . 59625)) (59664 73949 (OPENBSPSTREAM 59674 . 66650) (\SMASHBSPSTREAM
|
||||||
67021 . 68392) (BSPOUTPUTSTREAM 68394 . 68750) (BSPINPUTSTREAM 68752 . 68986) (BSPFRNADDRESS 68988 .
|
66652 . 68023) (BSPOUTPUTSTREAM 68025 . 68381) (BSPINPUTSTREAM 68383 . 68617) (BSPFRNADDRESS 68619 .
|
||||||
69205) (CLOSEBSPSTREAM 69207 . 71911) (\BSP.FLUSHINPUT 71913 . 72464) (BSPOPENP 72466 . 73745) (
|
68836) (CLOSEBSPSTREAM 68838 . 71542) (\BSP.FLUSHINPUT 71544 . 72095) (BSPOPENP 72097 . 73376) (
|
||||||
GETBSPUSERINFO 73747 . 74007) (SETBSPUSERINFO 74009 . 74316)) (74319 74780 (CREATEBSPSTREAM 74329 .
|
GETBSPUSERINFO 73378 . 73638) (SETBSPUSERINFO 73640 . 73947)) (73950 74411 (CREATEBSPSTREAM 73960 .
|
||||||
74625) (ENDBSPSTREAM 74627 . 74778)) (74818 99611 (BSPBIN 74828 . 74960) (\BSP.GETNEXTBUFFER 74962 .
|
74256) (ENDBSPSTREAM 74258 . 74409)) (74449 99242 (BSPBIN 74459 . 74591) (\BSP.GETNEXTBUFFER 74593 .
|
||||||
76639) (BSPPEEKBIN 76641 . 76792) (BSPREADP 76794 . 77994) (BSPEOFP 77996 . 78776) (\BSPBACKFILEPTR
|
76270) (BSPPEEKBIN 76272 . 76423) (BSPREADP 76425 . 77625) (BSPEOFP 77627 . 78407) (\BSPBACKFILEPTR
|
||||||
78778 . 79212) (\BSP.PREPARE.INPUT 79214 . 83634) (\BSP.GETFILEPTR 83636 . 83932) (
|
78409 . 78843) (\BSP.PREPARE.INPUT 78845 . 83265) (\BSP.GETFILEPTR 83267 . 83563) (
|
||||||
\BSP.DECLARE.FILEPTR 83934 . 84109) (\BSP.SETFILEPTR 84111 . 84728) (\BSP.SKIPBYTES 84730 . 85518) (
|
\BSP.DECLARE.FILEPTR 83565 . 83740) (\BSP.SETFILEPTR 83742 . 84359) (\BSP.SKIPBYTES 84361 . 85149) (
|
||||||
\BSP.CLEANUP.INPUT 85520 . 86554) (BSPBOUT 86556 . 86777) (\BSP.OTHERBOUT 86779 . 87035) (
|
\BSP.CLEANUP.INPUT 85151 . 86185) (BSPBOUT 86187 . 86408) (\BSP.OTHERBOUT 86410 . 86666) (
|
||||||
\BSPWRITEBLOCK 87037 . 87296) (BSPFORCEOUTPUT 87298 . 88335) (\BSP.SENDBUFFER 88337 . 91173) (
|
\BSPWRITEBLOCK 86668 . 86927) (BSPFORCEOUTPUT 86929 . 87966) (\BSP.SENDBUFFER 87968 . 90804) (
|
||||||
\BSP.PREPARE.OUTPUT 91175 . 95052) (BSPGETMARK 95054 . 95531) (BSPPUTMARK 95533 . 97142) (
|
\BSP.PREPARE.OUTPUT 90806 . 94683) (BSPGETMARK 94685 . 95162) (BSPPUTMARK 95164 . 96773) (
|
||||||
BSP.PUTINTERRUPT 97144 . 99609)) (99644 129131 (\BSP.HANDLE.INPUT 99654 . 102515) (\BSP.HANDLE.ACK
|
BSP.PUTINTERRUPT 96775 . 99240)) (99275 128762 (\BSP.HANDLE.INPUT 99285 . 102146) (\BSP.HANDLE.ACK
|
||||||
102517 . 111645) (\BSP.HANDLE.DATA 111647 . 116579) (\BSP.HANDLE.ERROR 116581 . 117781) (
|
102148 . 111276) (\BSP.HANDLE.DATA 111278 . 116210) (\BSP.HANDLE.ERROR 116212 . 117412) (
|
||||||
\BSP.HANDLE.INTERRUPT 117783 . 119293) (\BSP.HANDLE.INTERRUPTREPLY 119295 . 120756) (\SEND.ACK 120758
|
\BSP.HANDLE.INTERRUPT 117414 . 118924) (\BSP.HANDLE.INTERRUPTREPLY 118926 . 120387) (\SEND.ACK 120389
|
||||||
. 122678) (\SEARCH.OUTPUTQ 122680 . 124159) (\SETBSPTIMEOUT 124161 . 126045) (\TRANSMIT.STRATEGY
|
. 122309) (\SEARCH.OUTPUTQ 122311 . 123790) (\SETBSPTIMEOUT 123792 . 125676) (\TRANSMIT.STRATEGY
|
||||||
126047 . 129129)) (129162 133566 (\BSP.DEFAULT.ERROR.HANDLER 129172 . 129586) (\BSP.TIMERFN 129588 .
|
125678 . 128760)) (128793 133197 (\BSP.DEFAULT.ERROR.HANDLER 128803 . 129217) (\BSP.TIMERFN 129219 .
|
||||||
132024) (\BSP.FLUSH.SOCKET.QUEUES 132026 . 132905) (\FILLBSPPUP 132907 . 133428) (BSPHELP 133430 .
|
131655) (\BSP.FLUSH.SOCKET.QUEUES 131657 . 132536) (\FILLBSPPUP 132538 . 133059) (BSPHELP 133061 .
|
||||||
133564)) (133593 143408 (PPSOC 133603 . 138899) (PPSOC.CURRENT 138901 . 139240) (PRINTTIMER 139242 .
|
133195)) (133224 143039 (PPSOC 133234 . 138530) (PPSOC.CURRENT 138532 . 138871) (PRINTTIMER 138873 .
|
||||||
139724) (PRINTPUPQUEUE 139726 . 142001) (BSPPRINTPUP 142003 . 142675) (\RTP.INFO.HOOK 142677 . 143406)
|
139355) (PRINTPUPQUEUE 139357 . 141632) (BSPPRINTPUP 141634 . 142306) (\RTP.INFO.HOOK 142308 . 143037)
|
||||||
))))
|
))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
BIN
sources/BSP.LCOM
BIN
sources/BSP.LCOM
Binary file not shown.
@@ -1,95 +1,104 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:24:05"
|
(FILECREATED " 3-Apr-91 15:11:53" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>CLSTREAMS.;4| 54013
|
||||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;2| 52344
|
|
||||||
|
|
||||||
|changes| |to:| (FNS %INITIALIZE-CLSTREAM-TYPES)
|
|changes| |to:| (FUNCTIONS CL:WITH-INPUT-FROM-STRING)
|
||||||
|
|
||||||
|previous| |date:| " 3-Apr-91 15:11:53"
|
|previous| |date:| "27-Feb-91 20:05:55" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>CLSTREAMS.;3|)
|
||||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;1|)
|
|
||||||
|
|
||||||
|
|
||||||
; Copyright (c) 1985-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
|
; Copyright (c) 1985, 1986, 1987, 1988, 1990, 1991 by Venue & Xerox Corporation. All rights reserved.
|
||||||
|
|
||||||
(PRETTYCOMPRINT CLSTREAMSCOMS)
|
(PRETTYCOMPRINT CLSTREAMSCOMS)
|
||||||
|
|
||||||
(RPAQQ CLSTREAMSCOMS
|
(RPAQQ CLSTREAMSCOMS (
|
||||||
(
|
|
||||||
|
|
||||||
(* |;;;| "Implements a number of stream functions from CommonLisp. See CLtL chapter 21")
|
(* |;;;| "Implements a number of stream functions from CommonLisp. See CLtL chapter 21")
|
||||||
|
|
||||||
(COMS
|
(COMS
|
||||||
(* |;;| "documented functions and macros")
|
(* |;;| "documented functions and macros")
|
||||||
|
|
||||||
(FUNCTIONS OPEN CL:CLOSE CL:STREAM-EXTERNAL-FORMAT)
|
(FUNCTIONS OPEN CL:CLOSE CL:STREAM-EXTERNAL-FORMAT)
|
||||||
(FUNCTIONS CL:STREAM-ELEMENT-TYPE CL:INPUT-STREAM-P CL:OUTPUT-STREAM-P
|
(FUNCTIONS CL:STREAM-ELEMENT-TYPE CL:INPUT-STREAM-P
|
||||||
XCL:OPEN-STREAM-P)
|
CL:OUTPUT-STREAM-P XCL:OPEN-STREAM-P)
|
||||||
(COMS (FUNCTIONS FILE-STREAM-POSITION)
|
(COMS (FUNCTIONS FILE-STREAM-POSITION)
|
||||||
(SETFS FILE-STREAM-POSITION))
|
(SETFS FILE-STREAM-POSITION))
|
||||||
(FUNCTIONS CL:MAKE-SYNONYM-STREAM XCL:SYNONYM-STREAM-P XCL:SYNONYM-STREAM-SYMBOL
|
(FUNCTIONS CL:MAKE-SYNONYM-STREAM XCL:SYNONYM-STREAM-P
|
||||||
XCL:FOLLOW-SYNONYM-STREAMS)
|
XCL:SYNONYM-STREAM-SYMBOL XCL:FOLLOW-SYNONYM-STREAMS)
|
||||||
(FUNCTIONS CL:MAKE-BROADCAST-STREAM XCL:BROADCAST-STREAM-P XCL:BROADCAST-STREAM-STREAMS
|
(FUNCTIONS CL:MAKE-BROADCAST-STREAM XCL:BROADCAST-STREAM-P
|
||||||
)
|
XCL:BROADCAST-STREAM-STREAMS)
|
||||||
(FUNCTIONS CL:MAKE-CONCATENATED-STREAM XCL:CONCATENATED-STREAM-P
|
(FUNCTIONS CL:MAKE-CONCATENATED-STREAM XCL:CONCATENATED-STREAM-P
|
||||||
XCL:CONCATENATED-STREAM-STREAMS)
|
XCL:CONCATENATED-STREAM-STREAMS)
|
||||||
(FUNCTIONS CL:MAKE-TWO-WAY-STREAM XCL:TWO-WAY-STREAM-P XCL:TWO-WAY-STREAM-OUTPUT-STREAM
|
(FUNCTIONS CL:MAKE-TWO-WAY-STREAM XCL:TWO-WAY-STREAM-P
|
||||||
XCL:TWO-WAY-STREAM-INPUT-STREAM)
|
XCL:TWO-WAY-STREAM-OUTPUT-STREAM
|
||||||
(FUNCTIONS CL:MAKE-ECHO-STREAM XCL:ECHO-STREAM-P XCL:ECHO-STREAM-INPUT-STREAM
|
XCL:TWO-WAY-STREAM-INPUT-STREAM)
|
||||||
XCL:ECHO-STREAM-OUTPUT-STREAM)
|
(FUNCTIONS CL:MAKE-ECHO-STREAM XCL:ECHO-STREAM-P
|
||||||
(FUNCTIONS CL:MAKE-STRING-INPUT-STREAM MAKE-CONCATENATED-STRING-INPUT-STREAM)
|
XCL:ECHO-STREAM-INPUT-STREAM XCL:ECHO-STREAM-OUTPUT-STREAM)
|
||||||
(FUNCTIONS %MAKE-INITIAL-STRING-STREAM-CONTENTS)
|
(FUNCTIONS CL:MAKE-STRING-INPUT-STREAM
|
||||||
(FUNCTIONS CL:WITH-OPEN-STREAM CL:WITH-INPUT-FROM-STRING CL:WITH-OUTPUT-TO-STRING
|
MAKE-CONCATENATED-STRING-INPUT-STREAM)
|
||||||
CL:WITH-OPEN-FILE)
|
(FUNCTIONS %MAKE-INITIAL-STRING-STREAM-CONTENTS)
|
||||||
(FUNCTIONS CL:MAKE-STRING-OUTPUT-STREAM MAKE-FILL-POINTER-OUTPUT-STREAM
|
(FUNCTIONS CL:WITH-OPEN-STREAM CL:WITH-INPUT-FROM-STRING
|
||||||
CL:GET-OUTPUT-STREAM-STRING \\STRING-STREAM-OUTCHARFN
|
CL:WITH-OUTPUT-TO-STRING CL:WITH-OPEN-FILE)
|
||||||
\\ADJUSTABLE-STRING-STREAM-OUTCHARFN))
|
(FUNCTIONS CL:MAKE-STRING-OUTPUT-STREAM
|
||||||
(COMS
|
MAKE-FILL-POINTER-OUTPUT-STREAM CL:GET-OUTPUT-STREAM-STRING
|
||||||
(* |;;| "helpers")
|
\\STRING-STREAM-OUTCHARFN \\ADJUSTABLE-STRING-STREAM-OUTCHARFN
|
||||||
|
))
|
||||||
|
(COMS
|
||||||
|
(* |;;| "helpers")
|
||||||
|
|
||||||
(FUNCTIONS %NEW-FILE PREDICT-NAME)
|
(FUNCTIONS %NEW-FILE PREDICT-NAME)
|
||||||
(DECLARE\: EVAL@COMPILE DONTCOPY (FUNCTIONS INTERLISP-ACCESS)))
|
(DECLARE\: EVAL@COMPILE DONTCOPY (FUNCTIONS INTERLISP-ACCESS)))
|
||||||
(COMS
|
(COMS
|
||||||
(* |;;| "methods for the special devices")
|
(* |;;| "methods for the special devices")
|
||||||
|
|
||||||
(FNS %BROADCAST-STREAM-DEVICE-BOUT %BROADCAST-STREAM-DEVICE-OUTCHARFN
|
(FNS %BROADCAST-STREAM-DEVICE-BOUT %BROADCAST-STREAM-DEVICE-OUTCHARFN
|
||||||
%BROADCAST-STREAM-DEVICE-CLOSEFILE %BROADCAST-STREAM-DEVICE-FORCEOUTPUT)
|
%BROADCAST-STREAM-DEVICE-CLOSEFILE
|
||||||
(FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN)
|
%BROADCAST-STREAM-DEVICE-FORCEOUTPUT)
|
||||||
(FNS %CONCATENATED-STREAM-DEVICE-BIN %CONCATENATED-STREAM-DEVICE-CLOSEFILE
|
(FUNCTIONS %BROADCAST-STREAM-DEVICE-CHARSETFN)
|
||||||
%CONCATENATED-STREAM-DEVICE-EOFP %CONCATENATED-STREAM-DEVICE-PEEKBIN
|
(FNS %CONCATENATED-STREAM-DEVICE-BIN
|
||||||
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR)
|
%CONCATENATED-STREAM-DEVICE-CLOSEFILE
|
||||||
(FUNCTIONS %CONCATENATED-STREAM-DEVICE-CHARSETFN)
|
%CONCATENATED-STREAM-DEVICE-EOFP
|
||||||
(FNS %ECHO-STREAM-DEVICE-BIN)
|
%CONCATENATED-STREAM-DEVICE-PEEKBIN
|
||||||
(FUNCTIONS %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM)
|
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR)
|
||||||
(FNS %SYNONYM-STREAM-DEVICE-BIN %SYNONYM-STREAM-DEVICE-BOUT
|
(FUNCTIONS %CONCATENATED-STREAM-DEVICE-CHARSETFN)
|
||||||
%SYNONYM-STREAM-DEVICE-OUTCHARFN %SYNONYM-STREAM-DEVICE-CLOSEFILE
|
(FNS %ECHO-STREAM-DEVICE-BIN)
|
||||||
%SYNONYM-STREAM-DEVICE-EOFP %SYNONYM-STREAM-DEVICE-FORCEOUTPUT
|
(FUNCTIONS %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM)
|
||||||
%SYNONYM-STREAM-DEVICE-GETFILEINFO %SYNONYM-STREAM-DEVICE-PEEKBIN
|
(FNS %SYNONYM-STREAM-DEVICE-BIN %SYNONYM-STREAM-DEVICE-BOUT
|
||||||
%SYNONYM-STREAM-DEVICE-READP %SYNONYM-STREAM-DEVICE-BACKFILEPTR
|
%SYNONYM-STREAM-DEVICE-OUTCHARFN
|
||||||
%SYNONYM-STREAM-DEVICE-SETFILEINFO %SYNONYM-STREAM-DEVICE-CHARSETFN)
|
%SYNONYM-STREAM-DEVICE-CLOSEFILE %SYNONYM-STREAM-DEVICE-EOFP
|
||||||
(FNS %TWO-WAY-STREAM-DEVICE-BIN %TWO-WAY-STREAM-DEVICE-INPUTSTREAM
|
%SYNONYM-STREAM-DEVICE-FORCEOUTPUT
|
||||||
%TWO-WAY-STREAM-DEVICE-BOUT %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM
|
%SYNONYM-STREAM-DEVICE-GETFILEINFO
|
||||||
%TWO-WAY-STREAM-DEVICE-OUTCHARFN %TWO-WAY-STREAM-DEVICE-CLOSEFILE
|
%SYNONYM-STREAM-DEVICE-PEEKBIN %SYNONYM-STREAM-DEVICE-READP
|
||||||
%TWO-WAY-STREAM-DEVICE-EOFP %TWO-WAY-STREAM-DEVICE-READP
|
%SYNONYM-STREAM-DEVICE-BACKFILEPTR
|
||||||
%TWO-WAY-STREAM-DEVICE-BACKFILEPTR %TWO-WAY-STREAM-DEVICE-FORCEOUTPUT
|
%SYNONYM-STREAM-DEVICE-SETFILEINFO
|
||||||
%TWO-WAY-STREAM-DEVICE-PEEKBIN %TWO-WAY-STREAM-DEVICE-CHARSETFN)
|
%SYNONYM-STREAM-DEVICE-CHARSETFN)
|
||||||
(FUNCTIONS %FILL-POINTER-STREAM-DEVICE-CLOSEFILE %FILL-POINTER-STREAM-DEVICE-GETFILEPTR
|
(FNS %TWO-WAY-STREAM-DEVICE-BIN %TWO-WAY-STREAM-DEVICE-INPUTSTREAM
|
||||||
)
|
%TWO-WAY-STREAM-DEVICE-BOUT %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM
|
||||||
(GLOBALVARS %SYNONYM-STREAM-DEVICE %BROADCAST-STREAM-DEVICE %CONCATENATED-STREAM-DEVICE
|
%TWO-WAY-STREAM-DEVICE-OUTCHARFN
|
||||||
%TWO-WAY-STREAM-DEVICE %ECHO-STREAM-DEVICE \\FILL-POINTER-STREAM-DEVICE))
|
%TWO-WAY-STREAM-DEVICE-CLOSEFILE %TWO-WAY-STREAM-DEVICE-EOFP
|
||||||
(COMS
|
%TWO-WAY-STREAM-DEVICE-READP %TWO-WAY-STREAM-DEVICE-BACKFILEPTR
|
||||||
(* |;;| "helper stuff")
|
%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT
|
||||||
|
%TWO-WAY-STREAM-DEVICE-PEEKBIN %TWO-WAY-STREAM-DEVICE-CHARSETFN)
|
||||||
|
(FUNCTIONS %FILL-POINTER-STREAM-DEVICE-CLOSEFILE
|
||||||
|
%FILL-POINTER-STREAM-DEVICE-GETFILEPTR)
|
||||||
|
(GLOBALVARS %SYNONYM-STREAM-DEVICE %BROADCAST-STREAM-DEVICE
|
||||||
|
%CONCATENATED-STREAM-DEVICE %TWO-WAY-STREAM-DEVICE
|
||||||
|
%ECHO-STREAM-DEVICE \\FILL-POINTER-STREAM-DEVICE))
|
||||||
|
(COMS
|
||||||
|
(* |;;| "helper stuff")
|
||||||
|
|
||||||
(FNS %SYNONYM-STREAM-DEVICE-GET-STREAM))
|
(FNS %SYNONYM-STREAM-DEVICE-GET-STREAM))
|
||||||
(COMS
|
(COMS
|
||||||
(* |;;| "module initialization")
|
(* |;;| "module initialization")
|
||||||
|
|
||||||
(VARIABLES *DEBUG-IO* *QUERY-IO* *TERMINAL-IO* *ERROR-OUTPUT* *STANDARD-OUTPUT*
|
(VARIABLES *DEBUG-IO* *QUERY-IO* *TERMINAL-IO* *ERROR-OUTPUT*
|
||||||
*STANDARD-INPUT*)
|
*STANDARD-OUTPUT* *STANDARD-INPUT*)
|
||||||
(FUNCTIONS %INITIALIZE-STANDARD-STREAMS)
|
(FUNCTIONS %INITIALIZE-STANDARD-STREAMS)
|
||||||
(FNS %INITIALIZE-CLSTREAM-TYPES)
|
(FNS %INITIALIZE-CLSTREAM-TYPES)
|
||||||
(DECLARE\: DONTEVAL@LOAD DOCOPY (* \; "initialization")
|
(DECLARE\: DONTEVAL@LOAD DOCOPY
|
||||||
(P (%INITIALIZE-CLSTREAM-TYPES)
|
(* \; "initialization")
|
||||||
(%INITIALIZE-STANDARD-STREAMS))))
|
(P (%INITIALIZE-CLSTREAM-TYPES)
|
||||||
(PROP FILETYPE CLSTREAMS)))
|
(%INITIALIZE-STANDARD-STREAMS))))
|
||||||
|
(PROP FILETYPE CLSTREAMS)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -107,7 +116,7 @@
|
|||||||
(IF-DOES-NOT-EXIST NIL DOES-NOT-EXIST-P)
|
(IF-DOES-NOT-EXIST NIL DOES-NOT-EXIST-P)
|
||||||
(EXTERNAL-FORMAT :DEFAULT))
|
(EXTERNAL-FORMAT :DEFAULT))
|
||||||
|
|
||||||
(* |;;;| "Return a stream which reads from or writes to Filename. Defined keywords: :direction (one of :input, :output or :probe :element-type), Type of object to read or write, default String-Char, :if-exists (one of :error, :new-version, :overwrite, :append or nil), :if-does-not-exist (one of :error, :create or nil). :external-format (one of :DEFAULT, :EUC, :JIS, :W-MS, :MS or :XCCS). The specification of :external-format is based on the JEIDA proposal. See the manual for details.")
|
(* |;;;| "Return a stream which reads from or writes to Filename. Defined keywords: :direction (one of :input, :output or :probe :element-type), Type of object to read or write, default String-Char, :if-exists (one of :error, :new-version, :overwrite, :append or nil), :if-does-not-exist (one of :error, :create or nil). :external-format (one of :DEFAULT, :EUC, :JIS, :W-MS, :MS or :XCCS). The specification of :external-format is based on the JEIDA proposal. See the manual for details.")
|
||||||
|
|
||||||
(CL:UNLESS (MEMQ DIRECTION '(:INPUT :OUTPUT :IO :PROBE))
|
(CL:UNLESS (MEMQ DIRECTION '(:INPUT :OUTPUT :IO :PROBE))
|
||||||
(CL:ERROR "~S isn't a valid direction for open." DIRECTION))
|
(CL:ERROR "~S isn't a valid direction for open." DIRECTION))
|
||||||
@@ -133,14 +142,14 @@
|
|||||||
ELSE 'TEXT))
|
ELSE 'TEXT))
|
||||||
(STREAM NIL))
|
(STREAM NIL))
|
||||||
|
|
||||||
(* |;;;| "Do hairy defaulting of :if-exists and :if-does-not-exist keywords.")
|
(* |;;;| "Do hairy defaulting of :if-exists and :if-does-not-exist keywords.")
|
||||||
|
|
||||||
(CL:UNLESS EXISTS-P
|
(CL:UNLESS EXISTS-P
|
||||||
(SETQ IF-EXISTS (CL:IF (EQ (CL:PATHNAME-VERSION PATHNAME)
|
(SETQ IF-EXISTS (CL:IF (EQ (CL:PATHNAME-VERSION PATHNAME)
|
||||||
:NEWEST)
|
:NEWEST)
|
||||||
:NEW-VERSION
|
:NEW-VERSION
|
||||||
:ERROR))) (* \;
|
:ERROR))) (* \;
|
||||||
"If the file does not exist, it is OK to have :if-exists :overwrite. ")
|
"If the file does not exist, it is OK to have :if-exists :overwrite. ")
|
||||||
(CL:UNLESS DOES-NOT-EXIST-P
|
(CL:UNLESS DOES-NOT-EXIST-P
|
||||||
(SETQ IF-DOES-NOT-EXIST (COND
|
(SETQ IF-DOES-NOT-EXIST (COND
|
||||||
((OR (EQ IF-EXISTS :APPEND)
|
((OR (EQ IF-EXISTS :APPEND)
|
||||||
@@ -149,16 +158,16 @@
|
|||||||
((EQ DIRECTION :PROBE)
|
((EQ DIRECTION :PROBE)
|
||||||
NIL)
|
NIL)
|
||||||
(T :CREATE))))
|
(T :CREATE))))
|
||||||
(CL:LOOP (* \;
|
(CL:LOOP (* \;
|
||||||
"See if the file exists and handle the existential keywords.")
|
"See if the file exists and handle the existential keywords.")
|
||||||
(LET* ((NAME (PREDICT-NAME PATHNAME))
|
(LET* ((NAME (PREDICT-NAME PATHNAME))
|
||||||
(CL:NAMESTRING (MKSTRING NAME)))
|
(CL:NAMESTRING (MKSTRING NAME)))
|
||||||
(IF NAME
|
(IF NAME
|
||||||
THEN (* \; "file exists")
|
THEN (* \; "file exists")
|
||||||
(IF FOR-OUTPUT
|
(IF FOR-OUTPUT
|
||||||
THEN
|
THEN
|
||||||
|
|
||||||
(* |;;| "open for output/both")
|
(* |;;| "open for output/both")
|
||||||
|
|
||||||
(CASE IF-EXISTS
|
(CASE IF-EXISTS
|
||||||
(:ERROR
|
(:ERROR
|
||||||
@@ -180,15 +189,15 @@
|
|||||||
(RETURN NIL))
|
(RETURN NIL))
|
||||||
(:APPEND
|
(:APPEND
|
||||||
(IF (EQ DIRECTION :OUTPUT)
|
(IF (EQ DIRECTION :OUTPUT)
|
||||||
THEN (* \;
|
THEN (* \;
|
||||||
"if the direction is output it is the same as interlisp append")
|
"if the direction is output it is the same as interlisp append")
|
||||||
(SETQ STREAM (OPENSTREAM CL:NAMESTRING 'APPEND
|
(SETQ STREAM (OPENSTREAM CL:NAMESTRING 'APPEND
|
||||||
'OLD
|
'OLD
|
||||||
`((TYPE ,FILE-TYPE)
|
`((TYPE ,FILE-TYPE)
|
||||||
(EXTERNALFORMAT
|
(EXTERNALFORMAT
|
||||||
,EXTERNAL-FORMAT))))
|
,EXTERNAL-FORMAT))))
|
||||||
ELSE (* \;
|
ELSE (* \;
|
||||||
"if direction is io it opens the file for both and goes to the end of the file")
|
"if direction is io it opens the file for both and goes to the end of the file")
|
||||||
(SETQ STREAM (OPENSTREAM CL:NAMESTRING 'BOTH
|
(SETQ STREAM (OPENSTREAM CL:NAMESTRING 'BOTH
|
||||||
'OLD
|
'OLD
|
||||||
`((TYPE ,FILE-TYPE)
|
`((TYPE ,FILE-TYPE)
|
||||||
@@ -201,7 +210,7 @@
|
|||||||
|elseif| FOR-INPUT
|
|elseif| FOR-INPUT
|
||||||
|then|
|
|then|
|
||||||
|
|
||||||
(* |;;| "open for input/both")
|
(* |;;| "open for input/both")
|
||||||
|
|
||||||
(SETQ STREAM (OPENSTREAM CL:NAMESTRING ACCESS 'OLD
|
(SETQ STREAM (OPENSTREAM CL:NAMESTRING ACCESS 'OLD
|
||||||
`((TYPE ,FILE-TYPE)
|
`((TYPE ,FILE-TYPE)
|
||||||
@@ -209,14 +218,14 @@
|
|||||||
(RETURN NIL)
|
(RETURN NIL)
|
||||||
|else|
|
|else|
|
||||||
|
|
||||||
(* |;;| "open for probe")
|
(* |;;| "open for probe")
|
||||||
|
|
||||||
(SETQ STREAM (|create| STREAM
|
(SETQ STREAM (|create| STREAM
|
||||||
FULLFILENAME _ (FULLNAME CL:NAMESTRING)))
|
FULLFILENAME _ (FULLNAME CL:NAMESTRING)))
|
||||||
(RETURN NIL))
|
(RETURN NIL))
|
||||||
|else|
|
|else|
|
||||||
|
|
||||||
(* |;;| "file does not exist")
|
(* |;;| "file does not exist")
|
||||||
|
|
||||||
(|if| FOR-OUTPUT
|
(|if| FOR-OUTPUT
|
||||||
|then| (CASE IF-DOES-NOT-EXIST
|
|then| (CASE IF-DOES-NOT-EXIST
|
||||||
@@ -244,28 +253,28 @@
|
|||||||
((NIL) (CL:RETURN-FROM OPEN NIL))
|
((NIL) (CL:RETURN-FROM OPEN NIL))
|
||||||
(T (CL:ERROR "~S is not a valid value for :if-does-not-exist."
|
(T (CL:ERROR "~S is not a valid value for :if-does-not-exist."
|
||||||
IF-DOES-NOT-EXIST)))
|
IF-DOES-NOT-EXIST)))
|
||||||
|else| (* \; "Open for probe.")
|
|else| (* \; "Open for probe.")
|
||||||
(RETURN NIL)))))
|
(RETURN NIL)))))
|
||||||
(STREAMPROP STREAM :FILE-STREAM-P T)
|
(STREAMPROP STREAM :FILE-STREAM-P T)
|
||||||
STREAM))
|
STREAM))
|
||||||
|
|
||||||
(CL:DEFUN CL:CLOSE (STREAM &KEY ABORT)
|
(CL:DEFUN CL:CLOSE (STREAM &KEY ABORT)
|
||||||
|
|
||||||
(* |;;;| "Close a stream. If ABORT, then don't keep the file")
|
(* |;;;| "Close a stream. If ABORT, then don't keep the file")
|
||||||
|
|
||||||
(|if| (STREAMP STREAM)
|
(|if| (STREAMP STREAM)
|
||||||
|then| (|if| (OPENP STREAM)
|
|then| (|if| (OPENP STREAM)
|
||||||
|then|
|
|then|
|
||||||
|
|
||||||
(* |;;|
|
(* |;;|
|
||||||
"determine 'deletability' of stream's file before closing, as that trashes the info")
|
"determine 'deletability' of stream's file before closing, as that trashes the info")
|
||||||
|
|
||||||
(LET ((ABORTABLE (AND (DIRTYABLE STREAM)
|
(LET ((ABORTABLE (AND (DIRTYABLE STREAM)
|
||||||
(NOT (APPENDONLY STREAM)))))
|
(NOT (APPENDONLY STREAM)))))
|
||||||
(CLOSEF STREAM)
|
(CLOSEF STREAM)
|
||||||
(|if| (AND ABORT ABORTABLE)
|
(|if| (AND ABORT ABORTABLE)
|
||||||
|then| (* \;
|
|then| (* \;
|
||||||
"eventually we will change device CLOSEF methods to take an ABORT arg. For now, simulate it.")
|
"eventually we will change device CLOSEF methods to take an ABORT arg. For now, simulate it.")
|
||||||
(DELFILE (CL:NAMESTRING STREAM)))))
|
(DELFILE (CL:NAMESTRING STREAM)))))
|
||||||
|else| (ERROR "Closing a non-stream" STREAM))
|
|else| (ERROR "Closing a non-stream" STREAM))
|
||||||
T)
|
T)
|
||||||
@@ -280,7 +289,7 @@
|
|||||||
(CL:WHEN (NOT (STREAMP STREAM))
|
(CL:WHEN (NOT (STREAMP STREAM))
|
||||||
(\\ILLEGAL.ARG STREAM))
|
(\\ILLEGAL.ARG STREAM))
|
||||||
|
|
||||||
(* |;;| "we return T instead of the stream because Symbolics does")
|
(* |;;| "we return T instead of the stream because Symbolics does")
|
||||||
|
|
||||||
(AND (\\IOMODEP STREAM 'INPUT T)
|
(AND (\\IOMODEP STREAM 'INPUT T)
|
||||||
T))
|
T))
|
||||||
@@ -289,14 +298,14 @@
|
|||||||
(CL:WHEN (NOT (STREAMP STREAM))
|
(CL:WHEN (NOT (STREAMP STREAM))
|
||||||
(\\ILLEGAL.ARG STREAM))
|
(\\ILLEGAL.ARG STREAM))
|
||||||
|
|
||||||
(* |;;| "we return T instead of the stream because Symbolics does")
|
(* |;;| "we return T instead of the stream because Symbolics does")
|
||||||
|
|
||||||
(AND (\\IOMODEP STREAM 'OUTPUT T)
|
(AND (\\IOMODEP STREAM 'OUTPUT T)
|
||||||
T))
|
T))
|
||||||
|
|
||||||
(CL:DEFUN XCL:OPEN-STREAM-P (STREAM)
|
(CL:DEFUN XCL:OPEN-STREAM-P (STREAM)
|
||||||
|
|
||||||
(* |;;| "is stream an open stream?")
|
(* |;;| "is stream an open stream?")
|
||||||
|
|
||||||
(AND (STREAMP STREAM)
|
(AND (STREAMP STREAM)
|
||||||
(OPENED STREAM)))
|
(OPENED STREAM)))
|
||||||
@@ -308,7 +317,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN CL:MAKE-SYNONYM-STREAM (CL:SYMBOL)
|
(CL:DEFUN CL:MAKE-SYNONYM-STREAM (CL:SYMBOL)
|
||||||
|
|
||||||
(* |;;| "A CommonLisp function for shadowing a stream. See CLtL p. 329")
|
(* |;;| "A CommonLisp function for shadowing a stream. See CLtL p. 329")
|
||||||
|
|
||||||
(LET ((STREAM (|create| STREAM
|
(LET ((STREAM (|create| STREAM
|
||||||
DEVICE _ %SYNONYM-STREAM-DEVICE
|
DEVICE _ %SYNONYM-STREAM-DEVICE
|
||||||
@@ -319,7 +328,7 @@
|
|||||||
OUTCHARFN _ (FUNCTION %SYNONYM-STREAM-DEVICE-OUTCHARFN))))
|
OUTCHARFN _ (FUNCTION %SYNONYM-STREAM-DEVICE-OUTCHARFN))))
|
||||||
(STREAMPROP STREAM 'XCL:SYNONYM-STREAM-P T)
|
(STREAMPROP STREAM 'XCL:SYNONYM-STREAM-P T)
|
||||||
|
|
||||||
(* |;;| "save the synonym stream in the OPENFILELST field of %SYNONYM-STREAM-DEVICE")
|
(* |;;| "save the synonym stream in the OPENFILELST field of %SYNONYM-STREAM-DEVICE")
|
||||||
|
|
||||||
(|replace| (FDEV OPENFILELST) |of| %SYNONYM-STREAM-DEVICE
|
(|replace| (FDEV OPENFILELST) |of| %SYNONYM-STREAM-DEVICE
|
||||||
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %SYNONYM-STREAM-DEVICE)))
|
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %SYNONYM-STREAM-DEVICE)))
|
||||||
@@ -334,7 +343,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN XCL:FOLLOW-SYNONYM-STREAMS (STREAM)
|
(CL:DEFUN XCL:FOLLOW-SYNONYM-STREAMS (STREAM)
|
||||||
|
|
||||||
(* |;;;| "Return the non-synonym stream at the heart of STREAM.")
|
(* |;;;| "Return the non-synonym stream at the heart of STREAM.")
|
||||||
|
|
||||||
(CL:IF (XCL:SYNONYM-STREAM-P STREAM)
|
(CL:IF (XCL:SYNONYM-STREAM-P STREAM)
|
||||||
(XCL:FOLLOW-SYNONYM-STREAMS (CL:SYMBOL-VALUE (XCL:SYNONYM-STREAM-SYMBOL STREAM)))
|
(XCL:FOLLOW-SYNONYM-STREAMS (CL:SYMBOL-VALUE (XCL:SYNONYM-STREAM-SYMBOL STREAM)))
|
||||||
@@ -342,7 +351,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN CL:MAKE-BROADCAST-STREAM (&REST STREAMS)
|
(CL:DEFUN CL:MAKE-BROADCAST-STREAM (&REST STREAMS)
|
||||||
|
|
||||||
(* |;;| "CommonLisp function that makes a broadcast stream. See CLtL p329")
|
(* |;;| "CommonLisp function that makes a broadcast stream. See CLtL p329")
|
||||||
|
|
||||||
(IF (FOR STREAM? IN STREAMS ALWAYS (STREAMP STREAM?))
|
(IF (FOR STREAM? IN STREAMS ALWAYS (STREAMP STREAM?))
|
||||||
THEN (LET ((STREAM (|create| STREAM
|
THEN (LET ((STREAM (|create| STREAM
|
||||||
@@ -357,20 +366,20 @@
|
|||||||
|
|
||||||
(CL:DEFUN XCL:BROADCAST-STREAM-P (STREAM)
|
(CL:DEFUN XCL:BROADCAST-STREAM-P (STREAM)
|
||||||
|
|
||||||
(* |;;| "is stream a broadcast stream?")
|
(* |;;| "is stream a broadcast stream?")
|
||||||
|
|
||||||
(STREAMPROP STREAM 'XCL:BROADCAST-STREAM-P))
|
(STREAMPROP STREAM 'XCL:BROADCAST-STREAM-P))
|
||||||
|
|
||||||
(CL:DEFUN XCL:BROADCAST-STREAM-STREAMS (STREAM)
|
(CL:DEFUN XCL:BROADCAST-STREAM-STREAMS (STREAM)
|
||||||
|
|
||||||
(* |;;| "return all of the streams that STREAM broadcasts to")
|
(* |;;| "return all of the streams that STREAM broadcasts to")
|
||||||
|
|
||||||
(AND (XCL:BROADCAST-STREAM-P STREAM)
|
(AND (XCL:BROADCAST-STREAM-P STREAM)
|
||||||
(FETCH (STREAM F1) OF STREAM)))
|
(FETCH (STREAM F1) OF STREAM)))
|
||||||
|
|
||||||
(CL:DEFUN CL:MAKE-CONCATENATED-STREAM (&REST STREAMS)
|
(CL:DEFUN CL:MAKE-CONCATENATED-STREAM (&REST STREAMS)
|
||||||
|
|
||||||
(* |;;| "CommonLisp function that creates a concatenated stream. See CLtL p. 329")
|
(* |;;| "CommonLisp function that creates a concatenated stream. See CLtL p. 329")
|
||||||
|
|
||||||
(IF (FOR STREAM? IN STREAMS ALWAYS (STREAMP STREAM?))
|
(IF (FOR STREAM? IN STREAMS ALWAYS (STREAMP STREAM?))
|
||||||
THEN (LET ((STREAM (|create| STREAM
|
THEN (LET ((STREAM (|create| STREAM
|
||||||
@@ -387,14 +396,14 @@
|
|||||||
|
|
||||||
(CL:DEFUN XCL:CONCATENATED-STREAM-STREAMS (STREAM)
|
(CL:DEFUN XCL:CONCATENATED-STREAM-STREAMS (STREAM)
|
||||||
|
|
||||||
(* |;;| "return all of STREAM's concatenated streams")
|
(* |;;| "return all of STREAM's concatenated streams")
|
||||||
|
|
||||||
(AND (XCL:CONCATENATED-STREAM-P STREAM)
|
(AND (XCL:CONCATENATED-STREAM-P STREAM)
|
||||||
(FETCH (STREAM F1) OF STREAM)))
|
(FETCH (STREAM F1) OF STREAM)))
|
||||||
|
|
||||||
(CL:DEFUN CL:MAKE-TWO-WAY-STREAM (CL::INPUT-STREAM CL::OUTPUT-STREAM)
|
(CL:DEFUN CL:MAKE-TWO-WAY-STREAM (CL::INPUT-STREAM CL::OUTPUT-STREAM)
|
||||||
|
|
||||||
(* |;;| "A CommonLisp function for splicing together two streams. See CLtL p. 329")
|
(* |;;| "A CommonLisp function for splicing together two streams. See CLtL p. 329")
|
||||||
|
|
||||||
(CL:UNLESS (STREAMP CL::INPUT-STREAM)
|
(CL:UNLESS (STREAMP CL::INPUT-STREAM)
|
||||||
(\\ILLEGAL.ARG CL::INPUT-STREAM))
|
(\\ILLEGAL.ARG CL::INPUT-STREAM))
|
||||||
@@ -409,7 +418,7 @@
|
|||||||
OUTCHARFN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-OUTCHARFN))))
|
OUTCHARFN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-OUTCHARFN))))
|
||||||
(STREAMPROP STREAM 'XCL:TWO-WAY-STREAM-P T)
|
(STREAMPROP STREAM 'XCL:TWO-WAY-STREAM-P T)
|
||||||
|
|
||||||
(* |;;| "save STREAM in the OPENFILELST field of %TWO-WAY-STREAM-DEVICE")
|
(* |;;| "save STREAM in the OPENFILELST field of %TWO-WAY-STREAM-DEVICE")
|
||||||
|
|
||||||
(|replace| (FDEV OPENFILELST) |of| %TWO-WAY-STREAM-DEVICE
|
(|replace| (FDEV OPENFILELST) |of| %TWO-WAY-STREAM-DEVICE
|
||||||
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %TWO-WAY-STREAM-DEVICE)))
|
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %TWO-WAY-STREAM-DEVICE)))
|
||||||
@@ -417,7 +426,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN XCL:TWO-WAY-STREAM-P (STREAM)
|
(CL:DEFUN XCL:TWO-WAY-STREAM-P (STREAM)
|
||||||
|
|
||||||
(* |;;| "is STREAM a two-way stream?")
|
(* |;;| "is STREAM a two-way stream?")
|
||||||
|
|
||||||
(STREAMPROP STREAM 'XCL:TWO-WAY-STREAM-P))
|
(STREAMPROP STREAM 'XCL:TWO-WAY-STREAM-P))
|
||||||
|
|
||||||
@@ -431,7 +440,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN CL:MAKE-ECHO-STREAM (CL::INPUT-STREAM CL::OUTPUT-STREAM)
|
(CL:DEFUN CL:MAKE-ECHO-STREAM (CL::INPUT-STREAM CL::OUTPUT-STREAM)
|
||||||
|
|
||||||
(* |;;| "A CommonLisp function for making an echo stream. See CLtL p. 329")
|
(* |;;| "A CommonLisp function for making an echo stream. See CLtL p. 329")
|
||||||
|
|
||||||
(CL:UNLESS (STREAMP CL::INPUT-STREAM)
|
(CL:UNLESS (STREAMP CL::INPUT-STREAM)
|
||||||
(\\ILLEGAL.ARG CL::INPUT-STREAM))
|
(\\ILLEGAL.ARG CL::INPUT-STREAM))
|
||||||
@@ -446,7 +455,7 @@
|
|||||||
OUTCHARFN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-OUTCHARFN))))
|
OUTCHARFN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-OUTCHARFN))))
|
||||||
(STREAMPROP STREAM 'XCL:ECHO-STREAM-P T)
|
(STREAMPROP STREAM 'XCL:ECHO-STREAM-P T)
|
||||||
|
|
||||||
(* |;;| "save STREAM in the OPENFILELST field of %ECHO-STREAM-DEVICE")
|
(* |;;| "save STREAM in the OPENFILELST field of %ECHO-STREAM-DEVICE")
|
||||||
|
|
||||||
(|replace| (FDEV OPENFILELST) |of| %ECHO-STREAM-DEVICE
|
(|replace| (FDEV OPENFILELST) |of| %ECHO-STREAM-DEVICE
|
||||||
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %ECHO-STREAM-DEVICE)))
|
|with| (CONS STREAM (|fetch| (FDEV OPENFILELST) |of| %ECHO-STREAM-DEVICE)))
|
||||||
@@ -454,7 +463,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN XCL:ECHO-STREAM-P (STREAM)
|
(CL:DEFUN XCL:ECHO-STREAM-P (STREAM)
|
||||||
|
|
||||||
(* |;;| "is stream an echo stream?")
|
(* |;;| "is stream an echo stream?")
|
||||||
|
|
||||||
(STREAMPROP STREAM 'XCL:ECHO-STREAM-P))
|
(STREAMPROP STREAM 'XCL:ECHO-STREAM-P))
|
||||||
|
|
||||||
@@ -469,13 +478,13 @@
|
|||||||
(CL:DEFUN CL:MAKE-STRING-INPUT-STREAM (STRING &OPTIONAL (CL::START 0)
|
(CL:DEFUN CL:MAKE-STRING-INPUT-STREAM (STRING &OPTIONAL (CL::START 0)
|
||||||
(CL::END NIL))
|
(CL::END NIL))
|
||||||
|
|
||||||
(* |;;;| "A CommonLisp function for producing a stream from a string. See CLtL p. 330")
|
(* |;;;| "A CommonLisp function for producing a stream from a string. See CLtL p. 330")
|
||||||
|
|
||||||
(OPENSTRINGSTREAM (|if| (OR (NOT (CL:ZEROP CL::START))
|
(OPENSTRINGSTREAM (|if| (OR (NOT (CL:ZEROP CL::START))
|
||||||
(NOT (NULL CL::END)))
|
(NOT (NULL CL::END)))
|
||||||
|then|
|
|then|
|
||||||
|
|
||||||
(* |;;| "A displaced array is ok here because the stream's uses GETBASEBYTE directly and doesn't go through the array code at all. ")
|
(* |;;| "A displaced array is ok here because the stream's uses GETBASEBYTE directly and doesn't go through the array code at all. ")
|
||||||
|
|
||||||
(SUBSTRING STRING (CL:1+ CL::START)
|
(SUBSTRING STRING (CL:1+ CL::START)
|
||||||
CL::END)
|
CL::END)
|
||||||
@@ -522,11 +531,11 @@
|
|||||||
,@CL::DECLS
|
,@CL::DECLS
|
||||||
,@(CL:IF CL::INDEXP
|
,@(CL:IF CL::INDEXP
|
||||||
|
|
||||||
(* |;;| "This exists as a fudge for the fat string problem. It WILL GO AWAY when STRINGSTREAMS HAVE THEIR OWN DEVICE.")
|
(* |;;| "This exists as a fudge for the fat string problem. It WILL GO AWAY when STRINGSTREAMS HAVE THEIR OWN DEVICE.")
|
||||||
|
|
||||||
`((CL:MULTIPLE-VALUE-PROG1 (PROGN ,@CL::BODY)
|
`((CL:MULTIPLE-VALUE-PROG1 (PROGN ,@CL::BODY)
|
||||||
|
|
||||||
(* |;;| "(IF (FASL::FAT-STRING-P $STRING$) (SETF ,INDEX (+ $START$ (IL:IQUOTIENT (IL:GETFILEPTR ,VAR) 2))) (SETF ,INDEX (+ $START$ (IL:GETFILEPTR ,VAR))))")
|
(* |;;| "(IF (FASL::FAT-STRING-P $STRING$) (SETF ,INDEX (+ $START$ (IL:IQUOTIENT (IL:GETFILEPTR ,VAR) 2))) (SETF ,INDEX (+ $START$ (IL:GETFILEPTR ,VAR))))")
|
||||||
|
|
||||||
(CL:SETF ,CL::INDEX (+ CL::$START$ (GETFILEPTR ,CL::VAR)))))
|
(CL:SETF ,CL::INDEX (+ CL::$START$ (GETFILEPTR ,CL::VAR)))))
|
||||||
CL::BODY))))
|
CL::BODY))))
|
||||||
@@ -546,7 +555,7 @@
|
|||||||
&BODY
|
&BODY
|
||||||
(FORMS DECLS))
|
(FORMS DECLS))
|
||||||
|
|
||||||
(* |;;;| "The file whose name is File-Name is opened using the OPEN-ARGS and bound to the variable VAR. The Forms are executed, and when they terminate, normally or otherwise, the file is closed.")
|
(* |;;;| "The file whose name is File-Name is opened using the OPEN-ARGS and bound to the variable VAR. The Forms are executed, and when they terminate, normally or otherwise, the file is closed.")
|
||||||
|
|
||||||
(LET ((ABORTP (GENSYM)))
|
(LET ((ABORTP (GENSYM)))
|
||||||
`(LET ((,VAR (OPEN ,@OPEN-ARGS))
|
`(LET ((,VAR (OPEN ,@OPEN-ARGS))
|
||||||
@@ -559,7 +568,7 @@
|
|||||||
|
|
||||||
(DEFINLINE CL:MAKE-STRING-OUTPUT-STREAM ()
|
(DEFINLINE CL:MAKE-STRING-OUTPUT-STREAM ()
|
||||||
|
|
||||||
(* |;;;| "A function for producing a string stream. See also the function get-output-stream-string. Also, see CLtL p. 330")
|
(* |;;;| "A function for producing a string stream. See also the function get-output-stream-string. Also, see CLtL p. 330")
|
||||||
|
|
||||||
(MAKE-FILL-POINTER-OUTPUT-STREAM))
|
(MAKE-FILL-POINTER-OUTPUT-STREAM))
|
||||||
|
|
||||||
@@ -574,8 +583,8 @@
|
|||||||
F1 _ STRING
|
F1 _ STRING
|
||||||
ACCESS _ 'OUTPUT
|
ACCESS _ 'OUTPUT
|
||||||
OTHERPROPS _ '(STRING-OUTPUT-STREAM T))))
|
OTHERPROPS _ '(STRING-OUTPUT-STREAM T))))
|
||||||
(* \;
|
(* \;
|
||||||
"give it a canned property list to save some consing.")
|
"give it a canned property list to save some consing.")
|
||||||
(|replace| (STREAM OUTCHARFN) |of| STREAM
|
(|replace| (STREAM OUTCHARFN) |of| STREAM
|
||||||
|with| (|if| (EXTENDABLE-ARRAY-P STRING)
|
|with| (|if| (EXTENDABLE-ARRAY-P STRING)
|
||||||
|then| (FUNCTION \\ADJUSTABLE-STRING-STREAM-OUTCHARFN)
|
|then| (FUNCTION \\ADJUSTABLE-STRING-STREAM-OUTCHARFN)
|
||||||
@@ -586,7 +595,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN CL:GET-OUTPUT-STREAM-STRING (STRING-OUTPUT-STREAM)
|
(CL:DEFUN CL:GET-OUTPUT-STREAM-STRING (STRING-OUTPUT-STREAM)
|
||||||
|
|
||||||
(* |;;;| "A CommonLisp function for getting the contents of the buffer created by a call to make-string-output-stream. See CLtL p. 330")
|
(* |;;;| "A CommonLisp function for getting the contents of the buffer created by a call to make-string-output-stream. See CLtL p. 330")
|
||||||
|
|
||||||
(|if| (NOT (STREAMPROP STRING-OUTPUT-STREAM 'STRING-OUTPUT-STREAM))
|
(|if| (NOT (STREAMPROP STRING-OUTPUT-STREAM 'STRING-OUTPUT-STREAM))
|
||||||
|then| (ERROR "Stream not a string-output-stream" STRING-OUTPUT-STREAM)
|
|then| (ERROR "Stream not a string-output-stream" STRING-OUTPUT-STREAM)
|
||||||
@@ -615,7 +624,7 @@
|
|||||||
ELSE (ADD (FETCH (STREAM CHARPOSITION) OF STREAM)
|
ELSE (ADD (FETCH (STREAM CHARPOSITION) OF STREAM)
|
||||||
1))
|
1))
|
||||||
|
|
||||||
(* |;;| "Do the equivalent of VECTOR-PUSH-EXTEND inline to save the significant! overhead of calculating the new length at each character.")
|
(* |;;| "Do the equivalent of VECTOR-PUSH-EXTEND inline to save the significant! overhead of calculating the new length at each character.")
|
||||||
|
|
||||||
(CL:UNLESS (CL:VECTOR-PUSH CH STRING)
|
(CL:UNLESS (CL:VECTOR-PUSH CH STRING)
|
||||||
(LET ((CURRENT-LENGTH (CL:ARRAY-TOTAL-SIZE STRING)))
|
(LET ((CURRENT-LENGTH (CL:ARRAY-TOTAL-SIZE STRING)))
|
||||||
@@ -680,7 +689,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN %BROADCAST-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE)
|
(CL:DEFUN %BROADCAST-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE)
|
||||||
|
|
||||||
(* |;;| "charset function for broadcast streams. Not clear what the value should be, so we arbitrarily return the value of the last stream.")
|
(* |;;| "charset function for broadcast streams. Not clear what the value should be, so we arbitrarily return the value of the last stream.")
|
||||||
|
|
||||||
(FOR S IN (FETCH (STREAM F1) OF STREAM) DO (SETQ $$VAL (ACCESS-CHARSET S
|
(FOR S IN (FETCH (STREAM F1) OF STREAM) DO (SETQ $$VAL (ACCESS-CHARSET S
|
||||||
NEWVALUE))))
|
NEWVALUE))))
|
||||||
@@ -709,7 +718,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN %CONCATENATED-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE)
|
(CL:DEFUN %CONCATENATED-STREAM-DEVICE-CHARSETFN (STREAM NEWVALUE)
|
||||||
|
|
||||||
(* |;;| "the charset method for concatenated stream devices")
|
(* |;;| "the charset method for concatenated stream devices")
|
||||||
|
|
||||||
(LET ((STREAMS (FETCH (STREAM F1) OF STREAM)))
|
(LET ((STREAMS (FETCH (STREAM F1) OF STREAM)))
|
||||||
(IF STREAMS
|
(IF STREAMS
|
||||||
@@ -725,7 +734,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM (SYNONYM-STREAM)
|
(CL:DEFUN %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM (SYNONYM-STREAM)
|
||||||
|
|
||||||
(* |;;| "given a synonym-stream, find out what it is currently tracking")
|
(* |;;| "given a synonym-stream, find out what it is currently tracking")
|
||||||
|
|
||||||
(CL:SYMBOL-VALUE (XCL:SYNONYM-STREAM-SYMBOL SYNONYM-STREAM)))
|
(CL:SYMBOL-VALUE (XCL:SYNONYM-STREAM-SYMBOL SYNONYM-STREAM)))
|
||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
@@ -880,7 +889,7 @@
|
|||||||
|
|
||||||
(CL:DEFUN %FILL-POINTER-STREAM-DEVICE-CLOSEFILE (STREAM &OPTIONAL ABORTFLAG)
|
(CL:DEFUN %FILL-POINTER-STREAM-DEVICE-CLOSEFILE (STREAM &OPTIONAL ABORTFLAG)
|
||||||
|
|
||||||
(* |;;;| "the CLOSEFILE method for the fill-pointer-string-stream device")
|
(* |;;;| "the CLOSEFILE method for the fill-pointer-string-stream device")
|
||||||
|
|
||||||
(|replace| F1 |of| STREAM |with| NIL)
|
(|replace| F1 |of| STREAM |with| NIL)
|
||||||
STREAM)
|
STREAM)
|
||||||
@@ -923,8 +932,8 @@
|
|||||||
|
|
||||||
(CL:DEFUN %INITIALIZE-STANDARD-STREAMS ()
|
(CL:DEFUN %INITIALIZE-STANDARD-STREAMS ()
|
||||||
|
|
||||||
(* |;;|
|
(* |;;|
|
||||||
"Called when CLSTREAMS is loaded. Almost everything is same as *TERMINAL-IO* to start with.")
|
"Called when CLSTREAMS is loaded. Almost everything is same as *TERMINAL-IO* to start with.")
|
||||||
|
|
||||||
(CL:SETQ *QUERY-IO* (CL:MAKE-TWO-WAY-STREAM (CL:MAKE-SYNONYM-STREAM '\\LINEBUF.OFD)
|
(CL:SETQ *QUERY-IO* (CL:MAKE-TWO-WAY-STREAM (CL:MAKE-SYNONYM-STREAM '\\LINEBUF.OFD)
|
||||||
(CL:MAKE-SYNONYM-STREAM '\\TERM.OFD)))
|
(CL:MAKE-SYNONYM-STREAM '\\TERM.OFD)))
|
||||||
@@ -944,51 +953,27 @@
|
|||||||
(%INITIALIZE-STANDARD-STREAMS)
|
(%INITIALIZE-STANDARD-STREAMS)
|
||||||
)
|
)
|
||||||
|
|
||||||
(PUTPROPS CLSTREAMS FILETYPE CL:COMPILE-FILE)
|
(PUTPROPS CLSTREAMS FILETYPE CL:COMPILE-FILE)
|
||||||
(PUTPROPS CLSTREAMS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991 2021))
|
(PUTPROPS CLSTREAMS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991))
|
||||||
(DECLARE\: DONTCOPY
|
(DECLARE\: DONTCOPY
|
||||||
(FILEMAP (NIL (5231 14534 (OPEN 5231 . 14534)) (14536 15482 (CL:CLOSE 14536 . 15482)) (15484 15562 (
|
(FILEMAP (NIL (34128 35316 (%BROADCAST-STREAM-DEVICE-BOUT 34138 . 34361) (
|
||||||
CL:STREAM-EXTERNAL-FORMAT 15484 . 15562)) (15564 15631 (CL:STREAM-ELEMENT-TYPE 15564 . 15631)) (15633
|
%BROADCAST-STREAM-DEVICE-OUTCHARFN 34363 . 34814) (%BROADCAST-STREAM-DEVICE-CLOSEFILE 34816 . 35055) (
|
||||||
15867 (CL:INPUT-STREAM-P 15633 . 15867)) (15869 16105 (CL:OUTPUT-STREAM-P 15869 . 16105)) (16107 16244
|
%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 35057 . 35314)) (35732 37791 (%CONCATENATED-STREAM-DEVICE-BIN
|
||||||
(XCL:OPEN-STREAM-P 16107 . 16244)) (16246 16313 (FILE-STREAM-POSITION 16246 . 16313)) (16365 17285 (
|
35742 . 36147) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 36149 . 36462) (%CONCATENATED-STREAM-DEVICE-EOFP
|
||||||
CL:MAKE-SYNONYM-STREAM 16365 . 17285)) (17287 17376 (XCL:SYNONYM-STREAM-P 17287 . 17376)) (17378 17516
|
36464 . 36828) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 36830 . 37305) (
|
||||||
(XCL:SYNONYM-STREAM-SYMBOL 17378 . 17516)) (17518 17796 (XCL:FOLLOW-SYNONYM-STREAMS 17518 . 17796)) (
|
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 37307 . 37789)) (38129 38348 (%ECHO-STREAM-DEVICE-BIN 38139 .
|
||||||
17798 18585 (CL:MAKE-BROADCAST-STREAM 17798 . 18585)) (18587 18730 (XCL:BROADCAST-STREAM-P 18587 .
|
38346)) (38576 41921 (%SYNONYM-STREAM-DEVICE-BIN 38586 . 38774) (%SYNONYM-STREAM-DEVICE-BOUT 38776 .
|
||||||
18730)) (18732 18947 (XCL:BROADCAST-STREAM-STREAMS 18732 . 18947)) (18949 19658 (
|
38977) (%SYNONYM-STREAM-DEVICE-OUTCHARFN 38979 . 39686) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 39688 .
|
||||||
CL:MAKE-CONCATENATED-STREAM 18949 . 19658)) (19660 19759 (XCL:CONCATENATED-STREAM-P 19660 . 19759)) (
|
40272) (%SYNONYM-STREAM-DEVICE-EOFP 40274 . 40465) (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 40467 . 40705)
|
||||||
19761 19974 (XCL:CONCATENATED-STREAM-STREAMS 19761 . 19974)) (19976 21057 (CL:MAKE-TWO-WAY-STREAM
|
(%SYNONYM-STREAM-DEVICE-GETFILEINFO 40707 . 40944) (%SYNONYM-STREAM-DEVICE-PEEKBIN 40946 . 41169) (
|
||||||
19976 . 21057)) (21059 21196 (XCL:TWO-WAY-STREAM-P 21059 . 21196)) (21198 21343 (
|
%SYNONYM-STREAM-DEVICE-READP 41171 . 41282) (%SYNONYM-STREAM-DEVICE-BACKFILEPTR 41284 . 41430) (
|
||||||
XCL:TWO-WAY-STREAM-OUTPUT-STREAM 21198 . 21343)) (21345 21489 (XCL:TWO-WAY-STREAM-INPUT-STREAM 21345
|
%SYNONYM-STREAM-DEVICE-SETFILEINFO 41432 . 41681) (%SYNONYM-STREAM-DEVICE-CHARSETFN 41683 . 41919)) (
|
||||||
. 21489)) (21491 22547 (CL:MAKE-ECHO-STREAM 21491 . 22547)) (22549 22678 (XCL:ECHO-STREAM-P 22549 .
|
41922 46247 (%TWO-WAY-STREAM-DEVICE-BIN 41932 . 42105) (%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 42107 .
|
||||||
22678)) (22680 22818 (XCL:ECHO-STREAM-INPUT-STREAM 22680 . 22818)) (22820 22959 (
|
42298) (%TWO-WAY-STREAM-DEVICE-BOUT 42300 . 42472) (%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 42474 . 42664)
|
||||||
XCL:ECHO-STREAM-OUTPUT-STREAM 22820 . 22959)) (22961 23696 (CL:MAKE-STRING-INPUT-STREAM 22961 . 23696)
|
(%TWO-WAY-STREAM-DEVICE-OUTCHARFN 42666 . 43528) (%TWO-WAY-STREAM-DEVICE-CLOSEFILE 43530 . 44953) (
|
||||||
) (23698 24147 (MAKE-CONCATENATED-STRING-INPUT-STREAM 23698 . 24147)) (24149 24309 (
|
%TWO-WAY-STREAM-DEVICE-EOFP 44955 . 45131) (%TWO-WAY-STREAM-DEVICE-READP 45133 . 45326) (
|
||||||
%MAKE-INITIAL-STRING-STREAM-CONTENTS 24149 . 24309)) (27401 28823 (MAKE-FILL-POINTER-OUTPUT-STREAM
|
%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 45328 . 45464) (%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 45466 . 45695) (
|
||||||
27401 . 28823)) (28825 29564 (CL:GET-OUTPUT-STREAM-STRING 28825 . 29564)) (29566 30059 (
|
%TWO-WAY-STREAM-DEVICE-PEEKBIN 45697 . 45910) (%TWO-WAY-STREAM-DEVICE-CHARSETFN 45912 . 46245)) (46835
|
||||||
\\STRING-STREAM-OUTCHARFN 29566 . 30059)) (30061 31951 (\\ADJUSTABLE-STRING-STREAM-OUTCHARFN 30061 .
|
47074 (%SYNONYM-STREAM-DEVICE-GET-STREAM 46845 . 47072)) (47780 53743 (%INITIALIZE-CLSTREAM-TYPES
|
||||||
31951)) (31980 32062 (%NEW-FILE 31980 . 32062)) (32064 32209 (PREDICT-NAME 32064 . 32209)) (32450
|
47790 . 53741)))))
|
||||||
33638 (%BROADCAST-STREAM-DEVICE-BOUT 32460 . 32683) (%BROADCAST-STREAM-DEVICE-OUTCHARFN 32685 . 33136)
|
|
||||||
(%BROADCAST-STREAM-DEVICE-CLOSEFILE 33138 . 33377) (%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 33379 .
|
|
||||||
33636)) (33640 34053 (%BROADCAST-STREAM-DEVICE-CHARSETFN 33640 . 34053)) (34054 36113 (
|
|
||||||
%CONCATENATED-STREAM-DEVICE-BIN 34064 . 34469) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 34471 . 34784) (
|
|
||||||
%CONCATENATED-STREAM-DEVICE-EOFP 34786 . 35150) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 35152 . 35627) (
|
|
||||||
%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 35629 . 36111)) (36115 36450 (
|
|
||||||
%CONCATENATED-STREAM-DEVICE-CHARSETFN 36115 . 36450)) (36451 36670 (%ECHO-STREAM-DEVICE-BIN 36461 .
|
|
||||||
36668)) (36672 36897 (%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 36672 . 36897)) (36898 40243 (
|
|
||||||
%SYNONYM-STREAM-DEVICE-BIN 36908 . 37096) (%SYNONYM-STREAM-DEVICE-BOUT 37098 . 37299) (
|
|
||||||
%SYNONYM-STREAM-DEVICE-OUTCHARFN 37301 . 38008) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 38010 . 38594) (
|
|
||||||
%SYNONYM-STREAM-DEVICE-EOFP 38596 . 38787) (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 38789 . 39027) (
|
|
||||||
%SYNONYM-STREAM-DEVICE-GETFILEINFO 39029 . 39266) (%SYNONYM-STREAM-DEVICE-PEEKBIN 39268 . 39491) (
|
|
||||||
%SYNONYM-STREAM-DEVICE-READP 39493 . 39604) (%SYNONYM-STREAM-DEVICE-BACKFILEPTR 39606 . 39752) (
|
|
||||||
%SYNONYM-STREAM-DEVICE-SETFILEINFO 39754 . 40003) (%SYNONYM-STREAM-DEVICE-CHARSETFN 40005 . 40241)) (
|
|
||||||
40244 44569 (%TWO-WAY-STREAM-DEVICE-BIN 40254 . 40427) (%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 40429 .
|
|
||||||
40620) (%TWO-WAY-STREAM-DEVICE-BOUT 40622 . 40794) (%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 40796 . 40986)
|
|
||||||
(%TWO-WAY-STREAM-DEVICE-OUTCHARFN 40988 . 41850) (%TWO-WAY-STREAM-DEVICE-CLOSEFILE 41852 . 43275) (
|
|
||||||
%TWO-WAY-STREAM-DEVICE-EOFP 43277 . 43453) (%TWO-WAY-STREAM-DEVICE-READP 43455 . 43648) (
|
|
||||||
%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 43650 . 43786) (%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 43788 . 44017) (
|
|
||||||
%TWO-WAY-STREAM-DEVICE-PEEKBIN 44019 . 44232) (%TWO-WAY-STREAM-DEVICE-CHARSETFN 44234 . 44567)) (44571
|
|
||||||
44796 (%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 44571 . 44796)) (44798 44917 (
|
|
||||||
%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 44798 . 44917)) (45157 45396 (%SYNONYM-STREAM-DEVICE-GET-STREAM
|
|
||||||
45167 . 45394)) (45627 46101 (%INITIALIZE-STANDARD-STREAMS 45627 . 46101)) (46102 52065 (
|
|
||||||
%INITIALIZE-CLSTREAM-TYPES 46112 . 52063)))))
|
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,15 +1,14 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||||
(FILECREATED " 5-Sep-2021 08:25:40"
|
(FILECREATED " 4-Oct-2018 14:13:06" {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>COREIO.;4 55097
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;2 55065
|
|
||||||
|
|
||||||
changes to%: (FNS \CREATECOREDEVICE)
|
changes to%: (FNS \CORE.GETFILEINFO)
|
||||||
|
|
||||||
previous date%: " 4-Oct-2018 14:13:06"
|
previous date%: "28-Jun-99 16:15:28"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;1)
|
{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>COREIO.;3)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1981-1988, 1990, 1993, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 1999, 2018 by Venue & Xerox Corporation. All rights reserved.
|
||||||
")
|
")
|
||||||
|
|
||||||
(PRETTYCOMPRINT COREIOCOMS)
|
(PRETTYCOMPRINT COREIOCOMS)
|
||||||
@@ -953,18 +952,18 @@ Copyright (c) 1981-1988, 1990, 1993, 1999, 2018, 2021 by Venue & Xerox Corporati
|
|||||||
)
|
)
|
||||||
)
|
)
|
||||||
(PUTPROPS COREIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990
|
(PUTPROPS COREIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990
|
||||||
1993 1999 2018 2021))
|
1993 1999 2018))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (1718 43242 (\CORE.CLOSEFILE 1728 . 2501) (\CORE.DELETEFILE 2503 . 4489) (
|
(FILEMAP (NIL (1755 43279 (\CORE.CLOSEFILE 1765 . 2538) (\CORE.DELETEFILE 2540 . 4526) (
|
||||||
\CORE.DIRECTORYNAMEP 4491 . 4752) (\CORE.FINDPAGE 4754 . 7983) (\CORE.GENERATEFILES 7985 . 10572) (
|
\CORE.DIRECTORYNAMEP 4528 . 4789) (\CORE.FINDPAGE 4791 . 8020) (\CORE.GENERATEFILES 8022 . 10609) (
|
||||||
\CORE.NEXTFILEFN 10574 . 11073) (\CORE.FILEINFOFN 11075 . 11304) (\CORE.GETFILEHANDLE 11306 . 13460) (
|
\CORE.NEXTFILEFN 10611 . 11110) (\CORE.FILEINFOFN 11112 . 11341) (\CORE.GETFILEHANDLE 11343 . 13497) (
|
||||||
\CORE.GETFILEINFO 13462 . 14425) (\CORE.GETFILEINFO.FROM.INFOBLOCK 14427 . 15964) (\CORE.GETFILENAME
|
\CORE.GETFILEINFO 13499 . 14462) (\CORE.GETFILEINFO.FROM.INFOBLOCK 14464 . 16001) (\CORE.GETFILENAME
|
||||||
15966 . 18255) (\CORE.GETINFOBLOCK 18257 . 20880) (\CORE.NAMESCAN 20882 . 22649) (\CORE.NAMESEGMENT
|
16003 . 18292) (\CORE.GETINFOBLOCK 18294 . 20917) (\CORE.NAMESCAN 20919 . 22686) (\CORE.NAMESEGMENT
|
||||||
22651 . 23088) (\CORE.OPENFILE 23090 . 26209) (\COREFILE.SETPARAMETERS 26211 . 28392) (
|
22688 . 23125) (\CORE.OPENFILE 23127 . 26246) (\COREFILE.SETPARAMETERS 26248 . 28429) (
|
||||||
\CORE.PACKFILENAME 28394 . 28789) (\CORE.RELEASEPAGES 28791 . 29392) (\CORE.SETFILEPTR 29394 . 30493)
|
\CORE.PACKFILENAME 28431 . 28826) (\CORE.RELEASEPAGES 28828 . 29429) (\CORE.SETFILEPTR 29431 . 30530)
|
||||||
(\CORE.UPDATEOF 30495 . 32124) (\CORE.BACKFILEPTR 32126 . 34334) (\CORE.SETEOFPTR 34336 . 36205) (
|
(\CORE.UPDATEOF 30532 . 32161) (\CORE.BACKFILEPTR 32163 . 34371) (\CORE.SETEOFPTR 34373 . 36242) (
|
||||||
\CORE.SETACCESSTIME 36207 . 36832) (\CORE.SETFILEINFO 36834 . 38025) (\CORE.GETNEXTBUFFER 38027 .
|
\CORE.SETACCESSTIME 36244 . 36869) (\CORE.SETFILEINFO 36871 . 38062) (\CORE.GETNEXTBUFFER 38064 .
|
||||||
41983) (\CORE.UNPACKFILENAME 41985 . 43240)) (43243 46876 (COREDEVICE 43253 . 43424) (
|
42020) (\CORE.UNPACKFILENAME 42022 . 43277)) (43280 46913 (COREDEVICE 43290 . 43461) (
|
||||||
\CREATECOREDEVICE 43426 . 46874)) (46877 49178 (\NODIRCOREFDEV 46887 . 47484) (\NODIRCORE.OPENFILE
|
\CREATECOREDEVICE 43463 . 46911)) (46914 49215 (\NODIRCOREFDEV 46924 . 47521) (\NODIRCORE.OPENFILE
|
||||||
47486 . 49176)))))
|
47523 . 49213)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
108
sources/DEBUGGER
108
sources/DEBUGGER
@@ -1,14 +1,14 @@
|
|||||||
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "DEBUGGER" ( PREFIX-NAME "DBG") ( NICKNAMES
|
(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "DEBUGGER" ( PREFIX-NAME "DBG") ( NICKNAMES "DBG")) READTABLE
|
||||||
"DBG")))
|
"XCL" BASE 10)
|
||||||
(IL:FILECREATED "16-Aug-91 17:38:56" IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>DEBUGGER.;3| 84381
|
(IL:FILECREATED "11-Sep-2021 12:57:01" IL:|{DSK}<home>larry>medley>sources>DEBUGGER.;2| 84311
|
||||||
|
|
||||||
IL:|changes| IL:|to:| (IL:FUNCTIONS DEBUGGER-EVAL)
|
IL:|changes| IL:|to:| (IL:FUNCTIONS STACK-FRAME-PROPERTIES)
|
||||||
|
|
||||||
IL:|previous| IL:|date:| "16-May-90 15:26:02" IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>DEBUGGER.;2|
|
IL:|previous| IL:|date:| "16-Aug-91 17:38:56" IL:|{DSK}<home>larry>medley>sources>DEBUGGER.;1|
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
; Copyright (c) 1986, 1987, 1988, 1990, 1991 by Venue & Xerox Corporation. All rights reserved.
|
; Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
|
||||||
|
|
||||||
(IL:PRETTYCOMPRINT IL:DEBUGGERCOMS)
|
(IL:PRETTYCOMPRINT IL:DEBUGGERCOMS)
|
||||||
|
|
||||||
@@ -520,14 +520,13 @@
|
|||||||
|
|
||||||
(DEFVAR IL:LASTPOS)
|
(DEFVAR IL:LASTPOS)
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("@" :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV)
|
(XCL:DEFCOMMAND ("@" :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV)
|
||||||
"Set debugger stack pointer to location specified by PLACE (or default)"
|
"Set debugger stack pointer to location specified by PLACE (or default)"
|
||||||
(FORMAT T "@ = ~S~%" (IL:STKNAME (FIND-DEBUGGER-STACK-FRAME IL:PLACE IL:ENV)))
|
(FORMAT T "@ = ~S~%" (IL:STKNAME (FIND-DEBUGGER-STACK-FRAME IL:PLACE IL:ENV)))
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("REVERT" :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV) (DECLARE (SPECIAL
|
(XCL:DEFCOMMAND ("REVERT" :DEBUGGER) (&REST IL:PLACE &ENVIRONMENT IL:ENV)
|
||||||
IL:BRKVALUES)
|
(DECLARE (SPECIAL IL:BRKVALUES))
|
||||||
)
|
|
||||||
"Unwind to specified frame (or LASTPOS) and enter breakpoint"
|
"Unwind to specified frame (or LASTPOS) and enter breakpoint"
|
||||||
|
|
||||||
(IL:* IL:|;;| "Find the stack frame that the user asked to unwind to , if any:")
|
(IL:* IL:|;;| "Find the stack frame that the user asked to unwind to , if any:")
|
||||||
@@ -561,7 +560,8 @@
|
|||||||
(IL:RELSTK IL:POS))))))))
|
(IL:RELSTK IL:POS))))))))
|
||||||
(THROW 'DEBUGGER-EXIT NIL)))
|
(THROW 'DEBUGGER-EXIT NIL)))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("?=" :DEBUGGER) NIL "Show arguments"
|
(XCL:DEFCOMMAND ("?=" :DEBUGGER) ()
|
||||||
|
"Show arguments"
|
||||||
(MULTIPLE-VALUE-BIND (IL:NAME IL:DEFN)
|
(MULTIPLE-VALUE-BIND (IL:NAME IL:DEFN)
|
||||||
(FIND-ORIGINAL-NAME-AND-DEFINITION IL:LASTPOS)
|
(FIND-ORIGINAL-NAME-AND-DEFINITION IL:LASTPOS)
|
||||||
(MULTIPLE-VALUE-BIND (IL:LAMBDA-CAR IL:ARGLIST)
|
(MULTIPLE-VALUE-BIND (IL:LAMBDA-CAR IL:ARGLIST)
|
||||||
@@ -589,7 +589,7 @@
|
|||||||
0 T))))))
|
0 T))))))
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("EVAL" :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL IL:EXPRESSION-PROVIDED?))
|
(XCL:DEFCOMMAND ("EVAL" :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL IL:EXPRESSION-PROVIDED?))
|
||||||
(DECLARE (SPECIAL IL:BRKENV IL:BRKVALUES))
|
(DECLARE (SPECIAL IL:BRKENV IL:BRKVALUES))
|
||||||
"Evaluate expression in debugged context"
|
"Evaluate expression in debugged context"
|
||||||
(XCL:CONDITION-CASE (IF IL:EXPRESSION-PROVIDED?
|
(XCL:CONDITION-CASE (IF IL:EXPRESSION-PROVIDED?
|
||||||
@@ -600,14 +600,15 @@
|
|||||||
(SI::DEBUGGER-EVAL-ABORTED (IL:C)
|
(SI::DEBUGGER-EVAL-ABORTED (IL:C)
|
||||||
(VALUES :ABORTED (SI::DEBUGGER-EVAL-ABORTED-CONDITION IL:C)))))
|
(VALUES :ABORTED (SI::DEBUGGER-EVAL-ABORTED-CONDITION IL:C)))))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("VALUE" :DEBUGGER :QUIET) NIL
|
(XCL:DEFCOMMAND ("VALUE" :DEBUGGER :QUIET) ()
|
||||||
"Show value from previous evaluation of debug expression"
|
"Show value from previous evaluation of debug expression"
|
||||||
(IF IL:BRKVALUES
|
(IF IL:BRKVALUES
|
||||||
(VALUES-LIST (CDR IL:BRKVALUES))
|
(VALUES-LIST (CDR IL:BRKVALUES))
|
||||||
(PROGN (FORMAT T "Not yet evaluated~&")
|
(PROGN (FORMAT T "Not yet evaluated~&")
|
||||||
(VALUES))))
|
(VALUES))))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("UB" :DEBUGGER) (&OPTIONAL (IL:FN IL:BRKFN)) "Unbreak function with breakpoint"
|
(XCL:DEFCOMMAND ("UB" :DEBUGGER) (&OPTIONAL (IL:FN IL:BRKFN))
|
||||||
|
"Unbreak function with breakpoint"
|
||||||
(DECLARE (SPECIAL IL:BRKFN))
|
(DECLARE (SPECIAL IL:BRKFN))
|
||||||
(IL:EVAL (LIST 'XCL:UNBREAK IL:FN)))
|
(IL:EVAL (LIST 'XCL:UNBREAK IL:FN)))
|
||||||
|
|
||||||
@@ -882,26 +883,32 @@
|
|||||||
(return nil))))
|
(return nil))))
|
||||||
)
|
)
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("BT" :DEBUGGER) NIL "Print backtrace of external frames"
|
(XCL:DEFCOMMAND ("BT" :DEBUGGER) ()
|
||||||
|
"Print backtrace of external frames"
|
||||||
(PRINT-BACKTRACE :FROM IL:LASTPOS :TEST 'XCL::INTERESTING-FRAME-P)
|
(PRINT-BACKTRACE :FROM IL:LASTPOS :TEST 'XCL::INTERESTING-FRAME-P)
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("BT!" :DEBUGGER) NIL "Print backtrace of all frames"
|
(XCL:DEFCOMMAND ("BT!" :DEBUGGER) ()
|
||||||
|
"Print backtrace of all frames"
|
||||||
(PRINT-BACKTRACE :FROM IL:LASTPOS :TEST NIL)
|
(PRINT-BACKTRACE :FROM IL:LASTPOS :TEST NIL)
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("BTV" :DEBUGGER) NIL "Print backtrace of frames and special bindings"
|
(XCL:DEFCOMMAND ("BTV" :DEBUGGER) ()
|
||||||
|
"Print backtrace of frames and special bindings"
|
||||||
(PRINT-BACKTRACE :FROM IL:LASTPOS :PRINT-VARIABLES T)
|
(PRINT-BACKTRACE :FROM IL:LASTPOS :PRINT-VARIABLES T)
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("BTV!" :DEBUGGER) NIL "Print backtrace of all frame information"
|
(XCL:DEFCOMMAND ("BTV!" :DEBUGGER) ()
|
||||||
|
"Print backtrace of all frame information"
|
||||||
(PRINT-BACKTRACE :FROM IL:LASTPOS :PRINT-VARIABLES T :PRINT-JUNK T)
|
(PRINT-BACKTRACE :FROM IL:LASTPOS :PRINT-VARIABLES T :PRINT-JUNK T)
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("DBT" :DEBUGGER) NIL (ATTACH-BACKTRACE-MENU NIL T)
|
(XCL:DEFCOMMAND ("DBT" :DEBUGGER) ()
|
||||||
|
(ATTACH-BACKTRACE-MENU NIL T)
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("DBT!" :DEBUGGER) NIL (ATTACH-BACKTRACE-MENU)
|
(XCL:DEFCOMMAND ("DBT!" :DEBUGGER) ()
|
||||||
|
(ATTACH-BACKTRACE-MENU)
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(DEFUN ATTACH-BACKTRACE-MENU (&OPTIONAL IL:TTYWINDOW IL:SKIP)
|
(DEFUN ATTACH-BACKTRACE-MENU (&OPTIONAL IL:TTYWINDOW IL:SKIP)
|
||||||
@@ -1209,7 +1216,7 @@
|
|||||||
0
|
0
|
||||||
IL:AS I IL:|from| (1+ NUM-ARGS) IL:|to| TOTAL-SLOTS
|
IL:AS I IL:|from| (1+ NUM-ARGS) IL:|to| TOTAL-SLOTS
|
||||||
IL:|when| (AND (IL:NEQ NOVALUE (IL:STKARG I POS NOVALUE))
|
IL:|when| (AND (IL:NEQ NOVALUE (IL:STKARG I POS NOVALUE))
|
||||||
(OR (SETF ARGNAME (IL:STKARGNAME I POS))
|
(OR (SETF ARGNAME (IL:STKARGNAME I POS T))
|
||||||
(AND LOTS? (SETQ ARGNAME (FORMAT NIL "local ~D" PVAR))
|
(AND LOTS? (SETQ ARGNAME (FORMAT NIL "local ~D" PVAR))
|
||||||
))) IL:|collect| (LIST ARGNAME I))))
|
))) IL:|collect| (LIST ARGNAME I))))
|
||||||
(AND SLOTS (CONS '("locals")
|
(AND SLOTS (CONS '("locals")
|
||||||
@@ -1345,16 +1352,19 @@
|
|||||||
(T 0)))
|
(T 0)))
|
||||||
OUTPUT))
|
OUTPUT))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("STOP" :DEBUGGER :QUIET) NIL "Exit this debugger level"
|
(XCL:DEFCOMMAND ("STOP" :DEBUGGER :QUIET) ()
|
||||||
|
"Exit this debugger level"
|
||||||
(IL:SETQ IL:BRKVALUES '(IL:ERROR!))
|
(IL:SETQ IL:BRKVALUES '(IL:ERROR!))
|
||||||
(THROW 'DEBUGGER-EXIT NIL))
|
(THROW 'DEBUGGER-EXIT NIL))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("^" :DEBUGGER :QUIET) NIL "Abort out of debugger"
|
(XCL:DEFCOMMAND ("^" :DEBUGGER :QUIET) ()
|
||||||
|
"Abort out of debugger"
|
||||||
(IL:SETQ IL:BRKVALUES '(IL:ERROR!))
|
(IL:SETQ IL:BRKVALUES '(IL:ERROR!))
|
||||||
(THROW 'DEBUGGER-EXIT NIL))
|
(THROW 'DEBUGGER-EXIT NIL))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("RETURN" :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL)
|
(XCL:DEFCOMMAND ("RETURN" :DEBUGGER) (&OPTIONAL (IL:EXPRESSION NIL)
|
||||||
&ENVIRONMENT IL:ENV) "Return value from debugger"
|
&ENVIRONMENT IL:ENV)
|
||||||
|
"Return value from debugger"
|
||||||
(XCL:CONDITION-CASE (PROGN (IL:SETQ IL:BRKVALUES (LIST 'RETURN (MULTIPLE-VALUE-LIST (
|
(XCL:CONDITION-CASE (PROGN (IL:SETQ IL:BRKVALUES (LIST 'RETURN (MULTIPLE-VALUE-LIST (
|
||||||
DEBUGGER-EVAL
|
DEBUGGER-EVAL
|
||||||
IL:EXPRESSION
|
IL:EXPRESSION
|
||||||
@@ -1364,20 +1374,23 @@
|
|||||||
(SI::DEBUGGER-EVAL-ABORTED (IL:C)
|
(SI::DEBUGGER-EVAL-ABORTED (IL:C)
|
||||||
(VALUES :ABORTED (SI::DEBUGGER-EVAL-ABORTED-CONDITION IL:C)))))
|
(VALUES :ABORTED (SI::DEBUGGER-EVAL-ABORTED-CONDITION IL:C)))))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("PR" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER) "Select and invoke a proceed case."
|
(XCL:DEFCOMMAND ("PR" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER)
|
||||||
(ESCAPE-FROM-DEBUGGER T IL:NAME-OR-NUMBER)
|
|
||||||
(VALUES))
|
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("PR!" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER) "Select and invoke a proceed case."
|
|
||||||
(ESCAPE-FROM-DEBUGGER NIL IL:NAME-OR-NUMBER)
|
|
||||||
(VALUES))
|
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("PROCEED" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER)
|
|
||||||
"Select and invoke a proceed case."
|
"Select and invoke a proceed case."
|
||||||
(ESCAPE-FROM-DEBUGGER T IL:NAME-OR-NUMBER)
|
(ESCAPE-FROM-DEBUGGER T IL:NAME-OR-NUMBER)
|
||||||
(VALUES))
|
(VALUES))
|
||||||
|
|
||||||
(XCL:DEFCOMMAND ("OK" :DEBUGGER :QUIET) NIL (DECLARE (SPECIAL IL:BRKENV))
|
(XCL:DEFCOMMAND ("PR!" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER)
|
||||||
|
"Select and invoke a proceed case."
|
||||||
|
(ESCAPE-FROM-DEBUGGER NIL IL:NAME-OR-NUMBER)
|
||||||
|
(VALUES))
|
||||||
|
|
||||||
|
(XCL:DEFCOMMAND ("PROCEED" :DEBUGGER) (&OPTIONAL IL:NAME-OR-NUMBER)
|
||||||
|
"Select and invoke a proceed case."
|
||||||
|
(ESCAPE-FROM-DEBUGGER T IL:NAME-OR-NUMBER)
|
||||||
|
(VALUES))
|
||||||
|
|
||||||
|
(XCL:DEFCOMMAND ("OK" :DEBUGGER :QUIET) ()
|
||||||
|
(DECLARE (SPECIAL IL:BRKENV))
|
||||||
"Exit/proceed from debugger"
|
"Exit/proceed from debugger"
|
||||||
(XCL:CONDITION-CASE (PROGN (WHEN (TYPEP IL:BRKCOND 'SI::BREAKPOINT)
|
(XCL:CONDITION-CASE (PROGN (WHEN (TYPEP IL:BRKCOND 'SI::BREAKPOINT)
|
||||||
|
|
||||||
@@ -1530,6 +1543,27 @@
|
|||||||
)
|
)
|
||||||
(IL:PUTPROPS XCL:DEBUGGER IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991))
|
(IL:PUTPROPS XCL:DEBUGGER IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991))
|
||||||
(IL:DECLARE\: IL:DONTCOPY
|
(IL:DECLARE\: IL:DONTCOPY
|
||||||
(IL:FILEMAP (NIL (18680 18967 (IL:WBREAK 18693 . 18965)) (42297 47159 (IL:BAKTRACE 42310 . 45094) (
|
(IL:FILEMAP (NIL (4639 6450 (XCL:ENTER-DEBUGGER-P 4639 . 6450)) (6452 13574 (XCL:DEBUGGER 6452 . 13574
|
||||||
IL:BAKTRACE1 45096 . 47157)) (81689 83655 (IL:FIND-STACK-FRAME 81702 . 83653)))))
|
)) (13576 13890 (EMERGENCY-PANIC-LOOP 13576 . 13890)) (13892 15347 (IL:FIND-DEBUGGER-ENTRY-FRAME 13892
|
||||||
|
. 15347)) (15349 16038 (PRINT-ENTRY-MESSAGE 15349 . 16038)) (16040 16341 (SIMPLE-REPORT-CONDITION
|
||||||
|
16040 . 16341)) (16343 18083 (XCL::INTERESTING-FRAME-P 16343 . 18083)) (18668 18955 (IL:WBREAK 18681
|
||||||
|
. 18953)) (19068 20177 (REUSE-CURRENT-WINDOW 19068 . 20177)) (20179 21483 (CREATE-DEBUGGER-WINDOW
|
||||||
|
20179 . 21483)) (21485 22437 (SET-UP-DEBUGGER-WINDOW 21485 . 22437)) (22439 23454 (
|
||||||
|
CLOSE-DEBUGGER-WINDOW 22439 . 23454)) (23456 23942 (RELEASE-DEBUGGER-WINDOW 23456 . 23942)) (23944
|
||||||
|
24881 (NEAR-BY-REGION 23944 . 24881)) (24883 25993 (DEBUGGER-BUTTON-EVENT 24883 . 25993)) (25995 26932
|
||||||
|
(DEBUGGER-MENU-HELP 25995 . 26932)) (31872 33690 (DEBUGGER-EVAL 31872 . 33690)) (33692 38041 (
|
||||||
|
FIND-DEBUGGER-STACK-FRAME 33692 . 38041)) (38043 38782 (FIND-NAMED-STACK-POSITION 38043 . 38782)) (
|
||||||
|
38784 39416 (FIND-ORIGINAL-NAME-AND-DEFINITION 38784 . 39416)) (39418 39552 (STKPTR-CCODE 39418 .
|
||||||
|
39552)) (42143 47005 (IL:BAKTRACE 42156 . 44940) (IL:BAKTRACE1 44942 . 47003)) (47841 54770 (
|
||||||
|
ATTACH-BACKTRACE-MENU 47841 . 54770)) (54772 57983 (REGION-NEXT-TO 54772 . 57983)) (57985 59428 (
|
||||||
|
BACKTRACE-MENU-BUTTONEVENTFN 57985 . 59428)) (59430 63704 (BACKTRACE-ITEM-SELECTED 59430 . 63704)) (
|
||||||
|
63706 67543 (STACK-FRAME-PROPERTIES 63706 . 67543)) (67545 68555 (STACK-FRAME-FETCHFN 67545 . 68555))
|
||||||
|
(68557 69744 (STACK-FRAME-STOREFN 68557 . 69744)) (69746 70321 (STACK-FRAME-VALUE-COMMAND 69746 .
|
||||||
|
70321)) (70323 70733 (STACK-FRAME-PROPERTY 70323 . 70733)) (70735 72720 (MAKE-FRAME-INSPECT-WINDOW
|
||||||
|
70735 . 72720)) (72722 72919 (%RELEASE-STACK-DATUM 72722 . 72919)) (72921 73627 (PRINT-BACKTRACE 72921
|
||||||
|
. 73627)) (76856 76950 (EXIT-DEBUGGER 76856 . 76950)) (76952 77271 (INVOKE-ESCAPE-FROM-MENU 76952 .
|
||||||
|
77271)) (77273 78696 (ESCAPE-FROM-DEBUGGER 77273 . 78696)) (78698 79076 (MENU-FROM-ESCAPE-LIST 78698
|
||||||
|
. 79076)) (79078 80237 (KEYLIST-FROM-ESCAPE-LIST 79078 . 80237)) (80239 81247 (COLLECT-ACTIVE-ESCAPES
|
||||||
|
80239 . 81247)) (81249 81618 (IL:FIND-LEXICAL-ENVIRONMENT 81249 . 81618)) (81619 83585 (
|
||||||
|
IL:FIND-STACK-FRAME 81632 . 83583)))))
|
||||||
IL:STOP
|
IL:STOP
|
||||||
|
|||||||
Binary file not shown.
531
sources/FILEIO
531
sources/FILEIO
@@ -1,12 +1,11 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:26:24"
|
(FILECREATED " 6-Sep-2021 15:54:14"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;90 178473
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;92 178421
|
||||||
|
|
||||||
changes to%: (FNS \FDEVINSTANCE \NULLDEVICE)
|
changes to%: (RECORDS FDEV)
|
||||||
(RECORDS FDEV)
|
|
||||||
|
|
||||||
previous date%: " 5-Sep-2021 08:17:18"
|
previous date%: "13-Aug-2021 18:39:18"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;89)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;91)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -19,14 +18,14 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
[(PROP (FILETYPE MAKEFILE-ENVIRONMENT)
|
[(PROP (FILETYPE MAKEFILE-ENVIRONMENT)
|
||||||
FILEIO)
|
FILEIO)
|
||||||
|
|
||||||
(* ;; "Device independent IO. This file is used by VAX")
|
(* ;; "Device independent IO. This file is used by VAX")
|
||||||
|
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "STREAM, FDEV declarations")
|
(* ;; "STREAM, FDEV declarations")
|
||||||
|
|
||||||
(DECLARE%: FIRST DOCOPY
|
(DECLARE%: FIRST DOCOPY
|
||||||
|
|
||||||
(* ;; "The microcode relies on STREAM being of a particular type, viz. the first type declared in the initial loadup (after VMEMPAGEP)")
|
(* ;; "The microcode relies on STREAM being of a particular type, viz. the first type declared in the initial loadup (after VMEMPAGEP)")
|
||||||
|
|
||||||
(INITRECORDS STREAM))
|
(INITRECORDS STREAM))
|
||||||
(SYSRECORDS STREAM)
|
(SYSRECORDS STREAM)
|
||||||
@@ -39,12 +38,12 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
OVERWRITEABLE READABLE READONLY WRITEABLE)
|
OVERWRITEABLE READABLE READONLY WRITEABLE)
|
||||||
(CONSTANTS * EOLCONVENTIONS)))
|
(CONSTANTS * EOLCONVENTIONS)))
|
||||||
(FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP)
|
(FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP)
|
||||||
[COMS (* ; "make streams print pretty")
|
[COMS (* ; "make streams print pretty")
|
||||||
(FNS \DEFPRINT.BY.NAME \STREAM.DEFPRINT \FDEV.DEFPRINT)
|
(FNS \DEFPRINT.BY.NAME \STREAM.DEFPRINT \FDEV.DEFPRINT)
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'STREAM (FUNCTION \STREAM.DEFPRINT))
|
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'STREAM (FUNCTION \STREAM.DEFPRINT))
|
||||||
(DEFPRINT 'FDEV (FUNCTION \FDEV.DEFPRINT]
|
(DEFPRINT 'FDEV (FUNCTION \FDEV.DEFPRINT]
|
||||||
(COMS (* ;
|
(COMS (* ;
|
||||||
"Needed because of STREAM initialization")
|
"Needed because of STREAM initialization")
|
||||||
(INITVARS (FILELINELENGTH 102)
|
(INITVARS (FILELINELENGTH 102)
|
||||||
(\STREAM.DEFAULT.MAXBUFFERS 3)))
|
(\STREAM.DEFAULT.MAXBUFFERS 3)))
|
||||||
(FNS \GETACCESS \SETACCESS)
|
(FNS \GETACCESS \SETACCESS)
|
||||||
@@ -52,8 +51,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
(RECORDS FDEV FILEGENOBJ)))
|
(RECORDS FDEV FILEGENOBJ)))
|
||||||
(INITRECORDS FDEV)
|
(INITRECORDS FDEV)
|
||||||
(SYSRECORDS FDEV))
|
(SYSRECORDS FDEV))
|
||||||
[COMS (* ;
|
[COMS (* ;
|
||||||
"EXTERNALFORMAT declaration and related functions")
|
"EXTERNALFORMAT declaration and related functions")
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT)))
|
(DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT)))
|
||||||
(FNS MAKE-EXTERNALFORMAT)
|
(FNS MAKE-EXTERNALFORMAT)
|
||||||
(INITRECORDS EXTERNALFORMAT)
|
(INITRECORDS EXTERNALFORMAT)
|
||||||
@@ -66,7 +65,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
(COMS (FNS \CREATE.THROUGH.EXTERNALFORMAT \THROUGHIN \THROUGHBACKCCODE
|
(COMS (FNS \CREATE.THROUGH.EXTERNALFORMAT \THROUGHIN \THROUGHBACKCCODE
|
||||||
\THROUGHOUTCHARFN)
|
\THROUGHOUTCHARFN)
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT]
|
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT]
|
||||||
(COMS (* ; "Device operations")
|
(COMS (* ; "Device operations")
|
||||||
(FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE
|
(FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE
|
||||||
\REMOVEDEVICE.NAMES)
|
\REMOVEDEVICE.NAMES)
|
||||||
(INITVARS (STREAM-AFTER-OPEN-FNS NIL))
|
(INITVARS (STREAM-AFTER-OPEN-FNS NIL))
|
||||||
@@ -75,7 +74,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
\RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES
|
\RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES
|
||||||
\PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST
|
\PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST
|
||||||
\PRINT-REVALIDATION-RESULT \TRUNCATEFILE \FILE-CONFLICT)
|
\PRINT-REVALIDATION-RESULT \TRUNCATEFILE \FILE-CONFLICT)
|
||||||
(COMS (* ; "Generic enumerator")
|
(COMS (* ; "Generic enumerator")
|
||||||
(FNS \GENERATENOFILES \NULLFILEGENERATOR \NOFILESNEXTFILEFN \NOFILESINFOFN)
|
(FNS \GENERATENOFILES \NULLFILEGENERATOR \NOFILESNEXTFILEFN \NOFILESINFOFN)
|
||||||
(DECLARE%: DONTCOPY (RECORDS NOFILEGENSTATE)))
|
(DECLARE%: DONTCOPY (RECORDS NOFILEGENSTATE)))
|
||||||
(FNS \FILE.NOT.OPEN \FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP
|
(FNS \FILE.NOT.OPEN \FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP
|
||||||
@@ -83,16 +82,16 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
(ADDVARS (\FILEDEVICES)
|
(ADDVARS (\FILEDEVICES)
|
||||||
(\FILEDEVICENAMES)
|
(\FILEDEVICENAMES)
|
||||||
(\DEVICENAMETODEVICE))
|
(\DEVICENAMETODEVICE))
|
||||||
(COMS (* ; "Device instances")
|
(COMS (* ; "Device instances")
|
||||||
(FNS \FDEVINSTANCE)
|
(FNS \FDEVINSTANCE)
|
||||||
(MACROS \INHERITFDEVOP.D \INHERITFDEVOP.S))
|
(MACROS \INHERITFDEVOP.D \INHERITFDEVOP.S))
|
||||||
(INITVARS (LOGINHOST/DIR '{DSK})
|
(INITVARS (LOGINHOST/DIR '{DSK})
|
||||||
(\CONNECTED.DIRECTORY '{DSK}))
|
(\CONNECTED.DIRECTORY '{DSK}))
|
||||||
(GLOBALVARS LOGINHOST/DIR \CONNECTED.DIRECTORY \FILEDEVICES \FILEDEVICENAMES
|
(GLOBALVARS LOGINHOST/DIR \CONNECTED.DIRECTORY \FILEDEVICES \FILEDEVICENAMES
|
||||||
\DEVICENAMETODEVICE))
|
\DEVICENAMETODEVICE))
|
||||||
(COMS (* ; "Directory defaulting")
|
(COMS (* ; "Directory defaulting")
|
||||||
(FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR))
|
(FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR))
|
||||||
[COMS (* ; "Binary I/O Public functions")
|
[COMS (* ; "Binary I/O Public functions")
|
||||||
(FNS \BACKFILEPTR \BACKPEEKBIN \BACKBIN BIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES
|
(FNS \BACKFILEPTR \BACKPEEKBIN \BACKBIN BIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES
|
||||||
COPYCHARS COPYFILE \COPYOPENFILE \INFER.FILE.TYPE EOFP FORCEOUTPUT
|
COPYCHARS COPYFILE \COPYOPENFILE \INFER.FILE.TYPE EOFP FORCEOUTPUT
|
||||||
\FLUSH.OPEN.STREAMS CHARSET ACCESS-CHARSET GETEOFPTR GETFILEINFO
|
\FLUSH.OPEN.STREAMS CHARSET ACCESS-CHARSET GETEOFPTR GETFILEINFO
|
||||||
@@ -100,7 +99,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
BIN16)
|
BIN16)
|
||||||
(PROP (DOPCODE)
|
(PROP (DOPCODE)
|
||||||
BOUT)
|
BOUT)
|
||||||
(* ; "Generic functions")
|
(* ; "Generic functions")
|
||||||
(FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP
|
(FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP
|
||||||
\GENERIC.CHARSET)
|
\GENERIC.CHARSET)
|
||||||
(FNS \MAP-OPEN-STREAMS)
|
(FNS \MAP-OPEN-STREAMS)
|
||||||
@@ -117,7 +116,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
(PUTD (CADR PAIR)
|
(PUTD (CADR PAIR)
|
||||||
(GETD (CAR PAIR))
|
(GETD (CAR PAIR))
|
||||||
T]
|
T]
|
||||||
(COMS (* ; "Internal functions")
|
(COMS (* ; "Internal functions")
|
||||||
(FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH
|
(FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH
|
||||||
\SETEOFPTR \SETFILEPTR)
|
\SETEOFPTR \SETFILEPTR)
|
||||||
(FNS \FIXPOUT \FIXPIN)
|
(FNS \FIXPOUT \FIXPIN)
|
||||||
@@ -131,10 +130,10 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
[CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30]
|
[CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30]
|
||||||
(RECORDS BYTEPTR))
|
(RECORDS BYTEPTR))
|
||||||
(CONSTANTS MaxChar)))
|
(CONSTANTS MaxChar)))
|
||||||
(COMS (* ; "Buffered IO")
|
(COMS (* ; "Buffered IO")
|
||||||
(FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS
|
(FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS
|
||||||
\BUFFERED.COPYBYTES))
|
\BUFFERED.COPYBYTES))
|
||||||
[COMS (* ; "NULL device")
|
[COMS (* ; "NULL device")
|
||||||
(FNS \NULLDEVICE \NULL.OPENFILE)
|
(FNS \NULLDEVICE \NULL.OPENFILE)
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE]
|
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE]
|
||||||
(LOCALVARS . T)
|
(LOCALVARS . T)
|
||||||
@@ -283,58 +282,58 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
|
|
||||||
(DATATYPE STREAM
|
(DATATYPE STREAM
|
||||||
(
|
(
|
||||||
(* ;; "First 8 words are fixed for BIN, BOUT opcodes. Used to require length of whole datatype be multiple of 4, but Dolphin dead now.")
|
(* ;; "First 8 words are fixed for BIN, BOUT opcodes. Used to require length of whole datatype be multiple of 4, but Dolphin dead now.")
|
||||||
|
|
||||||
(COFFSET WORD) (* ;
|
(COFFSET WORD) (* ;
|
||||||
"Offset in CPPTR of next bin or bout")
|
"Offset in CPPTR of next bin or bout")
|
||||||
(CBUFSIZE WORD) (* ;
|
(CBUFSIZE WORD) (* ;
|
||||||
"Offset past last byte in that buffer")
|
"Offset past last byte in that buffer")
|
||||||
(PEEKEDCHARP FLAG) (* ;
|
(PEEKEDCHARP FLAG) (* ;
|
||||||
"if true, PEEKEDCHAR contains value of recent call to unread-char")
|
"if true, PEEKEDCHAR contains value of recent call to unread-char")
|
||||||
(ACCESSBITS BITS 3) (* ;
|
(ACCESSBITS BITS 3) (* ;
|
||||||
"What kind of access file is open for (read, write, append)")
|
"What kind of access file is open for (read, write, append)")
|
||||||
(CBUFPTR POINTER) (* ; "Pointer to current buffer")
|
(CBUFPTR POINTER) (* ; "Pointer to current buffer")
|
||||||
(BYTESIZE BYTE) (* ;
|
(BYTESIZE BYTE) (* ;
|
||||||
"Byte size of stream, always 8 for now")
|
"Byte size of stream, always 8 for now")
|
||||||
(CHARSET BYTE) (* ; "the current character set for this stream. If 255, stream is not runcoded, so read-char consumes two bytes every time")
|
(CHARSET BYTE) (* ; "the current character set for this stream. If 255, stream is not runcoded, so read-char consumes two bytes every time")
|
||||||
(PEEKEDCHAR WORD) (* ; "value of unread-char call")
|
(PEEKEDCHAR WORD) (* ; "value of unread-char call")
|
||||||
(CHARPOSITION WORD) (* ; "Used by POSITION etc.")
|
(CHARPOSITION WORD) (* ; "Used by POSITION etc.")
|
||||||
(CBUFMAXSIZE WORD) (* ;
|
(CBUFMAXSIZE WORD) (* ;
|
||||||
"on output, the size of the physical buffer--can't extend beyond this")
|
"on output, the size of the physical buffer--can't extend beyond this")
|
||||||
|
|
||||||
(* ;; "-------- Above fields (8 words) potentially known to microcode. --------")
|
(* ;; "-------- Above fields (8 words) potentially known to microcode. --------")
|
||||||
|
|
||||||
(NONDEFAULTDATEFLG FLAG)
|
(NONDEFAULTDATEFLG FLAG)
|
||||||
(REVALIDATEFLG FLAG)
|
(REVALIDATEFLG FLAG)
|
||||||
(MULTIBUFFERHINT FLAG) (* ;
|
(MULTIBUFFERHINT FLAG) (* ;
|
||||||
"True if stream likes to read and write more than one buffer at a time")
|
"True if stream likes to read and write more than one buffer at a time")
|
||||||
(USERCLOSEABLE FLAG) (* ;
|
(USERCLOSEABLE FLAG) (* ;
|
||||||
"Can be closed by CLOSEF; NIL for terminal, dribble...")
|
"Can be closed by CLOSEF; NIL for terminal, dribble...")
|
||||||
(FULLFILENAME POINTER) (* ;
|
(FULLFILENAME POINTER) (* ;
|
||||||
"Name by which file is known to user")
|
"Name by which file is known to user")
|
||||||
(BINABLE FLAG) (* ; "BIN punts unless this bit on")
|
(BINABLE FLAG) (* ; "BIN punts unless this bit on")
|
||||||
(BOUTABLE FLAG) (* ; "BOUT punts unless this bit on")
|
(BOUTABLE FLAG) (* ; "BOUT punts unless this bit on")
|
||||||
(EXTENDABLE FLAG) (* ;
|
(EXTENDABLE FLAG) (* ;
|
||||||
"BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512")
|
"BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512")
|
||||||
(CBUFDIRTY FLAG) (* ;
|
(CBUFDIRTY FLAG) (* ;
|
||||||
"true if BOUT has sullied the current buffer")
|
"true if BOUT has sullied the current buffer")
|
||||||
(DEVICE POINTER) (* ; "FDEV of this guy")
|
(DEVICE POINTER) (* ; "FDEV of this guy")
|
||||||
(USERVISIBLE FLAG) (* ;
|
(USERVISIBLE FLAG) (* ;
|
||||||
"Listed by OPENP; NIL for terminal, dribble ...")
|
"Listed by OPENP; NIL for terminal, dribble ...")
|
||||||
(EOLCONVENTION BITS 2) (* ; "End-of-line convention")
|
(EOLCONVENTION BITS 2) (* ; "End-of-line convention")
|
||||||
(NIL FLAG) (* ; "Was NOTXCCS.")
|
(NIL FLAG) (* ; "Was NOTXCCS.")
|
||||||
(VALIDATION POINTER) (* ;
|
(VALIDATION POINTER) (* ;
|
||||||
"A number somehow identifying file, used to determine if file has changed in our absence")
|
"A number somehow identifying file, used to determine if file has changed in our absence")
|
||||||
(CPAGE POINTER) (* ;
|
(CPAGE POINTER) (* ;
|
||||||
"CPAGE,,COFFSET constitutes current file pointer for most randaccess streams")
|
"CPAGE,,COFFSET constitutes current file pointer for most randaccess streams")
|
||||||
(EPAGE POINTER)
|
(EPAGE POINTER)
|
||||||
(EOFFSET WORD) (* ; "Page, byte offset of eof")
|
(EOFFSET WORD) (* ; "Page, byte offset of eof")
|
||||||
(LINELENGTH WORD) (* ;
|
(LINELENGTH WORD) (* ;
|
||||||
"LINELENGTH of stream, or -1 for no line length")
|
"LINELENGTH of stream, or -1 for no line length")
|
||||||
|
|
||||||
(* ;; "----Following are device-specific fields----")
|
(* ;; "----Following are device-specific fields----")
|
||||||
|
|
||||||
(* ;; "Available for device-specific uses, NOT for application use.")
|
(* ;; "Available for device-specific uses, NOT for application use.")
|
||||||
|
|
||||||
(F1 POINTER)
|
(F1 POINTER)
|
||||||
(F2 POINTER)
|
(F2 POINTER)
|
||||||
@@ -347,54 +346,54 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
(FW9 WORD)
|
(FW9 WORD)
|
||||||
(F10 POINTER)
|
(F10 POINTER)
|
||||||
|
|
||||||
(* ;; "----Following only filled in for open streams----")
|
(* ;; "----Following only filled in for open streams----")
|
||||||
|
|
||||||
(STRMBINFN POINTER) (* ;
|
(STRMBINFN POINTER) (* ;
|
||||||
"Either the BIN fn from the FDEV, or a trap")
|
"Either the BIN fn from the FDEV, or a trap")
|
||||||
(STRMBOUTFN POINTER) (* ;
|
(STRMBOUTFN POINTER) (* ;
|
||||||
"Either the BIN fn from the FDEV, or a trap")
|
"Either the BIN fn from the FDEV, or a trap")
|
||||||
(OUTCHARFN POINTER) (* ;
|
(OUTCHARFN POINTER) (* ;
|
||||||
"Called by \OUTCHAR, the normal character printer.")
|
"Called by \OUTCHAR, the normal character printer.")
|
||||||
(ENDOFSTREAMOP POINTER) (* ;
|
(ENDOFSTREAMOP POINTER) (* ;
|
||||||
"Called if EOF and we try to read.")
|
"Called if EOF and we try to read.")
|
||||||
(OTHERPROPS POINTER) (* ;
|
(OTHERPROPS POINTER) (* ;
|
||||||
"PROP LIST for holding other info.")
|
"PROP LIST for holding other info.")
|
||||||
(IMAGEOPS POINTER) (* ; "Image operations vector")
|
(IMAGEOPS POINTER) (* ; "Image operations vector")
|
||||||
(IMAGEDATA POINTER) (* ;
|
(IMAGEDATA POINTER) (* ;
|
||||||
"Image instance variables--format depends on IMAGEOPS value")
|
"Image instance variables--format depends on IMAGEOPS value")
|
||||||
(BUFFS POINTER) (* ;
|
(BUFFS POINTER) (* ;
|
||||||
"Buffer chain for pmapped streams")
|
"Buffer chain for pmapped streams")
|
||||||
(MAXBUFFERS WORD) (* ;
|
(MAXBUFFERS WORD) (* ;
|
||||||
"Max # of buffers the system will allocate.")
|
"Max # of buffers the system will allocate.")
|
||||||
(LASTCCODE WORD) (* ; "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC. If there is none, this field is 65535.")
|
(LASTCCODE WORD) (* ; "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC. If there is none, this field is 65535.")
|
||||||
(EXTRASTREAMOP POINTER) (* ;
|
(EXTRASTREAMOP POINTER) (* ;
|
||||||
"For use of applications programs, not devices")
|
"For use of applications programs, not devices")
|
||||||
(INCCODEFN POINTER) (* ; "Set by \EXTERNALFORMAT")
|
(INCCODEFN POINTER) (* ; "Set by \EXTERNALFORMAT")
|
||||||
(PEEKCCODEFN POINTER)
|
(PEEKCCODEFN POINTER)
|
||||||
(BACKCCODEFN POINTER)
|
(BACKCCODEFN POINTER)
|
||||||
(EXTERNALFORMAT POINTER))
|
(EXTERNALFORMAT POINTER))
|
||||||
(BLOCKRECORD STREAM ((NIL 2 WORD)
|
(BLOCKRECORD STREAM ((NIL 2 WORD)
|
||||||
(UCODEFLAGS1 BITS 1)
|
(UCODEFLAGS1 BITS 1)
|
||||||
|
|
||||||
(* ;; "respecification of access bits:")
|
(* ;; "respecification of access bits:")
|
||||||
|
|
||||||
(RANDOMWRITEABLE FLAG) (* ;
|
(RANDOMWRITEABLE FLAG) (* ;
|
||||||
"File open for output (access = OUTPUT or BOTH)")
|
"File open for output (access = OUTPUT or BOTH)")
|
||||||
(APPENDABLE FLAG) (* ;
|
(APPENDABLE FLAG) (* ;
|
||||||
"File open for append (OUTPUT or APPEND or BOTH)")
|
"File open for append (OUTPUT or APPEND or BOTH)")
|
||||||
(READABLE FLAG) (* ;
|
(READABLE FLAG) (* ;
|
||||||
"File open for read (READ or BOTH)")
|
"File open for read (READ or BOTH)")
|
||||||
(NIL POINTER)))
|
(NIL POINTER)))
|
||||||
(BLOCKRECORD STREAM ((NIL 4 WORD)
|
(BLOCKRECORD STREAM ((NIL 4 WORD)
|
||||||
(NIL BITS 14)
|
(NIL BITS 14)
|
||||||
|
|
||||||
(* ;;
|
(* ;;
|
||||||
"JIS character encoding format specific, overrides CHARSET field.")
|
"JIS character encoding format specific, overrides CHARSET field.")
|
||||||
|
|
||||||
(IN.KANJIIN FLAG) (* ;
|
(IN.KANJIIN FLAG) (* ;
|
||||||
"True if input stream is in Kanji-in mode.")
|
"True if input stream is in Kanji-in mode.")
|
||||||
(OUT.KANJIIN FLAG) (* ;
|
(OUT.KANJIIN FLAG) (* ;
|
||||||
"True if output stream is in Kanji-in mode.")
|
"True if output stream is in Kanji-in mode.")
|
||||||
))
|
))
|
||||||
[ACCESSFNS STREAM ((ACCESS \GETACCESS \SETACCESS)
|
[ACCESSFNS STREAM ((ACCESS \GETACCESS \SETACCESS)
|
||||||
(FULLNAME (OR (fetch (STREAM FULLFILENAME) of DATUM)
|
(FULLNAME (OR (fetch (STREAM FULLFILENAME) of DATUM)
|
||||||
@@ -810,138 +809,138 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
)
|
)
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(DATATYPE FDEV ((RESETABLE FLAG) (* ; "Obsolete")
|
(DATATYPE FDEV ((RESETABLE FLAG) (* ; "Obsolete")
|
||||||
(RANDOMACCESSP FLAG)
|
(RANDOMACCESSP FLAG)
|
||||||
(NODIRECTORIES FLAG)
|
(NODIRECTORIES FLAG)
|
||||||
(PAGEMAPPED FLAG) (* ;
|
(PAGEMAPPED FLAG) (* ;
|
||||||
"True if i/o handled by pmap routines")
|
"True if i/o handled by pmap routines")
|
||||||
(FDBINABLE FLAG) (* ;
|
(FDBINABLE FLAG) (* ;
|
||||||
"Copied as a microcode flag for INPUT streams formed on this device")
|
"Copied as a microcode flag for INPUT streams formed on this device")
|
||||||
(FDBOUTABLE FLAG)
|
(FDBOUTABLE FLAG)
|
||||||
(FDEXTENDABLE FLAG)
|
(FDEXTENDABLE FLAG)
|
||||||
(BUFFERED FLAG) (* ; "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method")
|
(BUFFERED FLAG) (* ; "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method")
|
||||||
(DEVICENAME POINTER) (* ; "Identifying name somehow")
|
(DEVICENAME POINTER) (* ; "Identifying name somehow")
|
||||||
(REMOTEP FLAG) (* ;
|
(REMOTEP FLAG) (* ;
|
||||||
"true if device not local to machine")
|
"true if device not local to machine")
|
||||||
(SUBDIRECTORIES FLAG) (* ;
|
(SUBDIRECTORIES FLAG) (* ;
|
||||||
"true if device has real subdirectories")
|
"true if device has real subdirectories")
|
||||||
(INPUT-INDIRECTED FLAG) (* ;
|
(INPUT-INDIRECTED FLAG) (* ;
|
||||||
"True for devices that indirect their input stream. Method INPUTSTREAM fetches it")
|
"True for devices that indirect their input stream. Method INPUTSTREAM fetches it")
|
||||||
(OUTPUT-INDIRECTED FLAG) (* ;
|
(OUTPUT-INDIRECTED FLAG) (* ;
|
||||||
"True for devices that indirect their output stream. Method OUTPUTSTREAM fetches it")
|
"True for devices that indirect their output stream. Method OUTPUTSTREAM fetches it")
|
||||||
(DEVICEINFO POINTER) (* ;
|
(DEVICEINFO POINTER) (* ;
|
||||||
"arbitrary device-specific info stored here")
|
"arbitrary device-specific info stored here")
|
||||||
(OPENFILELST POINTER) (* ;
|
(OPENFILELST POINTER) (* ;
|
||||||
"Default place to keep list of streams open on this device")
|
"Default place to keep list of streams open on this device")
|
||||||
|
|
||||||
(* ;; "-----Rest of record consists of device %"methods%"-----")
|
(* ;; "-----Rest of record consists of device %"methods%"-----")
|
||||||
|
|
||||||
(* ;; "-----Following fields required of all devices-----")
|
(* ;; "-----Following fields required of all devices-----")
|
||||||
|
|
||||||
(HOSTNAMEP POINTER) (* ; "(hostname {device}) => T if hostname is valid. If device is given, return a FDEV for this {new} host, or T to use existing device")
|
(HOSTNAMEP POINTER) (* ; "(hostname {device}) => T if hostname is valid. If device is given, return a FDEV for this {new} host, or T to use existing device")
|
||||||
(EVENTFN POINTER) (* ;
|
(EVENTFN POINTER) (* ;
|
||||||
"(device event), called before/after logout, sysout, makesys")
|
"(device event), called before/after logout, sysout, makesys")
|
||||||
|
|
||||||
(* ;;
|
(* ;;
|
||||||
"-----Following fields required of all named devices, e.g., ones that open files-----")
|
"-----Following fields required of all named devices, e.g., ones that open files-----")
|
||||||
|
|
||||||
(DIRECTORYNAMEP POINTER) (* ;
|
(DIRECTORYNAMEP POINTER) (* ;
|
||||||
"(host/dir) => true if directory exists on host")
|
"(host/dir) => true if directory exists on host")
|
||||||
(OPENFILE POINTER) (* ;
|
(OPENFILE POINTER) (* ;
|
||||||
"(name access recog otherinfo device) => new stream open on this device, or NIL if name not found")
|
"(name access recog otherinfo device) => new stream open on this device, or NIL if name not found")
|
||||||
(CLOSEFILE POINTER) (* ;
|
(CLOSEFILE POINTER) (* ;
|
||||||
"(stream) => closes stream, returns it")
|
"(stream) => closes stream, returns it")
|
||||||
(REOPENFILE POINTER) (* ; "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous")
|
(REOPENFILE POINTER) (* ; "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous")
|
||||||
(GETFILENAME POINTER) (* ;
|
(GETFILENAME POINTER) (* ;
|
||||||
"(name recog device) => full file name")
|
"(name recog device) => full file name")
|
||||||
(DELETEFILE POINTER) (* ;
|
(DELETEFILE POINTER) (* ;
|
||||||
"(name) => deletes file so named, returning name, or NIL on failure. RECOG=OLDEST")
|
"(name) => deletes file so named, returning name, or NIL on failure. RECOG=OLDEST")
|
||||||
(GENERATEFILES POINTER) (* ; "(device pattern) => generator object for files matching pattern. Car of object is generator function, cdr is arbitrary state. Generator fn returns next file, or NIL when finished")
|
(GENERATEFILES POINTER) (* ; "(device pattern) => generator object for files matching pattern. Car of object is generator function, cdr is arbitrary state. Generator fn returns next file, or NIL when finished")
|
||||||
(RENAMEFILE POINTER) (* ; "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device.")
|
(RENAMEFILE POINTER) (* ; "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device.")
|
||||||
(OPENP POINTER) (* ;
|
(OPENP POINTER) (* ;
|
||||||
"(name access dev) => stream if name is open for access, or all open streams if name = NIL")
|
"(name access dev) => stream if name is open for access, or all open streams if name = NIL")
|
||||||
(REGISTERFILE POINTER) (* ;
|
(REGISTERFILE POINTER) (* ;
|
||||||
"(stream dev) => registers stream on its device")
|
"(stream dev) => registers stream on its device")
|
||||||
(UNREGISTERFILE POINTER) (* ;
|
(UNREGISTERFILE POINTER) (* ;
|
||||||
"(stream dev) => unregisters a stream from its device")
|
"(stream dev) => unregisters a stream from its device")
|
||||||
(FREEPAGECOUNT POINTER) (* ;
|
(FREEPAGECOUNT POINTER) (* ;
|
||||||
"(host/dir dev) => # of free pages on host/dir")
|
"(host/dir dev) => # of free pages on host/dir")
|
||||||
(MAKEDIRECTORY POINTER) (* ; "(host/dir dev)")
|
(MAKEDIRECTORY POINTER) (* ; "(host/dir dev)")
|
||||||
(CHECKFILENAME POINTER) (* ;
|
(CHECKFILENAME POINTER) (* ;
|
||||||
"(name dev) => name if it is well-formed file name for dev")
|
"(name dev) => name if it is well-formed file name for dev")
|
||||||
(HOSTALIVEP POINTER) (* ;
|
(HOSTALIVEP POINTER) (* ;
|
||||||
"(host dev) => true if host is alive, i.e., responsive; only defined if REMOTEP is true")
|
"(host dev) => true if host is alive, i.e., responsive; only defined if REMOTEP is true")
|
||||||
(BREAKCONNECTION POINTER) (* ;
|
(BREAKCONNECTION POINTER) (* ;
|
||||||
"(host fastp dev) => closes connections to host")
|
"(host fastp dev) => closes connections to host")
|
||||||
|
|
||||||
(* ;;
|
(* ;;
|
||||||
"-----The following are required methods for operating on open streams-----")
|
"-----The following are required methods for operating on open streams-----")
|
||||||
|
|
||||||
(BIN POINTER) (* ; "(stream) => next byte of input")
|
(BIN POINTER) (* ; "(stream) => next byte of input")
|
||||||
(BOUT POINTER) (* ;
|
(BOUT POINTER) (* ;
|
||||||
"(stream byte) output byte to stream")
|
"(stream byte) output byte to stream")
|
||||||
(PEEKBIN POINTER) (* ;
|
(PEEKBIN POINTER) (* ;
|
||||||
"(stream) => next byte without advancing position in stream")
|
"(stream) => next byte without advancing position in stream")
|
||||||
(NIL POINTER) (* ;
|
(NIL POINTER) (* ;
|
||||||
"Was READCHAR, replaced by READCHARCODE")
|
"Was READCHAR, replaced by READCHARCODE")
|
||||||
(NIL POINTER) (* ;
|
(NIL POINTER) (* ;
|
||||||
"Was WRITECHAR (stream char) => writes char to stream")
|
"Was WRITECHAR (stream char) => writes char to stream")
|
||||||
(NIL POINTER) (* ; "Was PEEKCHAR")
|
(NIL POINTER) (* ; "Was PEEKCHAR")
|
||||||
(NIL POINTER) (* ; "Was UNREADCHAR")
|
(NIL POINTER) (* ; "Was UNREADCHAR")
|
||||||
(READP POINTER) (* ;
|
(READP POINTER) (* ;
|
||||||
"(stream flag) => T if there is input available from stream right now")
|
"(stream flag) => T if there is input available from stream right now")
|
||||||
(EOFP POINTER) (* ;
|
(EOFP POINTER) (* ;
|
||||||
"(stream) => T if BIN would signal eof.")
|
"(stream) => T if BIN would signal eof.")
|
||||||
(BLOCKIN POINTER) (* ;
|
(BLOCKIN POINTER) (* ;
|
||||||
"(stream buffer byteoffset nbytes)")
|
"(stream buffer byteoffset nbytes)")
|
||||||
(BLOCKOUT POINTER) (* ;
|
(BLOCKOUT POINTER) (* ;
|
||||||
"(stream buffer byteoffset nbytes)")
|
"(stream buffer byteoffset nbytes)")
|
||||||
(FORCEOUTPUT POINTER) (* ;
|
(FORCEOUTPUT POINTER) (* ;
|
||||||
"(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission")
|
"(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission")
|
||||||
(GETFILEINFO POINTER) (* ;
|
(GETFILEINFO POINTER) (* ;
|
||||||
"(stream/name attribute device) => value of attribute for open stream or name of closed file")
|
"(stream/name attribute device) => value of attribute for open stream or name of closed file")
|
||||||
(SETFILEINFO POINTER) (* ;
|
(SETFILEINFO POINTER) (* ;
|
||||||
"(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name")
|
"(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name")
|
||||||
(CHARSETFN POINTER) (* ; "(stream charset) => access function for the charset slot, for benefit of indirect streams. See IMCHARSET for changing it on a file.")
|
(CHARSETFN POINTER) (* ; "(stream charset) => access function for the charset slot, for benefit of indirect streams. See IMCHARSET for changing it on a file.")
|
||||||
(INPUTSTREAM POINTER) (* ;
|
(INPUTSTREAM POINTER) (* ;
|
||||||
"(stream) => indirected input stream")
|
"(stream) => indirected input stream")
|
||||||
(OUTPUTSTREAM POINTER) (* ;
|
(OUTPUTSTREAM POINTER) (* ;
|
||||||
"(stream) => indirected output stream")
|
"(stream) => indirected output stream")
|
||||||
|
|
||||||
(* ;; "-----Following are required of random-access streams-----")
|
(* ;; "-----Following are required of random-access streams-----")
|
||||||
|
|
||||||
(GETFILEPTR POINTER)
|
(GETFILEPTR POINTER)
|
||||||
(GETEOFPTR POINTER)
|
(GETEOFPTR POINTER)
|
||||||
(SETFILEPTR POINTER)
|
(SETFILEPTR POINTER)
|
||||||
(BACKFILEPTR POINTER) (* ; "(stream) backs up `fileptr' by one. Stream is only required to be able to do this once, i.e. one-character buffer suffices")
|
(BACKFILEPTR POINTER) (* ; "(stream) backs up `fileptr' by one. Stream is only required to be able to do this once, i.e. one-character buffer suffices")
|
||||||
(SETEOFPTR POINTER) (* ;
|
(SETEOFPTR POINTER) (* ;
|
||||||
"(stream length) => truncates or lengthens stream to indicated length")
|
"(stream length) => truncates or lengthens stream to indicated length")
|
||||||
(LASTC POINTER) (* ;
|
(LASTC POINTER) (* ;
|
||||||
"Should be possible only if RANDOMACCESSP")
|
"Should be possible only if RANDOMACCESSP")
|
||||||
|
|
||||||
(* ;; "-----Following used for buffered streams-----")
|
(* ;; "-----Following used for buffered streams-----")
|
||||||
|
|
||||||
(GETNEXTBUFFER POINTER) (* ; "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next. whatfor is READ or WRITE. Can cause EOF error unless noerrorflg")
|
(GETNEXTBUFFER POINTER) (* ; "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next. whatfor is READ or WRITE. Can cause EOF error unless noerrorflg")
|
||||||
(RELEASEBUFFER POINTER) (* ;
|
(RELEASEBUFFER POINTER) (* ;
|
||||||
"(stream) => Does whatever appropriate when CBUFPTR is released")
|
"(stream) => Does whatever appropriate when CBUFPTR is released")
|
||||||
|
|
||||||
(* ;; "-----Following used for pagemapped streams-----")
|
(* ;; "-----Following used for pagemapped streams-----")
|
||||||
|
|
||||||
(READPAGES POINTER) (* ; "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)")
|
(READPAGES POINTER) (* ; "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)")
|
||||||
(WRITEPAGES POINTER) (* ;
|
(WRITEPAGES POINTER) (* ;
|
||||||
"(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream")
|
"(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream")
|
||||||
(TRUNCATEFILE POINTER) (* ;
|
(TRUNCATEFILE POINTER) (* ;
|
||||||
"(stream page offset) make stream's eof be at page,offset, discarding anything after it")
|
"(stream page offset) make stream's eof be at page,offset, discarding anything after it")
|
||||||
|
|
||||||
(* ;; "-----For window system, argh-----")
|
(* ;; "-----For window system, argh-----")
|
||||||
|
|
||||||
(WINDOWOPS POINTER) (* ; "window system operations")
|
(WINDOWOPS POINTER) (* ; "window system operations")
|
||||||
(WINDOWDATA POINTER) (* ; "data for window systems")
|
(WINDOWDATA POINTER) (* ; "data for window systems")
|
||||||
|
|
||||||
(* ;; "-----For any stream (here to not recompile everything)-----")
|
(* ;; "-----For any stream (here to not recompile everything)-----")
|
||||||
|
|
||||||
(DEFAULTEXTERNALFORMAT POINTER) (* ;
|
(DEFAULTEXTERNALFORMAT POINTER) (* ;
|
||||||
"Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).")
|
"Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).")
|
||||||
)
|
)
|
||||||
DIRECTORYNAMEP _ (FUNCTION NILL)
|
DIRECTORYNAMEP _ (FUNCTION NILL)
|
||||||
HOSTNAMEP _ (FUNCTION NILL)
|
HOSTNAMEP _ (FUNCTION NILL)
|
||||||
@@ -1188,22 +1187,22 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
|
|||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)")
|
(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)")
|
||||||
(EOL BITS 2)
|
(EOL BITS 2)
|
||||||
(NIL BITS 1)
|
(NIL BITS 1)
|
||||||
(INCCODEFN POINTER) (* ;
|
(INCCODEFN POINTER) (* ;
|
||||||
"Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL")
|
"Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL")
|
||||||
(PEEKCCODEFN POINTER) (* ;
|
(PEEKCCODEFN POINTER) (* ;
|
||||||
"Called with three arguments -- STREAM, NOERROR, and EOL")
|
"Called with three arguments -- STREAM, NOERROR, and EOL")
|
||||||
(BACKCCODEFN POINTER) (* ;
|
(BACKCCODEFN POINTER) (* ;
|
||||||
"Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL")
|
"Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL")
|
||||||
(OUTCHARFN POINTER) (* ;
|
(OUTCHARFN POINTER) (* ;
|
||||||
"Called with two arguments -- STREAM and CHARCODE")
|
"Called with two arguments -- STREAM and CHARCODE")
|
||||||
(NAME POINTER) (* ;
|
(NAME POINTER) (* ;
|
||||||
"keyword name of this format, provided to \INSTALL.EXTERNALFORMAT")
|
"keyword name of this format, provided to \INSTALL.EXTERNALFORMAT")
|
||||||
(FORMATBYTESTREAMFN POINTER) (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined")
|
(FORMATBYTESTREAMFN POINTER) (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined")
|
||||||
(EF1 POINTER) (* ;
|
(EF1 POINTER) (* ;
|
||||||
"Extra fields for use of particular formats. Possibly to hold standardized translation tables")
|
"Extra fields for use of particular formats. Possibly to hold standardized translation tables")
|
||||||
(EF2 POINTER)))
|
(EF2 POINTER)))
|
||||||
)
|
)
|
||||||
|
|
||||||
@@ -2949,8 +2948,8 @@ update the map")
|
|||||||
|
|
||||||
(PUTPROPS \CONVERT-PATHNAME DMACRO (OPENLAMBDA (PATHNAME?)
|
(PUTPROPS \CONVERT-PATHNAME DMACRO (OPENLAMBDA (PATHNAME?)
|
||||||
|
|
||||||
(* ;;
|
(* ;;
|
||||||
"Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns")
|
"Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns")
|
||||||
|
|
||||||
(CL:TYPECASE PATHNAME?
|
(CL:TYPECASE PATHNAME?
|
||||||
(PATHNAME (INTERLISP-NAMESTRING PATHNAME?))
|
(PATHNAME (INTERLISP-NAMESTRING PATHNAME?))
|
||||||
@@ -3397,44 +3396,44 @@ update the map")
|
|||||||
(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
|
(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
|
||||||
1990 1991 1992 1993 1999 2020 2021))
|
1990 1991 1992 1993 1999 2020 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (28448 31938 (STREAMPROP 28458 . 28892) (GETSTREAMPROP 28894 . 29367) (PUTSTREAMPROP
|
(FILEMAP (NIL (28396 31886 (STREAMPROP 28406 . 28840) (GETSTREAMPROP 28842 . 29315) (PUTSTREAMPROP
|
||||||
29369 . 31786) (STREAMP 31788 . 31936)) (31981 34500 (\DEFPRINT.BY.NAME 31991 . 33143) (
|
29317 . 31734) (STREAMP 31736 . 31884)) (31929 34448 (\DEFPRINT.BY.NAME 31939 . 33091) (
|
||||||
\STREAM.DEFPRINT 33145 . 34193) (\FDEV.DEFPRINT 34195 . 34498)) (34758 39799 (\GETACCESS 34768 . 35222
|
\STREAM.DEFPRINT 33093 . 34141) (\FDEV.DEFPRINT 34143 . 34446)) (34706 39747 (\GETACCESS 34716 . 35170
|
||||||
) (\SETACCESS 35224 . 39797)) (63184 64437 (MAKE-EXTERNALFORMAT 63194 . 64435)) (65670 73499 (
|
) (\SETACCESS 35172 . 39745)) (63132 64385 (MAKE-EXTERNALFORMAT 63142 . 64383)) (65618 73447 (
|
||||||
\INSTALL.EXTERNALFORMAT 65680 . 67129) (\REMOVE.EXTERNALFORMAT 67131 . 67962) (FIND-FORMAT 67964 .
|
\INSTALL.EXTERNALFORMAT 65628 . 67077) (\REMOVE.EXTERNALFORMAT 67079 . 67910) (FIND-FORMAT 67912 .
|
||||||
68781) (\EXTERNALFORMAT 68783 . 73497)) (73822 75685 (\CREATE.THROUGH.EXTERNALFORMAT 73832 . 74634) (
|
68729) (\EXTERNALFORMAT 68731 . 73445)) (73770 75633 (\CREATE.THROUGH.EXTERNALFORMAT 73780 . 74582) (
|
||||||
\THROUGHIN 74636 . 75060) (\THROUGHBACKCCODE 75062 . 75333) (\THROUGHOUTCHARFN 75335 . 75683)) (75793
|
\THROUGHIN 74584 . 75008) (\THROUGHBACKCCODE 75010 . 75281) (\THROUGHOUTCHARFN 75283 . 75631)) (75741
|
||||||
81762 (\DEFINEDEVICE 75803 . 78119) (\GETDEVICEFROMNAME 78121 . 78594) (\GETDEVICEFROMHOSTNAME 78596
|
81710 (\DEFINEDEVICE 75751 . 78067) (\GETDEVICEFROMNAME 78069 . 78542) (\GETDEVICEFROMHOSTNAME 78544
|
||||||
. 79640) (\REMOVEDEVICE 79642 . 80765) (\REMOVEDEVICE.NAMES 80767 . 81760)) (81802 106462 (\CLOSEFILE
|
. 79588) (\REMOVEDEVICE 79590 . 80713) (\REMOVEDEVICE.NAMES 80715 . 81708)) (81750 106410 (\CLOSEFILE
|
||||||
81812 . 82637) (\DELETEFILE 82639 . 82933) (\DEVICEEVENT 82935 . 84705) (\GENERATEFILES 84707 . 85185
|
81760 . 82585) (\DELETEFILE 82587 . 82881) (\DEVICEEVENT 82883 . 84653) (\GENERATEFILES 84655 . 85133
|
||||||
) (\GENERATENEXTFILE 85187 . 85838) (\GENERATEFILEINFO 85840 . 86301) (\GETFILENAME 86303 . 86692) (
|
) (\GENERATENEXTFILE 85135 . 85786) (\GENERATEFILEINFO 85788 . 86249) (\GETFILENAME 86251 . 86640) (
|
||||||
\GENERIC.OUTFILEP 86694 . 87164) (\OPENFILE 87166 . 89744) (\DO.PARAMS.AT.OPEN 89746 . 92299) (
|
\GENERIC.OUTFILEP 86642 . 87112) (\OPENFILE 87114 . 89692) (\DO.PARAMS.AT.OPEN 89694 . 92247) (
|
||||||
\RENAMEFILE 92301 . 92725) (\REVALIDATEFILE 92727 . 95329) (\PAGED.REVALIDATEFILELST 95331 . 96889) (
|
\RENAMEFILE 92249 . 92673) (\REVALIDATEFILE 92675 . 95277) (\PAGED.REVALIDATEFILELST 95279 . 96837) (
|
||||||
\PAGED.REVALIDATEFILES 96891 . 98610) (\PAGED.REVALIDATEFILE 98612 . 100895) (\BUFFERED.REVALIDATEFILE
|
\PAGED.REVALIDATEFILES 96839 . 98558) (\PAGED.REVALIDATEFILE 98560 . 100843) (\BUFFERED.REVALIDATEFILE
|
||||||
100897 . 103183) (\BUFFERED.REVALIDATEFILELST 103185 . 104369) (\PRINT-REVALIDATION-RESULT 104371 .
|
100845 . 103131) (\BUFFERED.REVALIDATEFILELST 103133 . 104317) (\PRINT-REVALIDATION-RESULT 104319 .
|
||||||
104786) (\TRUNCATEFILE 104788 . 105179) (\FILE-CONFLICT 105181 . 106460)) (106498 111161 (
|
104734) (\TRUNCATEFILE 104736 . 105127) (\FILE-CONFLICT 105129 . 106408)) (106446 111109 (
|
||||||
\GENERATENOFILES 106508 . 108604) (\NULLFILEGENERATOR 108606 . 108850) (\NOFILESNEXTFILEFN 108852 .
|
\GENERATENOFILES 106456 . 108552) (\NULLFILEGENERATOR 108554 . 108798) (\NOFILESNEXTFILEFN 108800 .
|
||||||
110843) (\NOFILESINFOFN 110845 . 111159)) (111280 113188 (\FILE.NOT.OPEN 111290 . 111803) (
|
110791) (\NOFILESINFOFN 110793 . 111107)) (111228 113136 (\FILE.NOT.OPEN 111238 . 111751) (
|
||||||
\FILE.WONT.OPEN 111805 . 112133) (\ILLEGAL.DEVICEOP 112135 . 112417) (\IS.NOT.RANDACCESSP 112419 .
|
\FILE.WONT.OPEN 111753 . 112081) (\ILLEGAL.DEVICEOP 112083 . 112365) (\IS.NOT.RANDACCESSP 112367 .
|
||||||
112865) (\STREAM.NOT.OPEN 112867 . 113186)) (113323 115621 (\FDEVINSTANCE 113333 . 115619)) (117171
|
112813) (\STREAM.NOT.OPEN 112815 . 113134)) (113271 115569 (\FDEVINSTANCE 113281 . 115567)) (117119
|
||||||
124545 (CNDIR 117181 . 118486) (DIRECTORYNAME 118488 . 122671) (DIRECTORYNAMEP 122673 . 123289) (
|
124493 (CNDIR 117129 . 118434) (DIRECTORYNAME 118436 . 122619) (DIRECTORYNAMEP 122621 . 123237) (
|
||||||
HOSTNAMEP 123291 . 124098) (\ADD.CONNECTED.DIR 124100 . 124543)) (124590 151977 (\BACKFILEPTR 124600
|
HOSTNAMEP 123239 . 124046) (\ADD.CONNECTED.DIR 124048 . 124491)) (124538 151925 (\BACKFILEPTR 124548
|
||||||
. 124788) (\BACKPEEKBIN 124790 . 125151) (\BACKBIN 125153 . 125504) (BIN 125506 . 125723) (\BIN
|
. 124736) (\BACKPEEKBIN 124738 . 125099) (\BACKBIN 125101 . 125452) (BIN 125454 . 125671) (\BIN
|
||||||
125725 . 126002) (\BINS 126004 . 126290) (BOUT 126292 . 126654) (\BOUT 126656 . 126971) (\BOUTS 126973
|
125673 . 125950) (\BINS 125952 . 126238) (BOUT 126240 . 126602) (\BOUT 126604 . 126919) (\BOUTS 126921
|
||||||
. 127284) (COPYBYTES 127286 . 130618) (COPYCHARS 130620 . 134286) (COPYFILE 134288 . 135085) (
|
. 127232) (COPYBYTES 127234 . 130566) (COPYCHARS 130568 . 134234) (COPYFILE 134236 . 135033) (
|
||||||
\COPYOPENFILE 135087 . 138160) (\INFER.FILE.TYPE 138162 . 139116) (EOFP 139118 . 139415) (FORCEOUTPUT
|
\COPYOPENFILE 135035 . 138108) (\INFER.FILE.TYPE 138110 . 139064) (EOFP 139066 . 139363) (FORCEOUTPUT
|
||||||
139417 . 139664) (\FLUSH.OPEN.STREAMS 139666 . 140022) (CHARSET 140024 . 141688) (ACCESS-CHARSET
|
139365 . 139612) (\FLUSH.OPEN.STREAMS 139614 . 139970) (CHARSET 139972 . 141636) (ACCESS-CHARSET
|
||||||
141690 . 141907) (GETEOFPTR 141909 . 142159) (GETFILEINFO 142161 . 145354) (\TYPE.FROM.FILETYPE 145356
|
141638 . 141855) (GETEOFPTR 141857 . 142107) (GETFILEINFO 142109 . 145302) (\TYPE.FROM.FILETYPE 145304
|
||||||
. 145826) (\FILETYPE.FROM.TYPE 145828 . 146007) (GETFILEPTR 146009 . 146261) (SETFILEINFO 146263 .
|
. 145774) (\FILETYPE.FROM.TYPE 145776 . 145955) (GETFILEPTR 145957 . 146209) (SETFILEINFO 146211 .
|
||||||
149876) (SETFILEPTR 149878 . 151597) (BOUT16 151599 . 151784) (BIN16 151786 . 151975)) (152080 157285
|
149824) (SETFILEPTR 149826 . 151545) (BOUT16 151547 . 151732) (BIN16 151734 . 151923)) (152028 157233
|
||||||
(\GENERIC.BINS 152090 . 152370) (\GENERIC.BOUTS 152372 . 152637) (\GENERIC.RENAMEFILE 152639 . 154470)
|
(\GENERIC.BINS 152038 . 152318) (\GENERIC.BOUTS 152320 . 152585) (\GENERIC.RENAMEFILE 152587 . 154418)
|
||||||
(\GENERIC.OPENP 154472 . 155787) (\GENERIC.READP 155789 . 156830) (\GENERIC.CHARSET 156832 . 157283))
|
(\GENERIC.OPENP 154420 . 155735) (\GENERIC.READP 155737 . 156778) (\GENERIC.CHARSET 156780 . 157231))
|
||||||
(157286 157625 (\MAP-OPEN-STREAMS 157296 . 157623)) (159495 161575 (\EOF.ACTION 159505 . 159756) (
|
(157234 157573 (\MAP-OPEN-STREAMS 157244 . 157571)) (159443 161523 (\EOF.ACTION 159453 . 159704) (
|
||||||
\EOSERROR 159758 . 159951) (\GETEOFPTR 159953 . 160135) (\INCFILEPTR 160137 . 160487) (\PEEKBIN 160489
|
\EOSERROR 159706 . 159899) (\GETEOFPTR 159901 . 160083) (\INCFILEPTR 160085 . 160435) (\PEEKBIN 160437
|
||||||
. 160680) (\SETCLOSEDFILELENGTH 160682 . 161016) (\SETEOFPTR 161018 . 161206) (\SETFILEPTR 161208 .
|
. 160628) (\SETCLOSEDFILELENGTH 160630 . 160964) (\SETEOFPTR 160966 . 161154) (\SETFILEPTR 161156 .
|
||||||
161573)) (161576 162118 (\FIXPOUT 161586 . 161886) (\FIXPIN 161888 . 162116)) (162119 162685 (\BOUTEOL
|
161521)) (161524 162066 (\FIXPOUT 161534 . 161834) (\FIXPIN 161836 . 162064)) (162067 162633 (\BOUTEOL
|
||||||
162129 . 162683)) (165777 175641 (\BUFFERED.BIN 165787 . 166639) (\BUFFERED.PEEKBIN 166641 . 167423)
|
162077 . 162631)) (165725 175589 (\BUFFERED.BIN 165735 . 166587) (\BUFFERED.PEEKBIN 166589 . 167371)
|
||||||
(\BUFFERED.BOUT 167425 . 168285) (\BUFFERED.BINS 168287 . 171972) (\BUFFERED.BOUTS 171974 . 173775) (
|
(\BUFFERED.BOUT 167373 . 168233) (\BUFFERED.BINS 168235 . 171920) (\BUFFERED.BOUTS 171922 . 173723) (
|
||||||
\BUFFERED.COPYBYTES 173777 . 175639)) (175670 178022 (\NULLDEVICE 175680 . 177698) (\NULL.OPENFILE
|
\BUFFERED.COPYBYTES 173725 . 175587)) (175618 177970 (\NULLDEVICE 175628 . 177646) (\NULL.OPENFILE
|
||||||
177700 . 178020)))))
|
177648 . 177968)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,103 +1,103 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED "28-Jun-99 22:10:46" {DSK}<project>medley3.5>sources>FONTPROFILE.;2 29960
|
(FILECREATED " 6-Sep-2021 19:11:32"
|
||||||
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;4 30288
|
||||||
|
|
||||||
changes to%: (VARS FONTPROFILECOMS)
|
changes to%: (ALISTS (FONTDEFS BIGGERNS))
|
||||||
(ALISTS (FONTDEFS NS)
|
|
||||||
(FONTDEFS BIGGERNS))
|
|
||||||
|
|
||||||
previous date%: " 9-Jul-91 18:38:04" {DSK}<project>medley3.5>sources>FONTPROFILE.;1)
|
previous date%: " 6-Sep-2021 15:52:13"
|
||||||
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All rights reserved.
|
Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation.
|
||||||
")
|
")
|
||||||
|
|
||||||
(PRETTYCOMPRINT FONTPROFILECOMS)
|
(PRETTYCOMPRINT FONTPROFILECOMS)
|
||||||
|
|
||||||
(RPAQQ FONTPROFILECOMS
|
(RPAQQ FONTPROFILECOMS
|
||||||
(
|
(
|
||||||
(* ;; "FONT")
|
(* ;; "FONT")
|
||||||
|
|
||||||
(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS))
|
(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS))
|
||||||
(ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu))
|
(ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu))
|
||||||
[VARS (FONTVARS '(
|
[VARS (FONTVARS '(
|
||||||
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
|
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
|
||||||
|
|
||||||
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
|
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
|
||||||
(* ; "default BOLD")
|
(* ; "default BOLD")
|
||||||
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
|
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
|
||||||
(LITTLEFONT DEFAULTFONT)
|
(LITTLEFONT DEFAULTFONT)
|
||||||
(* ; " should usually be smaller")
|
(* ; " should usually be smaller")
|
||||||
(TINYFONT LITTLEFONT)
|
(TINYFONT LITTLEFONT)
|
||||||
(* ; "and this one smaller still")
|
(* ; "and this one smaller still")
|
||||||
(BIGFONT BOLDFONT)
|
(BIGFONT BOLDFONT)
|
||||||
(* ; "should be bigger still")
|
(* ; "should be bigger still")
|
||||||
(TEXTFONT DEFAULTFONT)
|
(TEXTFONT DEFAULTFONT)
|
||||||
(* ; "default for text")
|
(* ; "default for text")
|
||||||
(TEXTBOLDFONT BOLDFONT)
|
(TEXTBOLDFONT BOLDFONT)
|
||||||
(* ; "default for bold text")
|
(* ; "default for bold text")
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for window system, processes")
|
(* ;; "Fonts for window system, processes")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
(MENUFONT DEFAULTFONT T)
|
(MENUFONT DEFAULTFONT T)
|
||||||
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
|
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
|
||||||
(* ; "if not supplied")
|
(* ; "if not supplied")
|
||||||
(INTERRUPTMENUFONT DEFAULTFONT T)
|
(INTERRUPTMENUFONT DEFAULTFONT T)
|
||||||
(* ; "used by control-B")
|
(* ; "used by control-B")
|
||||||
(DEFAULTICONFONT MENUFONT)
|
(DEFAULTICONFONT MENUFONT)
|
||||||
(* ; "for shrinking windows")
|
(* ; "for shrinking windows")
|
||||||
(BACKTRACEFONT TINYFONT T)
|
(BACKTRACEFONT TINYFONT T)
|
||||||
(* ; " for backtrace in debugger")
|
(* ; " for backtrace in debugger")
|
||||||
(WINDOWTITLEFONT MENUFONT)
|
(WINDOWTITLEFONT MENUFONT)
|
||||||
((WINDOWTITLEFONT WINDOWTITLEFONT)
|
((WINDOWTITLEFONT WINDOWTITLEFONT)
|
||||||
NIL)
|
NIL)
|
||||||
(* ; " used for titles of all windows")
|
(* ; " used for titles of all windows")
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for Exec")
|
(* ;; "Fonts for Exec")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
(PROMPTFONT LITTLEFONT)
|
(PROMPTFONT LITTLEFONT)
|
||||||
(* ; "for printing out prompts")
|
(* ; "for printing out prompts")
|
||||||
(INPUTFONT BOLDFONT)
|
(INPUTFONT BOLDFONT)
|
||||||
(* ; "for user typein in Exec")
|
(* ; "for user typein in Exec")
|
||||||
(PRINTOUTFONT DEFAULTFONT)
|
(PRINTOUTFONT DEFAULTFONT)
|
||||||
(* ; " for intermediate typin in Exec")
|
(* ; " for intermediate typin in Exec")
|
||||||
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
|
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
|
||||||
(VALUEFONT DEFAULTFONT)
|
(VALUEFONT DEFAULTFONT)
|
||||||
(* ;
|
(* ;
|
||||||
" for printing out values returned in Exec")
|
" for printing out values returned in Exec")
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for prettyprinting")
|
(* ;; "Fonts for prettyprinting")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
(COMMENTFONT LITTLEFONT)
|
(COMMENTFONT LITTLEFONT)
|
||||||
(* ; "for comments ")
|
(* ; "for comments ")
|
||||||
(PRETTYCOMFONT BOLDFONT)
|
(PRETTYCOMFONT BOLDFONT)
|
||||||
(* ; " for words being defined")
|
(* ; " for words being defined")
|
||||||
(CLISPFONT BOLDFONT)
|
(CLISPFONT BOLDFONT)
|
||||||
(* ; " for keywords & CLISP")
|
(* ; " for keywords & CLISP")
|
||||||
(SYSTEMFONT DEFAULTFONT)
|
(SYSTEMFONT DEFAULTFONT)
|
||||||
(* ; " for %"system%" words(?)")
|
(* ; " for %"system%" words(?)")
|
||||||
(LAMBDAFONT BIGFONT)
|
(LAMBDAFONT BIGFONT)
|
||||||
(* ; "for words being defined")
|
(* ; "for words being defined")
|
||||||
(USERFONT BOLDFONT)
|
(USERFONT BOLDFONT)
|
||||||
(* ; " for %"user%" defined words")]
|
(* ; " for %"user%" defined words")]
|
||||||
(P (MOVD? 'NILL 'WINDOWTITLEFONT))
|
(P (MOVD? 'NILL 'WINDOWTITLEFONT))
|
||||||
(FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE)
|
(FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE)
|
||||||
(INITVARS (FONTESCAPECHAR (CHARACTER 6))
|
(INITVARS (FONTESCAPECHAR (CHARACTER 6))
|
||||||
@@ -242,7 +242,11 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri
|
|||||||
(MODERN 8 MIR))
|
(MODERN 8 MIR))
|
||||||
(BIGFONT 4 (MODERN 12 BRR)
|
(BIGFONT 4 (MODERN 12 BRR)
|
||||||
(MODERN 10 BRR)
|
(MODERN 10 BRR)
|
||||||
(MODERN 10 BRR]
|
(MODERN 10 BRR))
|
||||||
|
(MENUFONT 5 (MODERN 10))
|
||||||
|
(COMMENTFONT 6 (MODERN 8)
|
||||||
|
(MODERN 6 MIR)
|
||||||
|
(MODERN 8 MIR]
|
||||||
[BIGGERNS (FONTCHANGEFLG . ALL)
|
[BIGGERNS (FONTCHANGEFLG . ALL)
|
||||||
(FILELINELENGTH . 102)
|
(FILELINELENGTH . 102)
|
||||||
(COMMENTLINELENGTH 116 . 126)
|
(COMMENTLINELENGTH 116 . 126)
|
||||||
@@ -263,89 +267,93 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri
|
|||||||
(MODERN 8 MIR))
|
(MODERN 8 MIR))
|
||||||
(BIGFONT 4 (MODERN 14 BRR)
|
(BIGFONT 4 (MODERN 14 BRR)
|
||||||
(MODERN 10 BRR)
|
(MODERN 10 BRR)
|
||||||
(MODERN 10 BRR])
|
(MODERN 10 BRR))
|
||||||
|
(MENUFONT 5 (MODERN 12))
|
||||||
|
(COMMENTFONT 6 (MODERN 10)
|
||||||
|
(MODERN 8 MIR)
|
||||||
|
(MODERN 10 MIR])
|
||||||
|
|
||||||
(ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
|
(ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
|
||||||
|
|
||||||
(RPAQQ FONTVARS
|
(RPAQQ FONTVARS
|
||||||
(
|
(
|
||||||
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
|
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
|
||||||
|
|
||||||
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
|
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
|
||||||
(* ; "default BOLD")
|
(* ; "default BOLD")
|
||||||
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
|
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
|
||||||
(LITTLEFONT DEFAULTFONT)
|
(LITTLEFONT DEFAULTFONT)
|
||||||
(* ; " should usually be smaller")
|
(* ; " should usually be smaller")
|
||||||
(TINYFONT LITTLEFONT)
|
(TINYFONT LITTLEFONT)
|
||||||
(* ; "and this one smaller still")
|
(* ; "and this one smaller still")
|
||||||
(BIGFONT BOLDFONT)
|
(BIGFONT BOLDFONT)
|
||||||
(* ; "should be bigger still")
|
(* ; "should be bigger still")
|
||||||
(TEXTFONT DEFAULTFONT)
|
(TEXTFONT DEFAULTFONT)
|
||||||
(* ; "default for text")
|
(* ; "default for text")
|
||||||
(TEXTBOLDFONT BOLDFONT)
|
(TEXTBOLDFONT BOLDFONT)
|
||||||
(* ; "default for bold text")
|
(* ; "default for bold text")
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for window system, processes")
|
(* ;; "Fonts for window system, processes")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
(MENUFONT DEFAULTFONT T)
|
(MENUFONT DEFAULTFONT T)
|
||||||
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
|
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
|
||||||
(* ; "if not supplied")
|
(* ; "if not supplied")
|
||||||
(INTERRUPTMENUFONT DEFAULTFONT T)
|
(INTERRUPTMENUFONT DEFAULTFONT T)
|
||||||
(* ; "used by control-B")
|
(* ; "used by control-B")
|
||||||
(DEFAULTICONFONT MENUFONT)
|
(DEFAULTICONFONT MENUFONT)
|
||||||
(* ; "for shrinking windows")
|
(* ; "for shrinking windows")
|
||||||
(BACKTRACEFONT TINYFONT T)
|
(BACKTRACEFONT TINYFONT T)
|
||||||
(* ; " for backtrace in debugger")
|
(* ; " for backtrace in debugger")
|
||||||
(WINDOWTITLEFONT MENUFONT)
|
(WINDOWTITLEFONT MENUFONT)
|
||||||
((WINDOWTITLEFONT WINDOWTITLEFONT)
|
((WINDOWTITLEFONT WINDOWTITLEFONT)
|
||||||
NIL)
|
NIL)
|
||||||
(* ; " used for titles of all windows")
|
(* ; " used for titles of all windows")
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for Exec")
|
(* ;; "Fonts for Exec")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
(PROMPTFONT LITTLEFONT)
|
(PROMPTFONT LITTLEFONT)
|
||||||
(* ; "for printing out prompts")
|
(* ; "for printing out prompts")
|
||||||
(INPUTFONT BOLDFONT)
|
(INPUTFONT BOLDFONT)
|
||||||
(* ; "for user typein in Exec")
|
(* ; "for user typein in Exec")
|
||||||
(PRINTOUTFONT DEFAULTFONT)
|
(PRINTOUTFONT DEFAULTFONT)
|
||||||
(* ; " for intermediate typin in Exec")
|
(* ; " for intermediate typin in Exec")
|
||||||
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
|
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
|
||||||
(VALUEFONT DEFAULTFONT)
|
(VALUEFONT DEFAULTFONT)
|
||||||
(* ;
|
(* ;
|
||||||
" for printing out values returned in Exec")
|
" for printing out values returned in Exec")
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for prettyprinting")
|
(* ;; "Fonts for prettyprinting")
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
(* ;; "")
|
||||||
|
|
||||||
(COMMENTFONT LITTLEFONT)
|
(COMMENTFONT LITTLEFONT)
|
||||||
(* ; "for comments ")
|
(* ; "for comments ")
|
||||||
(PRETTYCOMFONT BOLDFONT)
|
(PRETTYCOMFONT BOLDFONT)
|
||||||
(* ; " for words being defined")
|
(* ; " for words being defined")
|
||||||
(CLISPFONT BOLDFONT)
|
(CLISPFONT BOLDFONT)
|
||||||
(* ; " for keywords & CLISP")
|
(* ; " for keywords & CLISP")
|
||||||
(SYSTEMFONT DEFAULTFONT)
|
(SYSTEMFONT DEFAULTFONT)
|
||||||
(* ; " for %"system%" words(?)")
|
(* ; " for %"system%" words(?)")
|
||||||
(LAMBDAFONT BIGFONT)
|
(LAMBDAFONT BIGFONT)
|
||||||
(* ; "for words being defined")
|
(* ; "for words being defined")
|
||||||
(USERFONT BOLDFONT)
|
(USERFONT BOLDFONT)
|
||||||
(* ; " for %"user%" defined words")))
|
(* ; " for %"user%" defined words")))
|
||||||
|
|
||||||
(MOVD? 'NILL 'WINDOWTITLEFONT)
|
(MOVD? 'NILL 'WINDOWTITLEFONT)
|
||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
@@ -591,8 +599,8 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri
|
|||||||
|
|
||||||
(SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
|
(SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
|
||||||
1 FILERDTBL)
|
1 FILERDTBL)
|
||||||
(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999))
|
(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (16000 27584 (FONTSET 16010 . 22351) (FONTPROFILE 22353 . 24702) (FONTPROFILE.ADDDEVICE
|
(FILEMAP (NIL (16323 27907 (FONTSET 16333 . 22674) (FONTPROFILE 22676 . 25025) (FONTPROFILE.ADDDEVICE
|
||||||
24704 . 27582)) (27820 29719 (FONTMAPARRAY 27830 . 29717)))))
|
25027 . 27905)) (28143 30042 (FONTMAPARRAY 28153 . 30040)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,608 +0,0 @@
|
|||||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
|
||||||
(FILECREATED "12-Mar-93 11:02:28" {DSK}<project>medley2.0>patches>FONTPROFILEPATCH.;4 30621
|
|
||||||
|
|
||||||
changes to%: (ALISTS (FONTDEFS HUGE)
|
|
||||||
(FONTDEFS BIG)
|
|
||||||
(FONTDEFS MEDIUM)
|
|
||||||
(FONTDEFS STANDARD)
|
|
||||||
(FONTDEFS BIGGER)
|
|
||||||
(FONTDEFS BIGGERNS)
|
|
||||||
(FONTDEFS NS))
|
|
||||||
|
|
||||||
previous date%: "11-Mar-93 11:51:49" {DSK}<project>medley2.0>patches>FONTPROFILEPATCH.;3)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
|
||||||
Copyright (c) 1993 by Xerox Corporation. All rights reserved.
|
|
||||||
")
|
|
||||||
|
|
||||||
(PRETTYCOMPRINT FONTPROFILEPATCHCOMS)
|
|
||||||
|
|
||||||
(RPAQQ FONTPROFILEPATCHCOMS
|
|
||||||
(
|
|
||||||
(* ;; "FONT")
|
|
||||||
|
|
||||||
(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER BIGGERNS NS))
|
|
||||||
(ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu))
|
|
||||||
[VARS (FONTVARS '(
|
|
||||||
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
|
|
||||||
|
|
||||||
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
|
|
||||||
(* ; "default BOLD")
|
|
||||||
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
|
|
||||||
(LITTLEFONT DEFAULTFONT)
|
|
||||||
(* ; " should usually be smaller")
|
|
||||||
(TINYFONT LITTLEFONT)
|
|
||||||
(* ; "and this one smaller still")
|
|
||||||
(BIGFONT BOLDFONT)
|
|
||||||
(* ; "should be bigger still")
|
|
||||||
(TEXTFONT DEFAULTFONT)
|
|
||||||
(* ; "default for text")
|
|
||||||
(TEXTBOLDFONT BOLDFONT)
|
|
||||||
(* ; "default for bold text")
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for window system, processes")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
(MENUFONT DEFAULTFONT T)
|
|
||||||
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
|
|
||||||
(* ; "if not supplied")
|
|
||||||
(INTERRUPTMENUFONT DEFAULTFONT T)
|
|
||||||
(* ; "used by control-B")
|
|
||||||
(DEFAULTICONFONT MENUFONT)
|
|
||||||
(* ; "for shrinking windows")
|
|
||||||
(BACKTRACEFONT TINYFONT T)
|
|
||||||
(* ; " for backtrace in debugger")
|
|
||||||
(WINDOWTITLEFONT MENUFONT)
|
|
||||||
((WINDOWTITLEFONT WINDOWTITLEFONT)
|
|
||||||
NIL)
|
|
||||||
(* ; " used for titles of all windows")
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for Exec")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
(PROMPTFONT LITTLEFONT)
|
|
||||||
(* ; "for printing out prompts")
|
|
||||||
(INPUTFONT BOLDFONT)
|
|
||||||
(* ; "for user typein in Exec")
|
|
||||||
(PRINTOUTFONT DEFAULTFONT)
|
|
||||||
(* ; " for intermediate typin in Exec")
|
|
||||||
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
|
|
||||||
(VALUEFONT DEFAULTFONT)
|
|
||||||
(* ;
|
|
||||||
" for printing out values returned in Exec")
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for prettyprinting")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
(COMMENTFONT LITTLEFONT)
|
|
||||||
(* ; "for comments ")
|
|
||||||
(PRETTYCOMFONT BOLDFONT)
|
|
||||||
(* ; " for words being defined")
|
|
||||||
(CLISPFONT BOLDFONT)
|
|
||||||
(* ; " for keywords & CLISP")
|
|
||||||
(SYSTEMFONT DEFAULTFONT)
|
|
||||||
(* ; " for %"system%" words(?)")
|
|
||||||
(LAMBDAFONT BIGFONT)
|
|
||||||
(* ; "for words being defined")
|
|
||||||
(USERFONT BOLDFONT)
|
|
||||||
(* ; " for %"user%" defined words")]
|
|
||||||
(P (MOVD? 'NILL 'WINDOWTITLEFONT))
|
|
||||||
(FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE)
|
|
||||||
(INITVARS (FONTESCAPECHAR (CHARACTER 6))
|
|
||||||
(FONTFNS)
|
|
||||||
(FONTWORDS))
|
|
||||||
[DECLARE%: DONTEVAL@LOAD DOCOPY (P (FONTSET 'STANDARD]
|
|
||||||
(GLOBALVARS FONTPROFILE FONTESCAPECHAR FONTDEFS)
|
|
||||||
(FNS FONTMAPARRAY)
|
|
||||||
(INITVARS (\FONTMAPCACHE))
|
|
||||||
(P (SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
|
|
||||||
1 FILERDTBL))))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "FONT")
|
|
||||||
|
|
||||||
|
|
||||||
(ADDTOVAR FONTDEFS
|
|
||||||
[HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24)
|
|
||||||
NIL
|
|
||||||
(TERMINAL 8))
|
|
||||||
(BOLDFONT 2 (MODERN 24 BRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 8 BRR))
|
|
||||||
(LITTLEFONT 3 (MODERN 18 MRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(BIGFONT 4 (MODERN 36 BRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 10 BRR))
|
|
||||||
(TEXTFONT 5 (CLASSIC 24)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10))
|
|
||||||
(TEXTBOLDFONT 7 (CLASSIC 24 BRR)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10 BRR]
|
|
||||||
[BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18)
|
|
||||||
NIL
|
|
||||||
(TERMINAL 8))
|
|
||||||
(TEXTFONT 5 (CLASSIC 18)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10))
|
|
||||||
(BOLDFONT 2 (MODERN 18 BRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 8 BRR))
|
|
||||||
(LITTLEFONT 3 (MODERN 12 MRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(BIGFONT 4 (MODERN 24 BRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 10 BRR))
|
|
||||||
(TEXTBOLDFONT 7 (CLASSIC 18 BRR)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10 BRR]
|
|
||||||
[MEDIUM (FONTPROFILE (DEFAULTFONT 1 (MODERN 14)
|
|
||||||
NIL
|
|
||||||
(TERMINAL 8))
|
|
||||||
(BOLDFONT 2 (MODERN 14 BRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 8 BRR))
|
|
||||||
(LITTLEFONT 3 (MODERN 10)
|
|
||||||
NIL
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(BIGFONT 4 (MODERN 18)
|
|
||||||
NIL
|
|
||||||
(MODERN 10 BRR))
|
|
||||||
(TEXTFONT 5 (CLASSIC 14)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10))
|
|
||||||
(TEXTBOLDFONT 7 (CLASSIC 14 BRR)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10 BRR]
|
|
||||||
[STANDARD (FONTCHANGEFLG . ALL)
|
|
||||||
(FILELINELENGTH . 102)
|
|
||||||
(FONTPROFILE (DEFAULTFONT 1 (GACHA 10)
|
|
||||||
(GACHA 8)
|
|
||||||
(TERMINAL 8))
|
|
||||||
(ITALICFONT 1 (HELVETICA 10 MIR)
|
|
||||||
(GACHA 8 MIR)
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(BOLDFONT 2 (HELVETICA 10 BRR)
|
|
||||||
(HELVETICA 8 BRR)
|
|
||||||
(MODERN 8 BRR))
|
|
||||||
(LITTLEFONT 3 (HELVETICA 8)
|
|
||||||
(HELVETICA 6 MIR)
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(TINYFONT 6 (GACHA 8)
|
|
||||||
(GACHA 6)
|
|
||||||
(TERMINAL 6))
|
|
||||||
(BIGFONT 4 (HELVETICA 12 BRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 10 BRR))
|
|
||||||
(MENUFONT 5 (HELVETICA 10))
|
|
||||||
(COMMENTFONT 6 (HELVETICA 10)
|
|
||||||
(HELVETICA 8)
|
|
||||||
(MODERN 8))
|
|
||||||
(TEXTFONT 7 (TIMESROMAN 10)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10]
|
|
||||||
[BIGGER (FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
|
|
||||||
NIL
|
|
||||||
(TERMINAL 8))
|
|
||||||
(ITALICFONT 1 (HELVETICA 12 MIR)
|
|
||||||
(GACHA 8 MIR)
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(BOLDFONT 2 (HELVETICA 12 BRR)
|
|
||||||
(HELVETICA 8 BRR)
|
|
||||||
(MODERN 8 BRR))
|
|
||||||
(LITTLEFONT 3 (HELVETICA 10)
|
|
||||||
(HELVETICA 6 MIR)
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(TINYFONT 6 (GACHA 10)
|
|
||||||
(GACHA 6)
|
|
||||||
(TERMINAL 6))
|
|
||||||
(BIGFONT 4 (HELVETICA 14 BRR)
|
|
||||||
NIL
|
|
||||||
(MODERN 10 BRR))
|
|
||||||
(MENUFONT 5 (HELVETICA 12))
|
|
||||||
(COMMENTFONT 6 (HELVETICA 12)
|
|
||||||
(HELVETICA 8)
|
|
||||||
(MODERN 8))
|
|
||||||
(TEXTFONT 7 (TIMESROMAN 12)
|
|
||||||
NIL
|
|
||||||
(CLASSIC 10]
|
|
||||||
[BIGGERNS (FONTCHANGEFLG . ALL)
|
|
||||||
(FILELINELENGTH . 102)
|
|
||||||
(COMMENTLINELENGTH 116 . 126)
|
|
||||||
(FIRSTCOL . 60)
|
|
||||||
(PRETTYLCOM . 25)
|
|
||||||
(FONTESCAPECHAR . %)
|
|
||||||
(FONTPROFILE (DEFAULTFONT 1 (TERMINAL 12)
|
|
||||||
(TERMINAL 8)
|
|
||||||
(TERMINAL 8))
|
|
||||||
(ITALICFONT 1 (MODERN 12 BIR)
|
|
||||||
(MODERN 8 BIR)
|
|
||||||
(MODERN 8 BIR))
|
|
||||||
(BOLDFONT 2 (MODERN 12 BRR)
|
|
||||||
(MODERN 8 BRR)
|
|
||||||
(MODERN 8 BRR))
|
|
||||||
(LITTLEFONT 3 (MODERN 10)
|
|
||||||
(MODERN 6 MIR)
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(BIGFONT 4 (MODERN 14 BRR)
|
|
||||||
(MODERN 10 BRR)
|
|
||||||
(MODERN 10 BRR]
|
|
||||||
[NS (FONTCHANGEFLG . ALL)
|
|
||||||
(FILELINELENGTH . 102)
|
|
||||||
(COMMENTLINELENGTH 116 . 126)
|
|
||||||
(FIRSTCOL . 60)
|
|
||||||
(PRETTYLCOM . 25)
|
|
||||||
(FONTESCAPECHAR . %)
|
|
||||||
(FONTPROFILE (DEFAULTFONT 1 (TERMINAL 10)
|
|
||||||
(TERMINAL 8)
|
|
||||||
(TERMINAL 8))
|
|
||||||
(ITALICFONT 1 (MODERN 10 BIR)
|
|
||||||
(MODERN 8 BIR)
|
|
||||||
(MODERN 8 BIR))
|
|
||||||
(BOLDFONT 2 (MODERN 10 BRR)
|
|
||||||
(MODERN 8 BRR)
|
|
||||||
(MODERN 8 BRR))
|
|
||||||
(LITTLEFONT 3 (MODERN 8)
|
|
||||||
(MODERN 6 MIR)
|
|
||||||
(MODERN 8 MIR))
|
|
||||||
(BIGFONT 4 (MODERN 12 BRR)
|
|
||||||
(MODERN 10 BRR)
|
|
||||||
(MODERN 10 BRR])
|
|
||||||
|
|
||||||
(ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)
|
|
||||||
|
|
||||||
(RPAQQ FONTVARS
|
|
||||||
(
|
|
||||||
(* ;; "standard size fonts. Assumes only DEFAULTFONT set")
|
|
||||||
|
|
||||||
(BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD))
|
|
||||||
(* ; "default BOLD")
|
|
||||||
(ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC))
|
|
||||||
(LITTLEFONT DEFAULTFONT)
|
|
||||||
(* ; " should usually be smaller")
|
|
||||||
(TINYFONT LITTLEFONT)
|
|
||||||
(* ; "and this one smaller still")
|
|
||||||
(BIGFONT BOLDFONT)
|
|
||||||
(* ; "should be bigger still")
|
|
||||||
(TEXTFONT DEFAULTFONT)
|
|
||||||
(* ; "default for text")
|
|
||||||
(TEXTBOLDFONT BOLDFONT)
|
|
||||||
(* ; "default for bold text")
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for window system, processes")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
(MENUFONT DEFAULTFONT T)
|
|
||||||
(BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD))
|
|
||||||
(* ; "if not supplied")
|
|
||||||
(INTERRUPTMENUFONT DEFAULTFONT T)
|
|
||||||
(* ; "used by control-B")
|
|
||||||
(DEFAULTICONFONT MENUFONT)
|
|
||||||
(* ; "for shrinking windows")
|
|
||||||
(BACKTRACEFONT TINYFONT T)
|
|
||||||
(* ; " for backtrace in debugger")
|
|
||||||
(WINDOWTITLEFONT MENUFONT)
|
|
||||||
((WINDOWTITLEFONT WINDOWTITLEFONT)
|
|
||||||
NIL)
|
|
||||||
(* ; " used for titles of all windows")
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for Exec")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
(PROMPTFONT LITTLEFONT)
|
|
||||||
(* ; "for printing out prompts")
|
|
||||||
(INPUTFONT BOLDFONT)
|
|
||||||
(* ; "for user typein in Exec")
|
|
||||||
(PRINTOUTFONT DEFAULTFONT)
|
|
||||||
(* ; " for intermediate typin in Exec")
|
|
||||||
(TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT))
|
|
||||||
(VALUEFONT DEFAULTFONT)
|
|
||||||
(* ;
|
|
||||||
" for printing out values returned in Exec")
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "Fonts for prettyprinting")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "")
|
|
||||||
|
|
||||||
(COMMENTFONT LITTLEFONT)
|
|
||||||
(* ; "for comments ")
|
|
||||||
(PRETTYCOMFONT BOLDFONT)
|
|
||||||
(* ; " for words being defined")
|
|
||||||
(CLISPFONT BOLDFONT)
|
|
||||||
(* ; " for keywords & CLISP")
|
|
||||||
(SYSTEMFONT DEFAULTFONT)
|
|
||||||
(* ; " for %"system%" words(?)")
|
|
||||||
(LAMBDAFONT BIGFONT)
|
|
||||||
(* ; "for words being defined")
|
|
||||||
(USERFONT BOLDFONT)
|
|
||||||
(* ; " for %"user%" defined words")))
|
|
||||||
|
|
||||||
(MOVD? 'NILL 'WINDOWTITLEFONT)
|
|
||||||
(DEFINEQ
|
|
||||||
|
|
||||||
(FONTSET
|
|
||||||
[LAMBDA (NAME CHANGE-WINDOWS?) (* ; "Edited 23-Jun-88 10:46 by jds")
|
|
||||||
(COND
|
|
||||||
[NAME
|
|
||||||
(LET
|
|
||||||
[(TEM (FASSOC NAME FONTDEFS))
|
|
||||||
(OLDDEFAULT (FONTCREATE DEFAULTFONT NIL NIL NIL 'DISPLAY]
|
|
||||||
(OR TEM (ERROR NAME "not a defined font configuration"))
|
|
||||||
|
|
||||||
(* ;; "Looks up NAME on FONTSLST and sets apropriate parameters. entries are added to fontslst by FONTNAME.")
|
|
||||||
|
|
||||||
(for X in FONTVARS when (AND (CL:SYMBOLP (CAR X))
|
|
||||||
(NEQ (CAR X)
|
|
||||||
'*)
|
|
||||||
(NEQ (CAR X)
|
|
||||||
(CADR X))) do (SETTOPVAL (CAR X)))
|
|
||||||
[MAPC (CDR TEM)
|
|
||||||
(FUNCTION (LAMBDA (X)
|
|
||||||
(/SETTOPVAL (CAR X)
|
|
||||||
(CDR X]
|
|
||||||
[PROG (BASICCLASSES)
|
|
||||||
(for X in FONTPROFILE
|
|
||||||
do (PROG (SEEN (NAME (CAR X))
|
|
||||||
(FONTS X))
|
|
||||||
LP [COND
|
|
||||||
((MEMB (CAR FONTS)
|
|
||||||
SEEN)
|
|
||||||
(ERROR "Circular font profile specification" X))
|
|
||||||
(T (push SEEN (CAR FONTS]
|
|
||||||
[SETQ FONTS (CDR (COND
|
|
||||||
((OR (NULL (CADR FONTS))
|
|
||||||
(LISTP (CADR FONTS)))
|
|
||||||
(*)
|
|
||||||
(* ;
|
|
||||||
"This skips over the now-defunct NIL or list-of-escape sequence")
|
|
||||||
(CDR FONTS))
|
|
||||||
(T FONTS]
|
|
||||||
(COND
|
|
||||||
((OR (NLISTP FONTS)
|
|
||||||
(LITATOM (CAR FONTS)))(* ;
|
|
||||||
"Indirect thru another's font spec")
|
|
||||||
(AND (SETQ FONTS (ASSOC (SELECTQ (CAR (LISTP FONTS))
|
|
||||||
((NIL DEFAULTFONT)
|
|
||||||
(* ;
|
|
||||||
"Don't let DEFAULTFONT loop thru itself")
|
|
||||||
(AND (NOT (MEMB 'DEFAULTFONT SEEN
|
|
||||||
))
|
|
||||||
'DEFAULTFONT))
|
|
||||||
(CAR FONTS))
|
|
||||||
FONTPROFILE))
|
|
||||||
(GO LP)))
|
|
||||||
(T [push BASICCLASSES (SETQ FONTS (FONTCLASS NAME FONTS
|
|
||||||
'DISPLAY]
|
|
||||||
(* ;
|
|
||||||
"Now we have a font class datastructure")
|
|
||||||
))
|
|
||||||
(AND NAME (/SETTOPVAL NAME FONTS))
|
|
||||||
|
|
||||||
(* ;; "NIL for the class-name means just establish the font-correspondences but don't connect them up with a pretty class name.")
|
|
||||||
|
|
||||||
))
|
|
||||||
(AND BASICCLASSES (FONTMAPARRAY BASICCLASSES 'DISPLAY]
|
|
||||||
[for X in FONTVARS when (NEQ (CAR X)
|
|
||||||
'*)
|
|
||||||
do (COND
|
|
||||||
((LISTP (CAR X))
|
|
||||||
(EVAL (CAR X)))
|
|
||||||
[(CADDR X)
|
|
||||||
(SET (CAR X)
|
|
||||||
(FONTCREATE (OR (GETTOPVAL (CAR X))
|
|
||||||
(EVAL (CADR X))
|
|
||||||
DEFAULTFONT)
|
|
||||||
NIL NIL NIL 'DISPLAY]
|
|
||||||
(T (OR (GETTOPVAL (CAR X))
|
|
||||||
(AND (CADR X)
|
|
||||||
(SET (CAR X)
|
|
||||||
(EVAL (CADR X]
|
|
||||||
(CL:WHEN CHANGE-WINDOWS?
|
|
||||||
(CL:WHEN (NEQ OLDDEFAULT (FONTCREATE DEFAULTFONT NIL NIL NIL 'DISPLAY))
|
|
||||||
(for X in (OPENWINDOWS) when (EQ OLDDEFAULT (DSPFONT NIL X))
|
|
||||||
do (DSPFONT DEFAULTFONT X)))
|
|
||||||
(DSPFONT WINDOWTITLEFONT WindowTitleDisplayStream)
|
|
||||||
(SETQ MaxValueLeftMargin (ITIMES 35 (STRINGWIDTH 'A DEFAULTFONT)))
|
|
||||||
(MAPC CACHEDMENUS 'SET)
|
|
||||||
[for W in (OPENWINDOWS) do [COND
|
|
||||||
[(OR (EQ (WINDOWPROP W 'RESHAPEFN)
|
|
||||||
'DONT)
|
|
||||||
(WINDOWPROP W 'MAINWINDOW]
|
|
||||||
(T
|
|
||||||
(* ;;
|
|
||||||
"don't reshape if can't or if this window is attached to another.")
|
|
||||||
|
|
||||||
(SHAPEW W (WINDOWREGION W]
|
|
||||||
(COND
|
|
||||||
((AND (NEQ (WINDOWPROP W 'WINDOWENTRYFN)
|
|
||||||
(FUNCTION \TEDIT.PROCIDLEFN))
|
|
||||||
(WINDOWPROP W 'REPAINTFN))
|
|
||||||
(REDISPLAYW W])
|
|
||||||
|
|
||||||
(* ;; "Set the new font profile name, and return the old one, so he can restore later.")
|
|
||||||
|
|
||||||
(PROG1 FONTNAME (SETQ FONTNAME NAME]
|
|
||||||
(T (* ;
|
|
||||||
"He passed in NIL, so return font profile name in effect.")
|
|
||||||
FONTNAME])
|
|
||||||
|
|
||||||
(FONTPROFILE
|
|
||||||
[LAMBDA (PROFILE) (* lmm "10-Sep-86 12:33")
|
|
||||||
[PROG (BASICCLASSES)
|
|
||||||
(for X in PROFILE
|
|
||||||
do (PROG (SEEN (NAME (CAR X))
|
|
||||||
(FONTS X))
|
|
||||||
LP [COND
|
|
||||||
((MEMB (CAR FONTS)
|
|
||||||
SEEN)
|
|
||||||
(ERROR "Circular font profile specification" X))
|
|
||||||
(T (push SEEN (CAR FONTS]
|
|
||||||
[SETQ FONTS (CDR (COND
|
|
||||||
((OR (NULL (CADR FONTS))
|
|
||||||
(LISTP (CADR FONTS)))
|
|
||||||
(* ;
|
|
||||||
"This skips over the now-defunct NIL or list-of-escape sequence")
|
|
||||||
(CDR FONTS))
|
|
||||||
(T FONTS]
|
|
||||||
(COND
|
|
||||||
((OR (NLISTP FONTS)
|
|
||||||
(LITATOM (CAR FONTS))) (* Indirect thru another's font spec)
|
|
||||||
(AND (SETQ FONTS (ASSOC (SELECTQ (CAR (LISTP FONTS))
|
|
||||||
((NIL DEFAULTFONT)
|
|
||||||
(* Don't let DEFAULTFONT loop thru
|
|
||||||
itself)
|
|
||||||
(AND (NOT (MEMB 'DEFAULTFONT SEEN))
|
|
||||||
'DEFAULTFONT))
|
|
||||||
(CAR FONTS))
|
|
||||||
PROFILE))
|
|
||||||
(GO LP)))
|
|
||||||
(T [push BASICCLASSES (SETQ FONTS (FONTCLASS NAME FONTS 'DISPLAY]
|
|
||||||
(* Now we have a font class
|
|
||||||
datastructure)
|
|
||||||
))
|
|
||||||
(AND NAME (/SETATOMVAL NAME FONTS))
|
|
||||||
|
|
||||||
(* NIL for the class-name means just establish the font-correspondences but
|
|
||||||
don't connect them up with a pretty class name.)
|
|
||||||
|
|
||||||
))
|
|
||||||
(AND BASICCLASSES (FONTMAPARRAY BASICCLASSES 'DISPLAY]
|
|
||||||
T])
|
|
||||||
|
|
||||||
(FONTPROFILE.ADDDEVICE
|
|
||||||
[LAMBDA (NEWDEVICE OLDDEVICE) (* ; "Edited 3-Mar-93 14:46 by rmk:")
|
|
||||||
|
|
||||||
(* ;; "Fills in all fontprofile specifications so that an entry for NEWDEVICE is present for each fontclass. Nothing is changed if the entry is already there, otherwise the specification for the class currently provided for OLDDEVICE will be used for NEWDEVICE.")
|
|
||||||
|
|
||||||
(DECLARE (USEDFREE FONTDEFS FONTNAME))
|
|
||||||
(SETQ NEWDEVICE (U-CASE NEWDEVICE))
|
|
||||||
(SETQ OLDDEVICE (U-CASE OLDDEVICE))
|
|
||||||
[FOR FD IN FONTDEFS
|
|
||||||
DO (FOR FC OLDSPEC IN (CDR (ASSOC 'FONTPROFILE (CDR FD)))
|
|
||||||
UNLESS (LITATOM (CADR FC))
|
|
||||||
DO (SETQ FC (CDR FC)) (* ; "Skip over name")
|
|
||||||
(CL:WHEN [SETQ OLDSPEC (SELECTQ OLDDEVICE
|
|
||||||
(DISPLAY (CADR FC))
|
|
||||||
(INTERPRESS (CADDDR FC))
|
|
||||||
(PRESS (CADDR FC))
|
|
||||||
(CADR (ASSOC OLDDEVICE (CDDDDR FC]
|
|
||||||
[SETQ FC (OR (CDR FC)
|
|
||||||
(CDR (RPLACD FC (CONS]
|
|
||||||
(* ;
|
|
||||||
"Fill in NIL's for missing DISPLAY, PRESS, or INTERPRESS")
|
|
||||||
[SELECTQ NEWDEVICE
|
|
||||||
(DISPLAY (OR (CAR FC)
|
|
||||||
(RPLACA FC OLDSPEC)))
|
|
||||||
(INTERPRESS (OR (CADDR FC)
|
|
||||||
(RPLACA [PROGN [SETQ FC (OR (CDR FC)
|
|
||||||
(CDR (RPLACD FC (CONS]
|
|
||||||
(OR (CDR FC)
|
|
||||||
(CDR (RPLACD FC (CONS]
|
|
||||||
OLDSPEC)))
|
|
||||||
(PRESS (OR (CADDR FC)
|
|
||||||
(RPLACA [OR (CDR FC)
|
|
||||||
(CDR (RPLACD FC (CONS]
|
|
||||||
OLDSPEC)))
|
|
||||||
(OR (CADR (ASSOC NEWDEVICE (CDDDR FC)))
|
|
||||||
(PROGN (PROGN [SETQ FC (OR (CDR FC)
|
|
||||||
(CDR (RPLACD FC (CONS]
|
|
||||||
[SETQ FC (OR (CDR FC)
|
|
||||||
(CDR (RPLACD FC (CONS]
|
|
||||||
(PUSH (CDR FC)
|
|
||||||
(LIST NEWDEVICE OLDSPEC])]
|
|
||||||
(FONTSET FONTNAME])
|
|
||||||
)
|
|
||||||
|
|
||||||
(RPAQ? FONTESCAPECHAR (CHARACTER 6))
|
|
||||||
|
|
||||||
(RPAQ? FONTFNS )
|
|
||||||
|
|
||||||
(RPAQ? FONTWORDS )
|
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
|
||||||
|
|
||||||
(FONTSET 'STANDARD)
|
|
||||||
)
|
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
|
||||||
|
|
||||||
(GLOBALVARS FONTPROFILE FONTESCAPECHAR FONTDEFS)
|
|
||||||
)
|
|
||||||
(DEFINEQ
|
|
||||||
|
|
||||||
(FONTMAPARRAY
|
|
||||||
[LAMBDA (FONTCLASSES) (* lmm "28-Sep-86 14:23")
|
|
||||||
|
|
||||||
(* ;; "Makes a font array from a font-mapping list of fontclasses. The array provides a fast map from font# to font classes/descriptors. This function caches the last array. If IMAGETYPES is given, then the FD's are pre-computed for the imagetypes it. Otherwise, the first use of the fontclass for that imagetype would cause the fontcreate to be done.")
|
|
||||||
|
|
||||||
(PROG (FA (MAXFONT 0)
|
|
||||||
(MINFONT 100))
|
|
||||||
[COND
|
|
||||||
((NULL \FONTMAPCACHE))
|
|
||||||
((OR (NULL FONTCLASSES)
|
|
||||||
(EQUAL FONTCLASSES (CAR \FONTMAPCACHE)))
|
|
||||||
(RETURN (CDR \FONTMAPCACHE]
|
|
||||||
[for F PRETTYFONT# in FONTCLASSES do (SETQ PRETTYFONT# (fetch (FONTCLASS
|
|
||||||
PRETTYFONT#)
|
|
||||||
of F))
|
|
||||||
(COND
|
|
||||||
((IGREATERP PRETTYFONT# MAXFONT)
|
|
||||||
(SETQ MAXFONT PRETTYFONT#)))
|
|
||||||
(COND
|
|
||||||
((ILESSP PRETTYFONT# 1)
|
|
||||||
(ERROR "Invalid font number"
|
|
||||||
PRETTYFONT# F))
|
|
||||||
((ILESSP PRETTYFONT# MINFONT)
|
|
||||||
(SETQ MINFONT PRETTYFONT#]
|
|
||||||
(SETQ FA (ARRAY MAXFONT))
|
|
||||||
(for F in FONTCLASSES do (SETA FA (fetch (FONTCLASS PRETTYFONT#)
|
|
||||||
of F)
|
|
||||||
F))
|
|
||||||
(for I from 1 to MAXFONT unless (ELT FA I)
|
|
||||||
do (SETA FA I (ELT FA MINFONT)))
|
|
||||||
(SETQ \FONTMAPCACHE (CONS (COPY FONTCLASSES)
|
|
||||||
FA))
|
|
||||||
(RETURN FA])
|
|
||||||
)
|
|
||||||
|
|
||||||
(RPAQ? \FONTMAPCACHE )
|
|
||||||
|
|
||||||
(SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)
|
|
||||||
1 FILERDTBL)
|
|
||||||
(PUTPROPS FONTPROFILEPATCH COPYRIGHT ("Xerox Corporation" 1993))
|
|
||||||
(DECLARE%: DONTCOPY
|
|
||||||
(FILEMAP (NIL (16158 27897 (FONTSET 16168 . 22509) (FONTPROFILE 22511 . 25015) (FONTPROFILE.ADDDEVICE
|
|
||||||
25017 . 27895)) (28133 30403 (FONTMAPARRAY 28143 . 30401)))))
|
|
||||||
STOP
|
|
||||||
Binary file not shown.
@@ -1,11 +1,11 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||||
(FILECREATED " 5-Sep-2021 08:24:49"
|
(FILECREATED " 2-Aug-2021 19:41:35"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;6 79647
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;4 79616
|
||||||
|
|
||||||
changes to%: (FNS \DISPLAYINIT \4DISPLAYINIT \8DISPLAYINIT \24DISPLAYINIT)
|
changes to%: (FNS \DISPLAYINIT)
|
||||||
|
|
||||||
previous date%: " 2-Aug-2021 19:41:35"
|
previous date%: "28-Jun-99 16:33:59"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;5)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;1)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -1509,24 +1509,24 @@ Copyright (c) 1983-1991, 1993-1994, 1999, 2021 by Venue & Xerox Corporation.
|
|||||||
(PUTPROPS IMAGEIO COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991
|
(PUTPROPS IMAGEIO COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991
|
||||||
1993 1994 1999 2021))
|
1993 1994 1999 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (3384 12141 (IMAGESTREAMP 3394 . 4226) (IMAGESTREAMTYPE 4228 . 4441) (IMAGESTREAMTYPEP
|
(FILEMAP (NIL (3353 12110 (IMAGESTREAMP 3363 . 4195) (IMAGESTREAMTYPE 4197 . 4410) (IMAGESTREAMTYPEP
|
||||||
4443 . 5078) (OPENIMAGESTREAM 5080 . 10034) (\GOOD.DASHLST 10036 . 12139)) (12176 14473 (
|
4412 . 5047) (OPENIMAGESTREAM 5049 . 10003) (\GOOD.DASHLST 10005 . 12108)) (12145 14442 (
|
||||||
DRAWDASHEDLINE 12186 . 14471)) (14474 21814 (DSPBACKCOLOR 14484 . 14856) (DSPBOTTOMMARGIN 14858 .
|
DRAWDASHEDLINE 12155 . 14440)) (14443 21783 (DSPBACKCOLOR 14453 . 14825) (DSPBOTTOMMARGIN 14827 .
|
||||||
15243) (DSPCOLOR 15245 . 15609) (DSPCLIPPINGREGION 15611 . 16316) (DSPRESET 16318 . 16598) (DSPFONT
|
15212) (DSPCOLOR 15214 . 15578) (DSPCLIPPINGREGION 15580 . 16285) (DSPRESET 16287 . 16567) (DSPFONT
|
||||||
16600 . 16964) (DSPLEFTMARGIN 16966 . 17347) (DSPLINEFEED 17349 . 17649) (DSPOPERATION 17651 . 18028)
|
16569 . 16933) (DSPLEFTMARGIN 16935 . 17316) (DSPLINEFEED 17318 . 17618) (DSPOPERATION 17620 . 17997)
|
||||||
(DSPRIGHTMARGIN 18030 . 18413) (DSPTOPMARGIN 18415 . 18794) (DSPSCALE 18796 . 19163) (DSPSPACEFACTOR
|
(DSPRIGHTMARGIN 17999 . 18382) (DSPTOPMARGIN 18384 . 18763) (DSPSCALE 18765 . 19132) (DSPSPACEFACTOR
|
||||||
19165 . 19558) (DSPXPOSITION 19560 . 19865) (DSPYPOSITION 19867 . 20172) (DSPROTATE 20174 . 20469) (
|
19134 . 19527) (DSPXPOSITION 19529 . 19834) (DSPYPOSITION 19836 . 20141) (DSPROTATE 20143 . 20438) (
|
||||||
DSPPUSHSTATE 20471 . 20717) (DSPPOPSTATE 20719 . 20962) (DSPDEFAULTSTATE 20964 . 21216) (DSPSCALE2
|
DSPPUSHSTATE 20440 . 20686) (DSPPOPSTATE 20688 . 20931) (DSPDEFAULTSTATE 20933 . 21185) (DSPSCALE2
|
||||||
21218 . 21509) (DSPTRANSLATE 21511 . 21812)) (21815 30616 (DSPNEWPAGE 21825 . 22517) (DRAWBETWEEN
|
21187 . 21478) (DSPTRANSLATE 21480 . 21781)) (21784 30585 (DSPNEWPAGE 21794 . 22486) (DRAWBETWEEN
|
||||||
22519 . 23221) (DRAWCIRCLE 23223 . 23719) (DRAWARC 23721 . 24238) (DRAWCURVE 24240 . 24917) (
|
22488 . 23190) (DRAWCIRCLE 23192 . 23688) (DRAWARC 23690 . 24207) (DRAWCURVE 24209 . 24886) (
|
||||||
DRAWELLIPSE 24919 . 25705) (DRAWLINE 25707 . 26097) (DRAWPOLYGON 26099 . 26554) (DRAWPOINT 26556 .
|
DRAWELLIPSE 24888 . 25674) (DRAWLINE 25676 . 26066) (DRAWPOLYGON 26068 . 26523) (DRAWPOINT 26525 .
|
||||||
26975) (FILLPOLYGON 26977 . 27543) (DRAWTO 27545 . 27963) (FILLCIRCLE 27965 . 28188) (MOVETO 28190 .
|
26944) (FILLPOLYGON 26946 . 27512) (DRAWTO 27514 . 27932) (FILLCIRCLE 27934 . 28157) (MOVETO 28159 .
|
||||||
28554) (RELDRAWTO 28556 . 29473) (BITMAPIMAGESIZE 29475 . 29646) (SCALEDBITBLT 29648 . 30614)) (30617
|
28523) (RELDRAWTO 28525 . 29442) (BITMAPIMAGESIZE 29444 . 29615) (SCALEDBITBLT 29617 . 30583)) (30586
|
||||||
37656 (\DRAWPOINT.GENERIC 30627 . 30974) (\DRAWPOLYGON.GENERIC 30976 . 33284) (\DRAWCIRCLE.GENERIC
|
37625 (\DRAWPOINT.GENERIC 30596 . 30943) (\DRAWPOLYGON.GENERIC 30945 . 33253) (\DRAWCIRCLE.GENERIC
|
||||||
33286 . 34944) (\DRAWELLIPSE.GENERIC 34946 . 37654)) (37657 43043 (\IMAGEIOINIT 37667 . 41800) (
|
33255 . 34913) (\DRAWELLIPSE.GENERIC 34915 . 37623)) (37626 43012 (\IMAGEIOINIT 37636 . 41769) (
|
||||||
\NOIMAGE.DSPFONT 41802 . 42877) (\UNIMPIMAGEOP 42879 . 43041)) (43166 46290 (INSURE.BRUSH 43176 .
|
\NOIMAGE.DSPFONT 41771 . 42846) (\UNIMPIMAGEOP 42848 . 43010)) (43135 46259 (INSURE.BRUSH 43145 .
|
||||||
44550) (BRUSHP 44552 . 45342) (\POSSIBLECOLOR 45344 . 45895) (NEGSHADE 45897 . 46288)) (46846 47530 (
|
44519) (BRUSHP 44521 . 45311) (\POSSIBLECOLOR 45313 . 45864) (NEGSHADE 45866 . 46257)) (46815 47499 (
|
||||||
DASHINGP 46856 . 47186) (INSURE.DASHING 47188 . 47528)) (58011 78460 (\DisplayEventFn 58021 . 58531) (
|
DASHINGP 46825 . 47155) (INSURE.DASHING 47157 . 47497)) (57980 78429 (\DisplayEventFn 57990 . 58500) (
|
||||||
\DISPLAYINIT 58533 . 64212) (\4DISPLAYINIT 64214 . 68851) (\8DISPLAYINIT 68853 . 73492) (
|
\DISPLAYINIT 58502 . 64181) (\4DISPLAYINIT 64183 . 68820) (\8DISPLAYINIT 68822 . 73461) (
|
||||||
\24DISPLAYINIT 73494 . 78201) (\DISPLAYSTREAMTYPEBPP 78203 . 78458)))))
|
\24DISPLAYINIT 73463 . 78170) (\DISPLAYSTREAMTYPEBPP 78172 . 78427)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
440
sources/LEAF
440
sources/LEAF
@@ -1,26 +1,26 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:29" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;2 744110Q
|
(FILECREATED "19-Jan-93 10:41:31" {DSK}<python>lde>lispcore>sources>LEAF.;2 745474Q
|
||||||
|
|
||||||
changes to%: (FNS \LEAF.DEVICEP \LEAFINIT)
|
changes to%: (RECORDS SEQUINPACKET SEQUIN LOOKUPFILEDATA LEAFDATA LEAFERRORDATA LEAFPARAMSDATA
|
||||||
|
LEAFPACKET LEAFINFOBLOCK LEAFSTREAM LEAFDEVICE PUPFILESERVER)
|
||||||
|
|
||||||
previous date%: "19-Jan-93 10:41:31"
|
previous date%: " 4-Jan-93 23:36:15" {DSK}<python>lde>lispcore>sources>LEAF.;1)
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;1)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993 by Venue & Xerox Corporation. All rights reserved.
|
||||||
")
|
")
|
||||||
|
|
||||||
(PRETTYCOMPRINT LEAFCOMS)
|
(PRETTYCOMPRINT LEAFCOMS)
|
||||||
|
|
||||||
(RPAQQ LEAFCOMS
|
(RPAQQ LEAFCOMS
|
||||||
(
|
(
|
||||||
|
|
||||||
(* ;;; "Support for the Leaf random-access filing protocol")
|
(* ;;; "Support for the Leaf random-access filing protocol")
|
||||||
|
|
||||||
(E (RESETSAVE (RADIX 8)))
|
(E (RESETSAVE (RADIX 8)))
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "SEQUIN protocol")
|
(* ;; "SEQUIN protocol")
|
||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY (COMS * SEQUINCOMS)
|
(DECLARE%: EVAL@COMPILE DONTCOPY (COMS * SEQUINCOMS)
|
||||||
(FILES (LOADCOMP)
|
(FILES (LOADCOMP)
|
||||||
@@ -33,7 +33,7 @@ Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
\SEQUIN.OUT.OF.THE.BLUE \SEQUIN.HANDLE.ACK \SEQUIN.RETRANSMIT
|
\SEQUIN.OUT.OF.THE.BLUE \SEQUIN.HANDLE.ACK \SEQUIN.RETRANSMIT
|
||||||
\SEQUIN.RETRANSMITNEXT))
|
\SEQUIN.RETRANSMITNEXT))
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "LEAF device operations")
|
(* ;; "LEAF device operations")
|
||||||
|
|
||||||
(FNS \LEAF.CLOSEFILE \LEAF.DELETEFILE \LEAF.DEVICEP \LEAF.RECONNECT
|
(FNS \LEAF.CLOSEFILE \LEAF.DELETEFILE \LEAF.DEVICEP \LEAF.RECONNECT
|
||||||
\LEAF.DIRECTORYNAMEP \LEAF.GENERATEFILES \LEAF.GETFILE \PARSE.REMOTE.FILENAME
|
\LEAF.DIRECTORYNAMEP \LEAF.GENERATEFILES \LEAF.GETFILE \PARSE.REMOTE.FILENAME
|
||||||
@@ -45,18 +45,18 @@ Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
\LEAF.SETFILEINFO \LEAF.SETFILETYPE \LEAF.SETVALIDATION \LEAF.TRUNCATEFILE
|
\LEAF.SETFILEINFO \LEAF.SETFILETYPE \LEAF.SETVALIDATION \LEAF.TRUNCATEFILE
|
||||||
\LEAF.WRITEPAGES))
|
\LEAF.WRITEPAGES))
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "Main routing point for LEAF pups")
|
(* ;; "Main routing point for LEAF pups")
|
||||||
|
|
||||||
(FNS \SENDLEAF))
|
(FNS \SENDLEAF))
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "Managing LEAF connections")
|
(* ;; "Managing LEAF connections")
|
||||||
|
|
||||||
(FNS \OPENLEAFCONNECTION \LEAF.BREAKCONNECTION \CLOSELEAFCONNECTION \LEAF.EVENTFN)
|
(FNS \OPENLEAFCONNECTION \LEAF.BREAKCONNECTION \CLOSELEAFCONNECTION \LEAF.EVENTFN)
|
||||||
(* ;
|
(* ;
|
||||||
"This generic fn ought to be on FILEIO")
|
"This generic fn ought to be on FILEIO")
|
||||||
(FNS BREAKCONNECTION))
|
(FNS BREAKCONNECTION))
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "Functions called when various SEQUIN events occur")
|
(* ;; "Functions called when various SEQUIN events occur")
|
||||||
|
|
||||||
(FNS \LEAF.ACKED \LEAF.FIX.BROKEN.SEQUIN \LEAF.REPAIR.BROKEN.PUP
|
(FNS \LEAF.ACKED \LEAF.FIX.BROKEN.SEQUIN \LEAF.REPAIR.BROKEN.PUP
|
||||||
\LEAF.USE.NEW.CONNECTION \LEAF.RESENDPUPS \LEAF.HANDLE.INPUT
|
\LEAF.USE.NEW.CONNECTION \LEAF.RESENDPUPS \LEAF.HANDLE.INPUT
|
||||||
@@ -65,14 +65,14 @@ Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
\LEAF.MAYBE.FLUSH.CACHE \LEAF.WHENCLOSED \LEAF.IDLE?))
|
\LEAF.MAYBE.FLUSH.CACHE \LEAF.WHENCLOSED \LEAF.IDLE?))
|
||||||
(ADDVARS (NETWORKOSTYPES))
|
(ADDVARS (NETWORKOSTYPES))
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "Miscellaneous and error handling")
|
(* ;; "Miscellaneous and error handling")
|
||||||
|
|
||||||
(FNS \ADDLEAFSTRING \FIXPASSWORD \GETLEAFSTRING \IFSERRORSTRING \LEAF.ERROR
|
(FNS \ADDLEAFSTRING \FIXPASSWORD \GETLEAFSTRING \IFSERRORSTRING \LEAF.ERROR
|
||||||
\LEAF.DIRECTORYNAMEONLY GETHOSTINFO GETOSTYPE EXPANDING-PAGEFULLFN)
|
\LEAF.DIRECTORYNAMEONLY GETHOSTINFO GETOSTYPE EXPANDING-PAGEFULLFN)
|
||||||
(VARS (DEFAULT.OSTYPE 'IFS))
|
(VARS (DEFAULT.OSTYPE 'IFS))
|
||||||
(GLOBALVARS DEFAULT.OSTYPE))
|
(GLOBALVARS DEFAULT.OSTYPE))
|
||||||
(COMS
|
(COMS
|
||||||
(* ;; "LookUpFile stuff")
|
(* ;; "LookUpFile stuff")
|
||||||
|
|
||||||
(FNS \IFS.LOOKUPFILE)
|
(FNS \IFS.LOOKUPFILE)
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY (COMS * LOOKUPFILECOMS)))
|
(DECLARE%: EVAL@COMPILE DONTCOPY (COMS * LOOKUPFILECOMS)))
|
||||||
@@ -111,120 +111,119 @@ Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||||
|
|
||||||
(RPAQQ SEQUINCOMS
|
(RPAQQ SEQUINCOMS ((RECORDS SEQUINPACKET SEQUIN)
|
||||||
((RECORDS SEQUINPACKET SEQUIN)
|
(CONSTANTS * SEQUINOPS)
|
||||||
(CONSTANTS * SEQUINOPS)
|
(CONSTANTS * SEQUINSTATES)
|
||||||
(CONSTANTS * SEQUINSTATES)
|
(CONSTANTS (\SC.EQUAL 0)
|
||||||
(CONSTANTS (\SC.EQUAL 0)
|
(\SC.PREVIOUS 1)
|
||||||
(\SC.PREVIOUS 1)
|
(\SC.DUPLICATE 2)
|
||||||
(\SC.DUPLICATE 2)
|
(\SC.AHEAD 3)
|
||||||
(\SC.AHEAD 3)
|
(\SC.OUTOFRANGE 4)
|
||||||
(\SC.OUTOFRANGE 4)
|
(\PT.SEQUIN 260Q)
|
||||||
(\PT.SEQUIN 260Q)
|
(\SS.NOSOCKET 10Q)
|
||||||
(\SS.NOSOCKET 10Q)
|
(\SEQUIN.DEFAULT.ALLOCATION 12Q)
|
||||||
(\SEQUIN.DEFAULT.ALLOCATION 12Q)
|
(\SEQUIN.DEFAULT.RETRANSMITMAX 5))
|
||||||
(\SEQUIN.DEFAULT.RETRANSMITMAX 5))
|
(MACROS SEQUINOP)))
|
||||||
(MACROS SEQUINOP)))
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(ACCESSFNS SEQUINPACKET ((SEQUINSTART (fetch PUPBASE of DATUM)))
|
(ACCESSFNS SEQUINPACKET ((SEQUINSTART (fetch PUPBASE of DATUM)))
|
||||||
(BLOCKRECORD SEQUINSTART ((NIL 2 WORD)
|
(BLOCKRECORD SEQUINSTART ((NIL 2 WORD)
|
||||||
(* ; "Pup length, typeword")
|
(* ; "Pup length, typeword")
|
||||||
(ALLOCATE BYTE)
|
(ALLOCATE BYTE)
|
||||||
(RECEIVESEQ BYTE)
|
(RECEIVESEQ BYTE)
|
||||||
(SEQCONTROL BYTE)
|
(SEQCONTROL BYTE)
|
||||||
(SENDSEQ BYTE)
|
(SENDSEQ BYTE)
|
||||||
(* ;
|
(* ;
|
||||||
"Sequin uses ID fields of PUP for control info")
|
"Sequin uses ID fields of PUP for control info")
|
||||||
)))
|
)))
|
||||||
|
|
||||||
(DATATYPE SEQUIN (
|
(DATATYPE SEQUIN (
|
||||||
(* ;; "First: stuff used by SEQUIN level")
|
(* ;; "First: stuff used by SEQUIN level")
|
||||||
|
|
||||||
(SEQNAME POINTER) (* ; "Name of partner")
|
(SEQNAME POINTER) (* ; "Name of partner")
|
||||||
(SEQFRNPORT POINTER) (* ; "Foreign socket")
|
(SEQFRNPORT POINTER) (* ; "Foreign socket")
|
||||||
(SEQSOCKET POINTER) (* ; "Local socket")
|
(SEQSOCKET POINTER) (* ; "Local socket")
|
||||||
(SEQSTATE BYTE) (* ; "Sequin connection state")
|
(SEQSTATE BYTE) (* ; "Sequin connection state")
|
||||||
(MYSENDSEQ BYTE) (* ;
|
(MYSENDSEQ BYTE) (* ;
|
||||||
"Number I will next send. These must be byte fields so that they will wrap around correctly!")
|
"Number I will next send. These must be byte fields so that they will wrap around correctly!")
|
||||||
(MYRECEIVESEQ BYTE) (* ;
|
(MYRECEIVESEQ BYTE) (* ;
|
||||||
"Number I next expect to receive, i.e. Partner's Send number of first unacked packet")
|
"Number I next expect to receive, i.e. Partner's Send number of first unacked packet")
|
||||||
(LASTACKEDSEQ BYTE) (* ;
|
(LASTACKEDSEQ BYTE) (* ;
|
||||||
"Last Receive seq from partner: all packets with sequence numbers before this one have been acked")
|
"Last Receive seq from partner: all packets with sequence numbers before this one have been acked")
|
||||||
(SEQOUTALLOC WORD) (* ;
|
(SEQOUTALLOC WORD) (* ;
|
||||||
"Output allocation: the number of packets I may send without their being acked")
|
"Output allocation: the number of packets I may send without their being acked")
|
||||||
(SEQINALLOC WORD) (* ;
|
(SEQINALLOC WORD) (* ;
|
||||||
"Input allocation: what I tell my partner")
|
"Input allocation: what I tell my partner")
|
||||||
(SEQMAXALLOC WORD) (* ;
|
(SEQMAXALLOC WORD) (* ;
|
||||||
"The largest I will let output allocation get")
|
"The largest I will let output allocation get")
|
||||||
(%#UNACKEDSEQS WORD) (* ;
|
(%#UNACKEDSEQS WORD) (* ;
|
||||||
"Number of data packets we have sent for which no acks have been received")
|
"Number of data packets we have sent for which no acks have been received")
|
||||||
(SEQINPUTQLENGTH WORD) (* ;
|
(SEQINPUTQLENGTH WORD) (* ;
|
||||||
"Number of packets in input (done) queue")
|
"Number of packets in input (done) queue")
|
||||||
(SEQTIMEOUT WORD) (* ; "Timeout before retransmission")
|
(SEQTIMEOUT WORD) (* ; "Timeout before retransmission")
|
||||||
(SEQBASETIMEOUT WORD) (* ;
|
(SEQBASETIMEOUT WORD) (* ;
|
||||||
"Timeout for this connection in general")
|
"Timeout for this connection in general")
|
||||||
(SEQRETRANSMITMAX WORD) (* ;
|
(SEQRETRANSMITMAX WORD) (* ;
|
||||||
"How many times to retransmit before complaining")
|
"How many times to retransmit before complaining")
|
||||||
(%#SEQRESTARTS WORD) (* ; "Some statistical info...")
|
(%#SEQRESTARTS WORD) (* ; "Some statistical info...")
|
||||||
(%#SEQRETRANSMITS WORD)
|
(%#SEQRETRANSMITS WORD)
|
||||||
(%#SEQDUPLICATES WORD)
|
(%#SEQDUPLICATES WORD)
|
||||||
(%#SEQTIMEOUTS WORD)
|
(%#SEQTIMEOUTS WORD)
|
||||||
(%#SEQTURNOVERS WORD)
|
(%#SEQTURNOVERS WORD)
|
||||||
(SEQRETRANSMITQ POINTER) (* ; "Sequin output queue")
|
(SEQRETRANSMITQ POINTER) (* ; "Sequin output queue")
|
||||||
(SEQTIMER POINTER)
|
(SEQTIMER POINTER)
|
||||||
(SEQPROCESS POINTER)
|
(SEQPROCESS POINTER)
|
||||||
(SEQIGNOREDUPLICATES FLAG)
|
(SEQIGNOREDUPLICATES FLAG)
|
||||||
(SEQRETRANSMITTING FLAG)
|
(SEQRETRANSMITTING FLAG)
|
||||||
(SEQCLOSEME FLAG)
|
(SEQCLOSEME FLAG)
|
||||||
(SEQCLOSEDFORLOGOUT FLAG)
|
(SEQCLOSEDFORLOGOUT FLAG)
|
||||||
(SEQLASTRESTARTTIMER POINTER) (* ;
|
(SEQLASTRESTARTTIMER POINTER) (* ;
|
||||||
"Allows for some aging of the connection timeout")
|
"Allows for some aging of the connection timeout")
|
||||||
(SEQLASTRESTART POINTER)
|
(SEQLASTRESTART POINTER)
|
||||||
(SEQRETRANSMITNEXT POINTER)
|
(SEQRETRANSMITNEXT POINTER)
|
||||||
(SEQEVENT POINTER) (* ;
|
(SEQEVENT POINTER) (* ;
|
||||||
"Signaled when there is input, state changed, or allocation changed")
|
"Signaled when there is input, state changed, or allocation changed")
|
||||||
(SEQLOCK POINTER) (* ; "Monitor lock for this structure")
|
(SEQLOCK POINTER) (* ; "Monitor lock for this structure")
|
||||||
|
|
||||||
(* ;; "Second-level functions invoked by SEQUIN")
|
(* ;; "Second-level functions invoked by SEQUIN")
|
||||||
|
|
||||||
(SEQACKED POINTER) (* ;
|
(SEQACKED POINTER) (* ;
|
||||||
"(PUP SEQUIN) called when PUP is acked")
|
"(PUP SEQUIN) called when PUP is acked")
|
||||||
(SEQINPUT POINTER) (* ;
|
(SEQINPUT POINTER) (* ;
|
||||||
"(PUP SEQUIN) called when PUP arrives as input data")
|
"(PUP SEQUIN) called when PUP arrives as input data")
|
||||||
(SEQBROKEN POINTER) (* ; "(SEQUIN PUP) called when a BROKEN sequin arrives (PUP = NIL) or attempt to send PUP on broken connection")
|
(SEQBROKEN POINTER) (* ; "(SEQUIN PUP) called when a BROKEN sequin arrives (PUP = NIL) or attempt to send PUP on broken connection")
|
||||||
(SEQABORTED POINTER) (* ;
|
(SEQABORTED POINTER) (* ;
|
||||||
"(SEQUIN) called when PUP arrives with outlandish sequence numbers")
|
"(SEQUIN) called when PUP arrives with outlandish sequence numbers")
|
||||||
(SEQTIMEDOUT POINTER) (* ;
|
(SEQTIMEDOUT POINTER) (* ;
|
||||||
"(SEQUIN) called when about to retransmit SEQRETRANSMITMAX times")
|
"(SEQUIN) called when about to retransmit SEQRETRANSMITMAX times")
|
||||||
(SEQCLOSED POINTER) (* ;
|
(SEQCLOSED POINTER) (* ;
|
||||||
"(SEQUIN) called when a connection is flushed, but before its retransmit queue is flushed")
|
"(SEQUIN) called when a connection is flushed, but before its retransmit queue is flushed")
|
||||||
(SEQIDLETIMEOUTCOMPUTER POINTER) (* ; "Computes timeout before calling SEQIDLEFN when no activity on connection. T means forever, NIL means don't")
|
(SEQIDLETIMEOUTCOMPUTER POINTER) (* ; "Computes timeout before calling SEQIDLEFN when no activity on connection. T means forever, NIL means don't")
|
||||||
(SEQIDLEFN POINTER) (* ;
|
(SEQIDLEFN POINTER) (* ;
|
||||||
"Called when nothing otherwise is happening, after timeout of SEQIDLETIMEOUT")
|
"Called when nothing otherwise is happening, after timeout of SEQIDLETIMEOUT")
|
||||||
|
|
||||||
(* ;; "Stuff used by clients of SEQUIN, in particular, LEAF")
|
(* ;; "Stuff used by clients of SEQUIN, in particular, LEAF")
|
||||||
|
|
||||||
(SEQDONEQ POINTER) (* ;
|
(SEQDONEQ POINTER) (* ;
|
||||||
"Sequins acked but kept around for further handling")
|
"Sequins acked but kept around for further handling")
|
||||||
(NIL POINTER)
|
(NIL POINTER)
|
||||||
(NIL POINTER)
|
(NIL POINTER)
|
||||||
(LEAFCACHEDFILE POINTER) (* ;
|
(LEAFCACHEDFILE POINTER) (* ;
|
||||||
"Last file accessed, to speed up repeated lookups of same name")
|
"Last file accessed, to speed up repeated lookups of same name")
|
||||||
(LEAFCACHETIMER POINTER) (* ; "To timeout the cache")
|
(LEAFCACHETIMER POINTER) (* ; "To timeout the cache")
|
||||||
(LEAFCACHEHITS WORD)
|
(LEAFCACHEHITS WORD)
|
||||||
(LEAFCACHEMISSES WORD)
|
(LEAFCACHEMISSES WORD)
|
||||||
(LEAFTIMEOUTCOUNT WORD)
|
(LEAFTIMEOUTCOUNT WORD)
|
||||||
(LEAFCLOSING FLAG)
|
(LEAFCLOSING FLAG)
|
||||||
(LEAFOPENCLOSELOCK POINTER) (* ;
|
(LEAFOPENCLOSELOCK POINTER) (* ;
|
||||||
"Monitor lock to keep GETFILE and CLOSEFILE from stepping on each other")
|
"Monitor lock to keep GETFILE and CLOSEFILE from stepping on each other")
|
||||||
(LEAFABORTBUTTONWINDOW POINTER)
|
(LEAFABORTBUTTONWINDOW POINTER)
|
||||||
(LEAFABORTSTATUS POINTER)
|
(LEAFABORTSTATUS POINTER)
|
||||||
(LEAFTIMEOUTSTATUS POINTER)
|
(LEAFTIMEOUTSTATUS POINTER)
|
||||||
(SEQTIMEDIN POINTER)
|
(SEQTIMEDIN POINTER)
|
||||||
(NIL POINTER)
|
(NIL POINTER)
|
||||||
(SEQOPENERRORHANDLER POINTER) (* ;
|
(SEQOPENERRORHANDLER POINTER) (* ;
|
||||||
"(SEQUIN PUP) called on errors trying to open connection")
|
"(SEQUIN PUP) called on errors trying to open connection")
|
||||||
)
|
)
|
||||||
SEQSTATE _ \SS.UNOPENED SEQOUTALLOC _ 1 SEQINALLOC _ \SEQUIN.DEFAULT.ALLOCATION
|
SEQSTATE _ \SS.UNOPENED SEQOUTALLOC _ 1 SEQINALLOC _ \SEQUIN.DEFAULT.ALLOCATION
|
||||||
SEQRETRANSMITMAX _ \SEQUIN.DEFAULT.RETRANSMITMAX SEQRETRANSMITQ _
|
SEQRETRANSMITMAX _ \SEQUIN.DEFAULT.RETRANSMITMAX SEQRETRANSMITQ _
|
||||||
@@ -309,18 +308,17 @@ Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(SEQUIN 116Q POINTER))
|
(SEQUIN 116Q POINTER))
|
||||||
'120Q)
|
'120Q)
|
||||||
|
|
||||||
(RPAQQ SEQUINOPS
|
(RPAQQ SEQUINOPS ((\SEQUIN.DATA 0)
|
||||||
((\SEQUIN.DATA 0)
|
(\SEQUIN.ACK 1)
|
||||||
(\SEQUIN.ACK 1)
|
(\SEQUIN.NOOP 2)
|
||||||
(\SEQUIN.NOOP 2)
|
(\SEQUIN.RESTART 3)
|
||||||
(\SEQUIN.RESTART 3)
|
(\SEQUIN.OPEN 5)
|
||||||
(\SEQUIN.OPEN 5)
|
(\SEQUIN.BREAK 6)
|
||||||
(\SEQUIN.BREAK 6)
|
(\SEQUIN.OBSOLETE.CLOSE 7)
|
||||||
(\SEQUIN.OBSOLETE.CLOSE 7)
|
(\SEQUIN.DESTROY 11Q)
|
||||||
(\SEQUIN.DESTROY 11Q)
|
(\SEQUIN.DALLYING 12Q)
|
||||||
(\SEQUIN.DALLYING 12Q)
|
(\SEQUIN.QUIT 13Q)
|
||||||
(\SEQUIN.QUIT 13Q)
|
(\SEQUIN.BROKEN 14Q)))
|
||||||
(\SEQUIN.BROKEN 14Q)))
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(RPAQQ \SEQUIN.DATA 0)
|
(RPAQQ \SEQUIN.DATA 0)
|
||||||
@@ -432,8 +430,8 @@ Copyright (c) 1983-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
)
|
)
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS SEQUINOP MACRO ((SEQ OP . ARGS)
|
[PUTPROPS SEQUINOP MACRO ((SEQ OP . ARGS)
|
||||||
(APPLY* (fetch (SEQUIN OP) of SEQ) . ARGS)))
|
(APPLY* (fetch (SEQUIN OP) of SEQ) . ARGS]
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
@@ -3855,7 +3853,7 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
(RPAQ? *UPPER-CASE-FILE-NAMES* T)
|
(RPAQ? *UPPER-CASE-FILE-NAMES* T)
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||||
|
|
||||||
(RPAQQ LEAFCOMPILETIMECOMS
|
(RPAQQ LEAFCOMPILETIMECOMS
|
||||||
((RECORDS LEAFDATA LEAFERRORDATA LEAFPARAMSDATA LEAFPACKET LEAFINFOBLOCK LEAFSTREAM LEAFDEVICE
|
((RECORDS LEAFDATA LEAFERRORDATA LEAFPARAMSDATA LEAFPACKET LEAFINFOBLOCK LEAFSTREAM LEAFDEVICE
|
||||||
PUPFILESERVER)
|
PUPFILESERVER)
|
||||||
(MACROS .NAMEORSTREAM. .PAGE.IS.AFTER.EOF. INCLEAFSTAT)
|
(MACROS .NAMEORSTREAM. .PAGE.IS.AFTER.EOF. INCLEAFSTAT)
|
||||||
@@ -3915,8 +3913,8 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
(HANDLE WORD)
|
(HANDLE WORD)
|
||||||
(FILEADDRESS FIXP)
|
(FILEADDRESS FIXP)
|
||||||
(DATALENGTH WORD)
|
(DATALENGTH WORD)
|
||||||
(LEAFFIRSTDATAWORD WORD)) (* ;
|
(LEAFFIRSTDATAWORD WORD)) (* ;
|
||||||
"Format of typical file operation request.")
|
"Format of typical file operation request.")
|
||||||
(BLOCKRECORD LEAFDATA ((LEAFOPCODE BITS 5)
|
(BLOCKRECORD LEAFDATA ((LEAFOPCODE BITS 5)
|
||||||
(ANSWERBIT BITS 1)
|
(ANSWERBIT BITS 1)
|
||||||
(LEAFLENGTH BITS 12Q)
|
(LEAFLENGTH BITS 12Q)
|
||||||
@@ -3926,45 +3924,45 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
(NIL BITS 2)
|
(NIL BITS 2)
|
||||||
(JUSTHIADDR BITS 13Q)
|
(JUSTHIADDR BITS 13Q)
|
||||||
(LOADDR WORD))
|
(LOADDR WORD))
|
||||||
(* ;
|
(* ;
|
||||||
"Details of the file address format")
|
"Details of the file address format")
|
||||||
(SYNONYM LEAFOPCODE (OPCODE)))
|
(SYNONYM LEAFOPCODE (OPCODE)))
|
||||||
(BLOCKRECORD LEAFDATA ((NIL 2 WORD)
|
(BLOCKRECORD LEAFDATA ((NIL 2 WORD)
|
||||||
(SIGNEXTEND BITS 5)
|
(SIGNEXTEND BITS 5)
|
||||||
(NIL BITS 33Q))
|
(NIL BITS 33Q))
|
||||||
(* ; "more details")
|
(* ; "more details")
|
||||||
)
|
)
|
||||||
(BLOCKRECORD LEAFDATA ((NIL 2 WORD)
|
(BLOCKRECORD LEAFDATA ((NIL 2 WORD)
|
||||||
(OPENMODE WORD))
|
(OPENMODE WORD))
|
||||||
(* ; "format of OPEN file request")
|
(* ; "format of OPEN file request")
|
||||||
)
|
)
|
||||||
(BLOCKRECORD LEAFDATA ((NIL 5 WORD)
|
(BLOCKRECORD LEAFDATA ((NIL 5 WORD)
|
||||||
(LEAFFILETYPE WORD)
|
(LEAFFILETYPE WORD)
|
||||||
(LEAFBYTESIZE WORD))
|
(LEAFBYTESIZE WORD))
|
||||||
(* ; "For accessing the file's TYPE")
|
(* ; "For accessing the file's TYPE")
|
||||||
)
|
)
|
||||||
(BLOCKRECORD LEAFDATA ((NIL 5 WORD)
|
(BLOCKRECORD LEAFDATA ((NIL 5 WORD)
|
||||||
(LEAFFILEDATE FIXP))
|
(LEAFFILEDATE FIXP))
|
||||||
(* ;
|
(* ;
|
||||||
"Format of SETFILEINFO of CREATIONDATE request")
|
"Format of SETFILEINFO of CREATIONDATE request")
|
||||||
))
|
))
|
||||||
|
|
||||||
(BLOCKRECORD LEAFERRORDATA ((NIL WORD)
|
(BLOCKRECORD LEAFERRORDATA ((NIL WORD)
|
||||||
(LEAFERRORCODE WORD) (* ; "Error subcode in ERROR leafop")
|
(LEAFERRORCODE WORD) (* ; "Error subcode in ERROR leafop")
|
||||||
(LEAFERROROPCODE BITS 5) (* ;
|
(LEAFERROROPCODE BITS 5) (* ;
|
||||||
"The OPCODE in the Leaf packet provoking the error")
|
"The OPCODE in the Leaf packet provoking the error")
|
||||||
(NIL BITS 13Q)
|
(NIL BITS 13Q)
|
||||||
(LEAFERRORHANDLE WORD) (* ; "The handle in the provoking op")
|
(LEAFERRORHANDLE WORD) (* ; "The handle in the provoking op")
|
||||||
(LEAFERRORMSG WORD) (* ;
|
(LEAFERRORMSG WORD) (* ;
|
||||||
"Actually IFSSTRING starting here")
|
"Actually IFSSTRING starting here")
|
||||||
))
|
))
|
||||||
|
|
||||||
(BLOCKRECORD LEAFPARAMSDATA ((NIL WORD)
|
(BLOCKRECORD LEAFPARAMSDATA ((NIL WORD)
|
||||||
(LEAFPMAXDATALENGTH WORD)
|
(LEAFPMAXDATALENGTH WORD)
|
||||||
(LEAFPLOCKTIMEOUT WORD) (* ;
|
(LEAFPLOCKTIMEOUT WORD) (* ;
|
||||||
"File Lock timeout, in units of 5 seconds")
|
"File Lock timeout, in units of 5 seconds")
|
||||||
(LEAFPCONNTIMEOUT WORD) (* ;
|
(LEAFPCONNTIMEOUT WORD) (* ;
|
||||||
"Overall connection timeout, same units")
|
"Overall connection timeout, same units")
|
||||||
))
|
))
|
||||||
|
|
||||||
(ACCESSFNS LEAFPACKET ((LEAFSTATUS (fetch EPUSERFIELD of DATUM)
|
(ACCESSFNS LEAFPACKET ((LEAFSTATUS (fetch EPUSERFIELD of DATUM)
|
||||||
@@ -3980,14 +3978,14 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
|
|
||||||
(BLOCKRECORD LEAFINFOBLOCK ((LFCREATIONDATE FIXP)
|
(BLOCKRECORD LEAFINFOBLOCK ((LFCREATIONDATE FIXP)
|
||||||
(LFWRITEDATE FIXP)
|
(LFWRITEDATE FIXP)
|
||||||
(LFREADDATE FIXP)) (* ; "just like leader page")
|
(LFREADDATE FIXP)) (* ; "just like leader page")
|
||||||
(BLOCKRECORD LEAFINFOBLOCK ((HICREATE WORD)
|
(BLOCKRECORD LEAFINFOBLOCK ((HICREATE WORD)
|
||||||
(LOCREATE WORD)
|
(LOCREATE WORD)
|
||||||
(HIWRITE WORD)
|
(HIWRITE WORD)
|
||||||
(LOWRITE WORD)
|
(LOWRITE WORD)
|
||||||
(HIREAD WORD)
|
(HIREAD WORD)
|
||||||
(LOREAD WORD))
|
(LOREAD WORD))
|
||||||
(* ; "for VALIDATION use")
|
(* ; "for VALIDATION use")
|
||||||
)
|
)
|
||||||
(CREATE (\ALLOCBLOCK 3)))
|
(CREATE (\ALLOCBLOCK 3)))
|
||||||
|
|
||||||
@@ -4010,25 +4008,25 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
(replace DEVICEINFO of DATUM with NEWVALUE))))
|
(replace DEVICEINFO of DATUM with NEWVALUE))))
|
||||||
|
|
||||||
(DATATYPE PUPFILESERVER (
|
(DATATYPE PUPFILESERVER (
|
||||||
(* ;; "Info common to various pup protocols used on a file server, independent of whether a connection is now open")
|
(* ;; "Info common to various pup protocols used on a file server, independent of whether a connection is now open")
|
||||||
|
|
||||||
(NIL BYTE)
|
(NIL BYTE)
|
||||||
(PFSNAME POINTER)
|
(PFSNAME POINTER)
|
||||||
(PFSADDRESS POINTER) (* ; "Pup address")
|
(PFSADDRESS POINTER) (* ; "Pup address")
|
||||||
(PFSOSTYPE POINTER)
|
(PFSOSTYPE POINTER)
|
||||||
(PFSLEAFFLG POINTER) (* ;
|
(PFSLEAFFLG POINTER) (* ;
|
||||||
"Indicates something about whether LEAF is available")
|
"Indicates something about whether LEAF is available")
|
||||||
(PFSLEAFSEQUIN POINTER) (* ;
|
(PFSLEAFSEQUIN POINTER) (* ;
|
||||||
"Pointer to SEQUIN for open leaf connection")
|
"Pointer to SEQUIN for open leaf connection")
|
||||||
(PFSLEAFTIMER POINTER) (* ;
|
(PFSLEAFTIMER POINTER) (* ;
|
||||||
"Timeout for handling dead servers")
|
"Timeout for handling dead servers")
|
||||||
(PFSLOOKUPFILESOCKET POINTER) (* ;
|
(PFSLOOKUPFILESOCKET POINTER) (* ;
|
||||||
"The Pup socket for LookupFile requests")
|
"The Pup socket for LookupFile requests")
|
||||||
(PFSLOOKUPFILELOCK POINTER) (* ; "Lock to secure it")
|
(PFSLOOKUPFILELOCK POINTER) (* ; "Lock to secure it")
|
||||||
(PFSLOOKUPFAILCNT POINTER) (* ;
|
(PFSLOOKUPFAILCNT POINTER) (* ;
|
||||||
"Counter used until we know the service exists")
|
"Counter used until we know the service exists")
|
||||||
(PFSKNOWNDIRS POINTER) (* ;
|
(PFSKNOWNDIRS POINTER) (* ;
|
||||||
"List of directories known to exist on this host (for DIRECTORYNAMEP)")
|
"List of directories known to exist on this host (for DIRECTORYNAMEP)")
|
||||||
(NIL POINTER)))
|
(NIL POINTER)))
|
||||||
)
|
)
|
||||||
|
|
||||||
@@ -4049,36 +4047,35 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
'30Q)
|
'30Q)
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS .NAMEORSTREAM. MACRO (OPENLAMBDA (FILENAME)
|
[PUTPROPS .NAMEORSTREAM. MACRO (OPENLAMBDA (FILENAME)
|
||||||
(COND
|
(COND
|
||||||
((type? STREAM FILENAME)
|
((type? STREAM FILENAME)
|
||||||
(fetch FULLFILENAME of FILENAME))
|
(fetch FULLFILENAME of FILENAME))
|
||||||
(T FILENAME))))
|
(T FILENAME]
|
||||||
|
|
||||||
(PUTPROPS .PAGE.IS.AFTER.EOF. MACRO [OPENLAMBDA (STREAM PAGE#)
|
[PUTPROPS .PAGE.IS.AFTER.EOF. MACRO (OPENLAMBDA (STREAM PAGE#)
|
||||||
(AND (IGEQ PAGE# (fetch EPAGE of STREAM))
|
(AND (IGEQ PAGE# (fetch EPAGE of STREAM))
|
||||||
(OR (NOT (IEQP (fetch EPAGE of STREAM)
|
(OR (NOT (IEQP (fetch EPAGE of STREAM)
|
||||||
PAGE#))
|
PAGE#))
|
||||||
(EQ (fetch EOFFSET of STREAM)
|
(EQ (fetch EOFFSET of STREAM)
|
||||||
0])
|
0]
|
||||||
|
|
||||||
(PUTPROPS INCLEAFSTAT MACRO ((X)
|
[PUTPROPS INCLEAFSTAT MACRO ((X)
|
||||||
(change X (IPLUS16 DATUM 1))))
|
(change X (IPLUS16 DATUM 1]
|
||||||
)
|
)
|
||||||
|
|
||||||
(RPAQQ LEAFOPCODES
|
(RPAQQ LEAFOPCODES ((\LEAFOP.ERROR 0)
|
||||||
((\LEAFOP.ERROR 0)
|
(\LEAFOP.OPEN 1)
|
||||||
(\LEAFOP.OPEN 1)
|
(\LEAFOP.CLOSE 2)
|
||||||
(\LEAFOP.CLOSE 2)
|
(\LEAFOP.DELETE 3)
|
||||||
(\LEAFOP.DELETE 3)
|
(\LEAFOP.LENGTH 4)
|
||||||
(\LEAFOP.LENGTH 4)
|
(\LEAFOP.TRUNCATE 5)
|
||||||
(\LEAFOP.TRUNCATE 5)
|
(\LEAFOP.READ 6)
|
||||||
(\LEAFOP.READ 6)
|
(\LEAFOP.WRITE 7)
|
||||||
(\LEAFOP.WRITE 7)
|
(\LEAFOP.RESET 10Q)
|
||||||
(\LEAFOP.RESET 10Q)
|
(\LEAFOP.NOOP 11Q)
|
||||||
(\LEAFOP.NOOP 11Q)
|
(\LEAFOP.TELNET 12Q)
|
||||||
(\LEAFOP.TELNET 12Q)
|
(\LEAFOP.PARAMS 13Q)))
|
||||||
(\LEAFOP.PARAMS 13Q)))
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(RPAQQ \LEAFOP.ERROR 0)
|
(RPAQQ \LEAFOP.ERROR 0)
|
||||||
@@ -4120,24 +4117,23 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
(\LEAFOP.PARAMS 13Q))
|
(\LEAFOP.PARAMS 13Q))
|
||||||
)
|
)
|
||||||
|
|
||||||
(RPAQQ IFSERRORS
|
(RPAQQ IFSERRORS ((\IFSERROR.BAD.CHARACTER 312Q)
|
||||||
((\IFSERROR.BAD.CHARACTER 312Q)
|
(\IFSERROR.MALFORMED '(311Q 312Q))
|
||||||
(\IFSERROR.MALFORMED '(311Q 312Q))
|
(\IFSERROR.FILE.NOT.FOUND 317Q)
|
||||||
(\IFSERROR.FILE.NOT.FOUND 317Q)
|
(\IFSERROR.PROTECTION 320Q)
|
||||||
(\IFSERROR.PROTECTION 320Q)
|
(\IFSERROR.BUSY 321Q)
|
||||||
(\IFSERROR.BUSY 321Q)
|
(\IFSERROR.INVALID.DIRECTORY 322Q)
|
||||||
(\IFSERROR.INVALID.DIRECTORY 322Q)
|
(\IFSERROR.ALLOCATION 323Q)
|
||||||
(\IFSERROR.ALLOCATION 323Q)
|
(\IFSERROR.USERNAME 330Q)
|
||||||
(\IFSERROR.USERNAME 330Q)
|
(\IFSERROR.PASSWORD 331Q)
|
||||||
(\IFSERROR.PASSWORD 331Q)
|
(\IFSERROR.NO.LOGIN 332Q)
|
||||||
(\IFSERROR.NO.LOGIN 332Q)
|
(\PASSWORD.ERRORS '(330Q 331Q 332Q 337Q))
|
||||||
(\PASSWORD.ERRORS '(330Q 331Q 332Q 337Q))
|
(\IFSERROR.CONNECTNAME 333Q)
|
||||||
(\IFSERROR.CONNECTNAME 333Q)
|
(\IFSERROR.CONNECTPASSWORD 334Q)
|
||||||
(\IFSERROR.CONNECTPASSWORD 334Q)
|
(\CONNECT.PASSWORD.ERRORS '(333Q 334Q))
|
||||||
(\CONNECT.PASSWORD.ERRORS '(333Q 334Q))
|
(\IFSERROR.NEED.USERNAME 337Q)
|
||||||
(\IFSERROR.NEED.USERNAME 337Q)
|
(\IFS.ERROR.BROKEN.LEAF 1751Q)
|
||||||
(\IFS.ERROR.BROKEN.LEAF 1751Q)
|
(\IFSERROR.BAD.HANDLE 1763Q)))
|
||||||
(\IFSERROR.BAD.HANDLE 1763Q)))
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(RPAQQ \IFSERROR.BAD.CHARACTER 312Q)
|
(RPAQQ \IFSERROR.BAD.CHARACTER 312Q)
|
||||||
@@ -4371,41 +4367,41 @@ This shouldn't happen: Lisp and the server have different ideas about which file
|
|||||||
(NIL POINTER)))
|
(NIL POINTER)))
|
||||||
)
|
)
|
||||||
(PUTPROPS LEAF COPYRIGHT ("Venue & Xerox Corporation" 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3706Q 3707Q
|
(PUTPROPS LEAF COPYRIGHT ("Venue & Xerox Corporation" 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3706Q 3707Q
|
||||||
3710Q 3711Q 3745Q))
|
3710Q 3711Q))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (55030Q 70126Q (CLOSESEQUIN 55042Q . 56061Q) (INITSEQUIN 56063Q . 61167Q) (GETSEQUIN
|
(FILEMAP (NIL (55721Q 71017Q (CLOSESEQUIN 55733Q . 56752Q) (INITSEQUIN 56754Q . 62060Q) (GETSEQUIN
|
||||||
61171Q . 62702Q) (PUTSEQUIN 62704Q . 70124Q)) (70127Q 153532Q (\SEQUIN.CONTROL 70141Q . 71412Q) (
|
62062Q . 63573Q) (PUTSEQUIN 63575Q . 71015Q)) (71020Q 154423Q (\SEQUIN.CONTROL 71032Q . 72303Q) (
|
||||||
\SEQUIN.PUT 71414Q . 76437Q) (\SEQUIN.PROCESS 76441Q . 113715Q) (\SEQUIN.CLOSE 113717Q . 114604Q) (
|
\SEQUIN.PUT 72305Q . 77330Q) (\SEQUIN.PROCESS 77332Q . 114606Q) (\SEQUIN.CLOSE 114610Q . 115475Q) (
|
||||||
\SEQUIN.FLUSH.CONNECTION 114606Q . 116617Q) (\SEQUIN.CLEANUP 116621Q . 117752Q) (
|
\SEQUIN.FLUSH.CONNECTION 115477Q . 117510Q) (\SEQUIN.CLEANUP 117512Q . 120643Q) (
|
||||||
\SEQUIN.FLUSH.RETRANSMIT 117754Q . 121211Q) (\SEQUIN.COMPARE 121213Q . 122352Q) (\SEQUIN.HANDLE.INPUT
|
\SEQUIN.FLUSH.RETRANSMIT 120645Q . 122102Q) (\SEQUIN.COMPARE 122104Q . 123243Q) (\SEQUIN.HANDLE.INPUT
|
||||||
122354Q . 140331Q) (\SEQUIN.OUT.OF.THE.BLUE 140333Q . 141156Q) (\SEQUIN.HANDLE.ACK 141160Q . 145412Q)
|
123245Q . 141222Q) (\SEQUIN.OUT.OF.THE.BLUE 141224Q . 142047Q) (\SEQUIN.HANDLE.ACK 142051Q . 146303Q)
|
||||||
(\SEQUIN.RETRANSMIT 145414Q . 150762Q) (\SEQUIN.RETRANSMITNEXT 150764Q . 153530Q)) (153603Q 417505Q (
|
(\SEQUIN.RETRANSMIT 146305Q . 151653Q) (\SEQUIN.RETRANSMITNEXT 151655Q . 154421Q)) (154474Q 420376Q (
|
||||||
\LEAF.CLOSEFILE 153615Q . 166666Q) (\LEAF.DELETEFILE 166670Q . 172453Q) (\LEAF.DEVICEP 172455Q .
|
\LEAF.CLOSEFILE 154506Q . 167557Q) (\LEAF.DELETEFILE 167561Q . 173344Q) (\LEAF.DEVICEP 173346Q .
|
||||||
207444Q) (\LEAF.RECONNECT 207446Q . 211363Q) (\LEAF.DIRECTORYNAMEP 211365Q . 214676Q) (
|
210335Q) (\LEAF.RECONNECT 210337Q . 212254Q) (\LEAF.DIRECTORYNAMEP 212256Q . 215567Q) (
|
||||||
\LEAF.GENERATEFILES 214700Q . 215312Q) (\LEAF.GETFILE 215314Q . 251753Q) (\PARSE.REMOTE.FILENAME
|
\LEAF.GENERATEFILES 215571Q . 216203Q) (\LEAF.GETFILE 216205Q . 252644Q) (\PARSE.REMOTE.FILENAME
|
||||||
251755Q . 261161Q) (\LEAF.STRIP.QUOTES 261163Q . 262654Q) (\LEAF.GETFILEDATES 262656Q . 265051Q) (
|
252646Q . 262052Q) (\LEAF.STRIP.QUOTES 262054Q . 263545Q) (\LEAF.GETFILEDATES 263547Q . 265742Q) (
|
||||||
\LEAF.GETFILEINFO 265053Q . 270430Q) (\LEAF.GETFILEINFO.OPEN 270432Q . 277251Q) (\LEAF.GETFILENAME
|
\LEAF.GETFILEINFO 265744Q . 271321Q) (\LEAF.GETFILEINFO.OPEN 271323Q . 300142Q) (\LEAF.GETFILENAME
|
||||||
277253Q . 301470Q) (\LEAF.OPENFILE 301472Q . 315543Q) (\LEAF.READFILENAME 315545Q . 321456Q) (
|
300144Q . 302361Q) (\LEAF.OPENFILE 302363Q . 316434Q) (\LEAF.READFILENAME 316436Q . 322347Q) (
|
||||||
\LEAF.ADD.QUOTES 321460Q . 324102Q) (\LEAF.READFILEPROP 324104Q . 327153Q) (\LEAF.READPAGES 327155Q .
|
\LEAF.ADD.QUOTES 322351Q . 324773Q) (\LEAF.READFILEPROP 324775Q . 330044Q) (\LEAF.READPAGES 330046Q .
|
||||||
336312Q) (\LEAF.REQUESTPAGE 336314Q . 345224Q) (\LEAF.LOOKUPCACHE 345226Q . 352162Q) (CLEAR.LEAF.CACHE
|
337203Q) (\LEAF.REQUESTPAGE 337205Q . 346115Q) (\LEAF.LOOKUPCACHE 346117Q . 353053Q) (CLEAR.LEAF.CACHE
|
||||||
352164Q . 354134Q) (LEAF.ASSURE.FINISHED 354136Q . 361267Q) (\LEAF.FORCEOUTPUT 361271Q . 361563Q) (
|
353055Q . 355025Q) (LEAF.ASSURE.FINISHED 355027Q . 362160Q) (\LEAF.FORCEOUTPUT 362162Q . 362454Q) (
|
||||||
\LEAF.FLUSH.CACHE 361565Q . 362771Q) (\LEAF.RENAMEFILE 362773Q . 363745Q) (\LEAF.REOPENFILE 363747Q .
|
\LEAF.FLUSH.CACHE 362456Q . 363662Q) (\LEAF.RENAMEFILE 363664Q . 364636Q) (\LEAF.REOPENFILE 364640Q .
|
||||||
371322Q) (\LEAF.CREATIONDATE 371324Q . 372161Q) (\LEAF.SETCREATIONDATE 372163Q . 375676Q) (
|
372213Q) (\LEAF.CREATIONDATE 372215Q . 373052Q) (\LEAF.SETCREATIONDATE 373054Q . 376567Q) (
|
||||||
\LEAF.SETFILEINFO 375700Q . 377562Q) (\LEAF.SETFILETYPE 377564Q . 404346Q) (\LEAF.SETVALIDATION
|
\LEAF.SETFILEINFO 376571Q . 400453Q) (\LEAF.SETFILETYPE 400455Q . 405237Q) (\LEAF.SETVALIDATION
|
||||||
404350Q . 406705Q) (\LEAF.TRUNCATEFILE 406707Q . 412102Q) (\LEAF.WRITEPAGES 412104Q . 417503Q)) (
|
405241Q . 407576Q) (\LEAF.TRUNCATEFILE 407600Q . 412773Q) (\LEAF.WRITEPAGES 412775Q . 420374Q)) (
|
||||||
417570Q 425677Q (\SENDLEAF 417602Q . 425675Q)) (425753Q 456434Q (\OPENLEAFCONNECTION 425765Q . 450073Q
|
420461Q 426570Q (\SENDLEAF 420473Q . 426566Q)) (426644Q 457325Q (\OPENLEAFCONNECTION 426656Q . 450764Q
|
||||||
) (\LEAF.BREAKCONNECTION 450075Q . 451701Q) (\CLOSELEAFCONNECTION 451703Q . 452543Q) (\LEAF.EVENTFN
|
) (\LEAF.BREAKCONNECTION 450766Q . 452572Q) (\CLOSELEAFCONNECTION 452574Q . 453434Q) (\LEAF.EVENTFN
|
||||||
452545Q . 456432Q)) (456523Q 461306Q (BREAKCONNECTION 456535Q . 461304Q)) (461412Q 573776Q (
|
453436Q . 457323Q)) (457414Q 462177Q (BREAKCONNECTION 457426Q . 462175Q)) (462303Q 574667Q (
|
||||||
\LEAF.ACKED 461424Q . 462133Q) (\LEAF.FIX.BROKEN.SEQUIN 462135Q . 502075Q) (\LEAF.REPAIR.BROKEN.PUP
|
\LEAF.ACKED 462315Q . 463024Q) (\LEAF.FIX.BROKEN.SEQUIN 463026Q . 502766Q) (\LEAF.REPAIR.BROKEN.PUP
|
||||||
502077Q . 506171Q) (\LEAF.USE.NEW.CONNECTION 506173Q . 522016Q) (\LEAF.RESENDPUPS 522020Q . 522430Q) (
|
502770Q . 507062Q) (\LEAF.USE.NEW.CONNECTION 507064Q . 522707Q) (\LEAF.RESENDPUPS 522711Q . 523321Q) (
|
||||||
\LEAF.HANDLE.INPUT 522432Q . 531742Q) (\LEAF.OPENERRORHANDLER 531744Q . 533367Q) (\LEAF.TIMEDIN
|
\LEAF.HANDLE.INPUT 523323Q . 532633Q) (\LEAF.OPENERRORHANDLER 532635Q . 534260Q) (\LEAF.TIMEDIN
|
||||||
533371Q . 534354Q) (\LEAF.TIMEDOUT 534356Q . 542671Q) (\LEAF.NOT.RESPONDING 542673Q . 544243Q) (
|
534262Q . 535245Q) (\LEAF.TIMEDOUT 535247Q . 543562Q) (\LEAF.NOT.RESPONDING 543564Q . 545134Q) (
|
||||||
\LEAF.TIMEDOUT.EXCESSIVE 544245Q . 556712Q) (\LEAF.ABORT.FROMMENU 556714Q . 557643Q) (
|
\LEAF.TIMEDOUT.EXCESSIVE 545136Q . 557603Q) (\LEAF.ABORT.FROMMENU 557605Q . 560534Q) (
|
||||||
\LEAF.STREAM.IN.QUEUE 557645Q . 564240Q) (\LEAF.IDLE 564242Q . 566302Q) (\LEAF.MAYBE.FLUSH.CACHE
|
\LEAF.STREAM.IN.QUEUE 560536Q . 565131Q) (\LEAF.IDLE 565133Q . 567173Q) (\LEAF.MAYBE.FLUSH.CACHE
|
||||||
566304Q . 567375Q) (\LEAF.WHENCLOSED 567377Q . 572565Q) (\LEAF.IDLE? 572567Q . 573774Q)) (574121Q
|
567175Q . 570266Q) (\LEAF.WHENCLOSED 570270Q . 573456Q) (\LEAF.IDLE? 573460Q . 574665Q)) (575012Q
|
||||||
627734Q (\ADDLEAFSTRING 574133Q . 600001Q) (\FIXPASSWORD 600003Q . 602140Q) (\GETLEAFSTRING 602142Q .
|
630625Q (\ADDLEAFSTRING 575024Q . 600672Q) (\FIXPASSWORD 600674Q . 603031Q) (\GETLEAFSTRING 603033Q .
|
||||||
602672Q) (\IFSERRORSTRING 602674Q . 611061Q) (\LEAF.ERROR 611063Q . 616362Q) (\LEAF.DIRECTORYNAMEONLY
|
603563Q) (\IFSERRORSTRING 603565Q . 611752Q) (\LEAF.ERROR 611754Q . 617253Q) (\LEAF.DIRECTORYNAMEONLY
|
||||||
616364Q . 617105Q) (GETHOSTINFO 617107Q . 624405Q) (GETOSTYPE 624407Q . 624626Q) (EXPANDING-PAGEFULLFN
|
617255Q . 617776Q) (GETHOSTINFO 620000Q . 625276Q) (GETOSTYPE 625300Q . 625517Q) (EXPANDING-PAGEFULLFN
|
||||||
624630Q . 627732Q)) (630141Q 654726Q (\IFS.LOOKUPFILE 630153Q . 654724Q)) (656667Q 661016Q (\LEAFINIT
|
625521Q . 630623Q)) (631032Q 655617Q (\IFS.LOOKUPFILE 631044Q . 655615Q)) (657560Q 661707Q (\LEAFINIT
|
||||||
656701Q . 661014Q)) (661074Q 674131Q (PRINTLEAF 661106Q . 674127Q)))))
|
657572Q . 661705Q)) (661765Q 675022Q (PRINTLEAF 661777Q . 675020Q)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,11 +1,11 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:49"
|
(FILECREATED " 8-Aug-2021 00:19:22"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;9 268917
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7 268927
|
||||||
|
|
||||||
changes to%: (FNS \CREATEDISPLAY)
|
changes to%: (FNS READBITMAP)
|
||||||
|
|
||||||
previous date%: " 8-Aug-2021 00:19:22"
|
previous date%: " 1-Aug-2021 23:41:37"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;8)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -4528,42 +4528,42 @@ Copyright (c) 1981-1990, 1993-1994, 2021 by Venue & Xerox Corporation.
|
|||||||
(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988
|
(PUTPROPS LLDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988
|
||||||
1989 1990 1993 1994 2021))
|
1989 1990 1993 1994 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (20534 23202 (\FBITMAPBIT 20544 . 21004) (\FBITMAPBIT.UFN 21006 . 22025) (
|
(FILEMAP (NIL (20544 23212 (\FBITMAPBIT 20554 . 21014) (\FBITMAPBIT.UFN 21016 . 22035) (
|
||||||
\NEWPAGE.DISPLAY 22027 . 22162) (INITBITMASKS 22164 . 23200)) (25247 25756 (\CreateCursorBitMap 25257
|
\NEWPAGE.DISPLAY 22037 . 22172) (INITBITMASKS 22174 . 23210)) (25257 25766 (\CreateCursorBitMap 25267
|
||||||
. 25754)) (25873 84961 (BITBLT 25883 . 36273) (BLTSHADE 36275 . 37053) (\BITBLTSUB 37055 . 47190) (
|
. 25764)) (25883 84971 (BITBLT 25893 . 36283) (BLTSHADE 36285 . 37063) (\BITBLTSUB 37065 . 47200) (
|
||||||
\GETPILOTBBTSCRATCHBM 47192 . 47807) (BITMAPCOPY 47809 . 48385) (BITMAPCREATE 48387 . 49947) (
|
\GETPILOTBBTSCRATCHBM 47202 . 47817) (BITMAPCOPY 47819 . 48395) (BITMAPCREATE 48397 . 49957) (
|
||||||
BITMAPBIT 49949 . 58336) (BLTCHAR 58338 . 58954) (\BLTCHAR 58956 . 59458) (\MEDW.BLTCHAR 59460 . 64338
|
BITMAPBIT 49959 . 58346) (BLTCHAR 58348 . 58964) (\BLTCHAR 58966 . 59468) (\MEDW.BLTCHAR 59470 . 64348
|
||||||
) (\CHANGECHARSET.DISPLAY 64340 . 67298) (\INDICATESTRING 67300 . 68496) (\SLOWBLTCHAR 68498 . 75594)
|
) (\CHANGECHARSET.DISPLAY 64350 . 67308) (\INDICATESTRING 67310 . 68506) (\SLOWBLTCHAR 68508 . 75604)
|
||||||
(TEXTUREP 75596 . 75866) (INVERT.TEXTURE 75868 . 76142) (INVERT.TEXTURE.BITMAP 76144 . 77679) (
|
(TEXTUREP 75606 . 75876) (INVERT.TEXTURE 75878 . 76152) (INVERT.TEXTURE.BITMAP 76154 . 77689) (
|
||||||
BITMAPWIDTH 77681 . 78053) (READBITMAP 78055 . 80565) (\INSUREBITSPERPIXEL 80567 . 80862) (
|
BITMAPWIDTH 77691 . 78063) (READBITMAP 78065 . 80575) (\INSUREBITSPERPIXEL 80577 . 80872) (
|
||||||
MAXIMUMCOLOR 80864 . 81005) (OPPOSITECOLOR 81007 . 81186) (MAXIMUMSHADE 81188 . 81399) (OPPOSITESHADE
|
MAXIMUMCOLOR 80874 . 81015) (OPPOSITECOLOR 81017 . 81196) (MAXIMUMSHADE 81198 . 81409) (OPPOSITESHADE
|
||||||
81401 . 81580) (\MEDW.BITBLT 81582 . 84959)) (84963 90278 (FINISH-READING-BITMAP 84963 . 90278)) (
|
81411 . 81590) (\MEDW.BITBLT 81592 . 84969)) (84973 90288 (FINISH-READING-BITMAP 84973 . 90288)) (
|
||||||
91541 92022 (BITMAPBIT.EXPANDER 91551 . 92020)) (92023 140557 (\BITBLT.DISPLAY 92033 . 115272) (
|
91551 92032 (BITMAPBIT.EXPANDER 91561 . 92030)) (92033 140567 (\BITBLT.DISPLAY 92043 . 115282) (
|
||||||
\BITBLT.BITMAP 115274 . 124373) (\BITBLT.MERGE 124375 . 126628) (\BLTSHADE.DISPLAY 126630 . 133730) (
|
\BITBLT.BITMAP 115284 . 124383) (\BITBLT.MERGE 124385 . 126638) (\BLTSHADE.DISPLAY 126640 . 133740) (
|
||||||
\BLTSHADE.BITMAP 133732 . 140555)) (140558 149878 (\BITBLT.BITMAP.SLOW 140568 . 149876)) (149879
|
\BLTSHADE.BITMAP 133742 . 140565)) (140568 149888 (\BITBLT.BITMAP.SLOW 140578 . 149886)) (149889
|
||||||
166260 (\PUNT.BLTSHADE.BITMAP 149889 . 156985) (\PUNT.BITBLT.BITMAP 156987 . 166258)) (166261 169701 (
|
166270 (\PUNT.BLTSHADE.BITMAP 149899 . 156995) (\PUNT.BITBLT.BITMAP 156997 . 166268)) (166271 169711 (
|
||||||
\SCALEDBITBLT.DISPLAY 166271 . 167904) (\BACKCOLOR.DISPLAY 167906 . 169699)) (174019 176292 (
|
\SCALEDBITBLT.DISPLAY 166281 . 167914) (\BACKCOLOR.DISPLAY 167916 . 169709)) (174029 176302 (
|
||||||
DISPLAYSTREAMP 174029 . 174637) (DSPSOURCETYPE 174639 . 175648) (DSPXOFFSET 175650 . 175969) (
|
DISPLAYSTREAMP 174039 . 174647) (DSPSOURCETYPE 174649 . 175658) (DSPXOFFSET 175660 . 175979) (
|
||||||
DSPYOFFSET 175971 . 176290)) (176293 192594 (DSPCREATE 176303 . 178407) (DSPDESTINATION 178409 .
|
DSPYOFFSET 175981 . 176300)) (176303 192604 (DSPCREATE 176313 . 178417) (DSPDESTINATION 178419 .
|
||||||
181512) (DSPTEXTURE 181514 . 181676) (\DISPLAYSTREAMINCRXPOSITION 181678 . 181965) (\SFFixDestination
|
181522) (DSPTEXTURE 181524 . 181686) (\DISPLAYSTREAMINCRXPOSITION 181688 . 181975) (\SFFixDestination
|
||||||
181967 . 183145) (\SFFixClippingRegion 183147 . 185319) (\SFFixFont 185321 . 186371) (\SFFIXLINELENGTH
|
181977 . 183155) (\SFFixClippingRegion 183157 . 185329) (\SFFixFont 185331 . 186381) (\SFFIXLINELENGTH
|
||||||
186373 . 187869) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187871 . 189684) (\SFFixY 189686 . 192592))
|
186383 . 187879) (\UPDATE-SYNONYM-STREAM-LINELENGTH-FIELD 187881 . 189694) (\SFFixY 189696 . 192602))
|
||||||
(192595 194789 (\MEDW.XOFFSET 192605 . 193746) (\MEDW.YOFFSET 193748 . 194787)) (194790 202716 (
|
(192605 194799 (\MEDW.XOFFSET 192615 . 193756) (\MEDW.YOFFSET 193758 . 194797)) (194800 202726 (
|
||||||
\DSPCLIPPINGREGION.DISPLAY 194800 . 195546) (\DSPFONT.DISPLAY 195548 . 197918) (\DISPLAY.PILOTBITBLT
|
\DSPCLIPPINGREGION.DISPLAY 194810 . 195556) (\DSPFONT.DISPLAY 195558 . 197928) (\DISPLAY.PILOTBITBLT
|
||||||
197920 . 198069) (\DSPLINEFEED.DISPLAY 198071 . 198642) (\DSPLEFTMARGIN.DISPLAY 198644 . 199375) (
|
197930 . 198079) (\DSPLINEFEED.DISPLAY 198081 . 198652) (\DSPLEFTMARGIN.DISPLAY 198654 . 199385) (
|
||||||
\DSPOPERATION.DISPLAY 199377 . 200401) (\DSPRIGHTMARGIN.DISPLAY 200403 . 201248) (
|
\DSPOPERATION.DISPLAY 199387 . 200411) (\DSPRIGHTMARGIN.DISPLAY 200413 . 201258) (
|
||||||
\DSPXPOSITION.DISPLAY 201250 . 202107) (\DSPYPOSITION.DISPLAY 202109 . 202714)) (207486 212522 (
|
\DSPXPOSITION.DISPLAY 201260 . 202117) (\DSPYPOSITION.DISPLAY 202119 . 202724)) (207496 212532 (
|
||||||
TTYDISPLAYSTREAM 207496 . 212520)) (212841 213871 (DSPSCROLL 212851 . 213551) (PAGEHEIGHT 213553 .
|
TTYDISPLAYSTREAM 207506 . 212530)) (212851 213881 (DSPSCROLL 212861 . 213561) (PAGEHEIGHT 213563 .
|
||||||
213869)) (213916 216938 (\DSPRESET.DISPLAY 213926 . 216936)) (217498 238136 (\DSPPRINTCHAR 217508 .
|
213879)) (213926 216948 (\DSPRESET.DISPLAY 213936 . 216946)) (217508 238146 (\DSPPRINTCHAR 217518 .
|
||||||
225346) (\DSPPRINTCR/LF 225348 . 238134)) (238137 238729 (\TTYBACKGROUND 238147 . 238727)) (238730
|
225356) (\DSPPRINTCR/LF 225358 . 238144)) (238147 238739 (\TTYBACKGROUND 238157 . 238737)) (238740
|
||||||
242017 (DSPBACKUP 238740 . 242015)) (242201 242457 (COLORDISPLAYP 242211 . 242455)) (242458 244529 (
|
242027 (DSPBACKUP 238750 . 242025)) (242211 242467 (COLORDISPLAYP 242221 . 242465)) (242468 244539 (
|
||||||
DISPLAYBEFOREEXIT 242468 . 243294) (DISPLAYAFTERENTRY 243296 . 244527)) (244909 249441 (
|
DISPLAYBEFOREEXIT 242478 . 243304) (DISPLAYAFTERENTRY 243306 . 244537)) (244919 249451 (
|
||||||
\DSPCLIPTRANSFORMX 244919 . 245508) (\DSPCLIPTRANSFORMY 245510 . 246235) (\DSPTRANSFORMREGION 246237
|
\DSPCLIPTRANSFORMX 244929 . 245518) (\DSPCLIPTRANSFORMY 245520 . 246245) (\DSPTRANSFORMREGION 246247
|
||||||
. 246769) (\DSPUNTRANSFORMY 246771 . 247031) (\DSPUNTRANSFORMX 247033 . 247293) (
|
. 246779) (\DSPUNTRANSFORMY 246781 . 247041) (\DSPUNTRANSFORMX 247043 . 247303) (
|
||||||
\OFFSETCLIPPINGREGION 247295 . 249439)) (250747 253334 (UPDATESCREENDIMENSIONS 250757 . 251386) (
|
\OFFSETCLIPPINGREGION 247305 . 249449)) (250757 253344 (UPDATESCREENDIMENSIONS 250767 . 251396) (
|
||||||
\CreateScreenBitMap 251388 . 253332)) (253893 267052 (\CoerceToDisplayDevice 253903 . 254316) (
|
\CreateScreenBitMap 251398 . 253342)) (253903 267062 (\CoerceToDisplayDevice 253913 . 254326) (
|
||||||
\CREATEDISPLAY 254318 . 256158) (DISPLAYSTREAMINIT 256160 . 259304) (\STARTDISPLAY 259306 . 262217) (
|
\CREATEDISPLAY 254328 . 256168) (DISPLAYSTREAMINIT 256170 . 259314) (\STARTDISPLAY 259316 . 262227) (
|
||||||
\MOVE.WINDOWS.ONTO.SCREEN 262219 . 264411) (\UPDATE.PBT.RASTERWIDTHS 264413 . 266195) (\STOPDISPLAY
|
\MOVE.WINDOWS.ONTO.SCREEN 262229 . 264421) (\UPDATE.PBT.RASTERWIDTHS 264423 . 266205) (\STOPDISPLAY
|
||||||
266197 . 266689) (\DEFINEDISPLAYINFO 266691 . 267050)) (267660 268421 (INITIALIZEDISPLAYSTREAMS 267670
|
266207 . 266699) (\DEFINEDISPLAYINFO 266701 . 267060)) (267670 268431 (INITIALIZEDISPLAYSTREAMS 267680
|
||||||
. 268419)))))
|
. 268429)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
@@ -1,10 +1,10 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:49" ("compiled on "
|
(FILECREATED " 6-Sep-2021 16:23:29" ("compiled on "
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;9) " 5-Sep-2021 08:04:36"
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;10) " 6-Sep-2021 15:59:15"
|
||||||
"COMPILE-FILEd" in "FULL 5-Sep-2021 ..." dated " 5-Sep-2021 08:04:43")
|
"COMPILE-FILEd" in "FULL 6-Sep-2021 ..." dated " 6-Sep-2021 15:59:21")
|
||||||
(FILECREATED " 5-Sep-2021 08:25:49" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;9
|
(FILECREATED " 8-Aug-2021 00:19:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7
|
||||||
268917 changes to%: (FNS \CREATEDISPLAY) previous date%: " 8-Aug-2021 00:19:22"
|
268927 changes to%: (FNS READBITMAP) previous date%: " 1-Aug-2021 23:41:37"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;8)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6)
|
||||||
(RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE
|
(RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE
|
||||||
DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ;
|
DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ;
|
||||||
"User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION
|
"User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION
|
||||||
@@ -187,7 +187,7 @@ BLTCHAR :D8
|
|||||||
0
|
0
|
||||||
@g h b É0 _AO
|
@g h b É0 _AO
|
||||||
_BO
|
_BO
|
||||||
_O¢±þºd¢±þµ ` ²3` ´h@
|
_O¢±þºd¢±þµ ` ²3` ´h@
|
||||||
` ð_ ²` È _ ¿` jÍ ¿ ¿@` ð³h@
|
` ð_ ²` È _ ¿` jÍ ¿ ¿@` ð³h@
|
||||||
W –@ ¿O ÉOOCû_¿O ž ¿` O Í O (739 \SOFTCURSORUPCURRENT 711 \TOTOPWDS 701 DSPDESTINATION 684 \SOFTCURSORDOWN 650 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
|
W –@ ¿O ÉOOCû_¿O ž ¿` O Í O (739 \SOFTCURSORUPCURRENT 711 \TOTOPWDS 701 DSPDESTINATION 684 \SOFTCURSORDOWN 650 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR)
|
||||||
(745 \EM.DISPINTERRUPT 719 \DISPLAYDATA 691 \TOPWDS 675 \EM.DISPINTERRUPT 665 \EM.DISPINTERRUPT 655 \CURSORDESTINATION 641 \SOFTCURSORUPP 634 \SOFTCURSORP 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
|
(745 \EM.DISPINTERRUPT 719 \DISPLAYDATA 691 \TOPWDS 675 \EM.DISPINTERRUPT 665 \EM.DISPINTERRUPT 655 \CURSORDESTINATION 641 \SOFTCURSORUPP 634 \SOFTCURSORP 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP)
|
||||||
@@ -274,7 +274,7 @@ OPPOSITESHADE :D8
|
|||||||
MAXIMUMCOLOR :D8
|
MAXIMUMCOLOR :D8
|
||||||
(L (0 BITSPERPIXEL)) k@çkÙ NIL
|
(L (0 BITSPERPIXEL)) k@çkÙ NIL
|
||||||
NIL
|
NIL
|
||||||
()
|
()
|
||||||
OPPOSITECOLOR :D8
|
OPPOSITECOLOR :D8
|
||||||
(I 1 BITSPERPIXEL I 0 COLOR)
|
(I 1 BITSPERPIXEL I 0 COLOR)
|
||||||
A @Ù (5 MAXIMUMCOLOR)
|
A @Ù (5 MAXIMUMCOLOR)
|
||||||
@@ -421,11 +421,11 @@ Q
|
|||||||
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
(L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) ð0C È[C È\j]d^@ È_C ÈZG²QMG_¿dOñ¢¿O½NG_¿dOñ¢¿O¾JGGØ_¿dOñ’¿OºKGGØ_¿dOñ’¿O»DdMñ¡¿M½EdNñ¡¿N¾F™DFØdJñ‘¿JºGšEGØdKñ‘¿K»DAÙXEBÙYGdjñ¡¿jMHÙ_¿dOñ¢¿O½Gdjñ¡¿jNIÙ_¿dOñ¢¿O¾@ÈJHÙ_ ¿dO ñ’¿O GFØ_ ¿dO ñ’¿O º@ÈKIÙ_ ¿dO ñ’¿O GGØ_"¿dO"ñ’¿O"[JMñ´dNñ¡hGg ð²WGµnÿÿ°K3 ›Gnÿÿånÿÿæ°<Lkð©GL
|
||||||
µ.Gdà ² ¿G` µld
|
µ.Gdà ² ¿G` µld
|
||||||
|
|
||||||
„ b¿OdL𢱠ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸Gg ðšGL
|
„ b¿OdL𢱠ö¿Ldlð<>¿Màà½JààºHàà°*lðŸMààà½JàààºHààà°Llð²%MlÚ½JlÚºHlÚ¸Gg ðšGL
|
||||||
b¿`KNÙ_&¿JMÙ_(¿C ÈKIØÙ_*¿MHØ_,¿@ ÈKÙ_.¿M_0¿` O(Í¿` O&Í ¿Gg ð²!` @O0O.CO,O*O(O&GG
|
b¿`KNÙ_&¿JMÙ_(¿C ÈKIØÙ_*¿MHØ_,¿@ ÈKÙ_.¿M_0¿` O(Í¿` O&Í ¿Gg ð²!` @O0O.CO,O*O(O&GG
|
||||||
° ` @O0O.CO,O*O&GGG
|
° ` @O0O.CO,O*O&GGG
|
||||||
± ”k𢱠„G²Gg ð¬o G
|
± ”k𢱠„G²Gg ð¬o G
|
||||||
¿@KNÙ_&¿JMÙ_(¿NIØ_*¿MHØ_,¿G›Gdg ð² ¿@MNCO,O*O(O&jL L
|
¿@KNÙ_&¿JMÙ_(¿NIØ_*¿MHØ_,¿G›Gdg ð² ¿@MNCO,O*O(O&jL L
|
||||||
° g ð³Gdg ð«g 𥠿‰o i (795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
|
° g ð³Gdg ð«g 𥠿‰o i (795 ERROR 782 SHOULDNT 750 \BWTOCOLORBLT 743 MAXIMUMCOLOR 681 ERROR 645 \BITBLTSUB 614 \BITBLT.MERGE 486 COLORTEXTUREFROMCOLOR# 395 \ILLEGAL.ARG 389 INVERT.TEXTURE.BITMAP 379 BITMAPCREATE 349 COLORNUMBERP)
|
||||||
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
|
(775 ERASE 768 INVERT 757 PAINT 720 REPLACE 667 INPUT 621 \SYSPILOTBBT 590 \SYSPILOTBBT 582 MERGE 570 PILOTBBT 565 \SYSPILOTBBT 555 PILOTBBT 550 \SYSPILOTBBT 534 BITMAP 513 BITMAP 476 MERGE 384 \BBSCRATCHTEXTURE 369 \BBSCRATCHTEXTURE 359 BITMAP 310 MERGE 43 BITMAP 33 BITMAP 20 BITMAP 11 BITMAP)
|
||||||
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
|
( 790 "not implemented to blt between bitmaps of different pixel size." 674 "SourceType not implemented from B&W to color bitmaps.")
|
||||||
|
|||||||
241
sources/LLETHER
241
sources/LLETHER
@@ -1,11 +1,10 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:17"
|
(FILECREATED " 3-May-2021 23:13:56" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;4 139646
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;2 139621
|
|
||||||
|
|
||||||
changes to%: (FNS \ETHERINIT)
|
changes to%: (FNS \ETHEREVENTFN \ETHER-AVAILABLE)
|
||||||
|
(VARS LLETHERCOMS)
|
||||||
|
|
||||||
previous date%: " 3-May-2021 23:13:56"
|
previous date%: " 2-May-2021 12:37:02" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;3)
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;1)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -17,25 +16,25 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(RPAQQ LLETHERCOMS
|
(RPAQQ LLETHERCOMS
|
||||||
[(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
[(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||||
LLNSDECLS))
|
LLNSDECLS))
|
||||||
[COMS (* ;
|
[COMS (* ;
|
||||||
"Stuff that should be somewhere else!")
|
"Stuff that should be somewhere else!")
|
||||||
(INITVARS (ERRORMESSAGESTREAM T)
|
(INITVARS (ERRORMESSAGESTREAM T)
|
||||||
(PROMPTWINDOW T))
|
(PROMPTWINDOW T))
|
||||||
(GLOBALVARS ERRORMESSAGESTREAM PROMPTWINDOW)
|
(GLOBALVARS ERRORMESSAGESTREAM PROMPTWINDOW)
|
||||||
(COMS (* ;
|
(COMS (* ;
|
||||||
"Queue management for data which can be chain-linked through the first cell")
|
"Queue management for data which can be chain-linked through the first cell")
|
||||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS SYSQUEUE QABLEITEM)
|
(DECLARE%: DONTCOPY (EXPORT (RECORDS SYSQUEUE QABLEITEM)
|
||||||
(MACROS \QUEUEHEAD)))
|
(MACROS \QUEUEHEAD)))
|
||||||
(INITRECORDS SYSQUEUE)
|
(INITRECORDS SYSQUEUE)
|
||||||
(SYSRECORDS SYSQUEUE)
|
(SYSRECORDS SYSQUEUE)
|
||||||
(FNS CANONICAL.HOSTNAME \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]
|
||||||
(COMS (* ; "General packet management")
|
(COMS (* ; "General packet management")
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
|
|
||||||
(* ;; "Skeletal ether packet. Other users define with respect to")
|
(* ;; "Skeletal ether packet. Other users define with respect to")
|
||||||
|
|
||||||
(EXPORT (RECORDS ETHERPACKET ETHERAUX)
|
(EXPORT (RECORDS ETHERPACKET ETHERAUX)
|
||||||
(CONSTANTS \EPT.PUP \EPT.XIP \3MBTYPE.XIP \10MBTYPE.XIP \EPT.10TO3
|
(CONSTANTS \EPT.PUP \EPT.XIP \3MBTYPE.XIP \10MBTYPE.XIP \EPT.10TO3
|
||||||
@@ -58,7 +57,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
\NSADDRESS.DEFPRINT \NSADDRESS.PRINT.DECIMAL \LOADNSHOSTNUMBER \STORENSHOSTNUMBER
|
\NSADDRESS.DEFPRINT \NSADDRESS.PRINT.DECIMAL \LOADNSHOSTNUMBER \STORENSHOSTNUMBER
|
||||||
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 \ETHER-AVAILABLE \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS
|
(FNS \ETHERINIT \ETHEREVENTFN \ETHER-AVAILABLE \TIME.NOT.SET \SETETHERFLAGS \FLUSHNDBS
|
||||||
\FLUSH.NDB.QUEUE)
|
\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
|
||||||
@@ -71,7 +70,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\ETHERINIT)
|
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\ETHERINIT)
|
||||||
(MOVD? 'NILL 'BLOCK)
|
(MOVD? 'NILL 'BLOCK)
|
||||||
(MOVD? 'NILL '\STASH.PASSWORDS]
|
(MOVD? 'NILL '\STASH.PASSWORDS]
|
||||||
(COMS (* ; "Assorted routing stuff")
|
(COMS (* ; "Assorted routing stuff")
|
||||||
(DECLARE%: DONTCOPY (EXPORT (RECORDS NDB ROUTING))
|
(DECLARE%: DONTCOPY (EXPORT (RECORDS NDB ROUTING))
|
||||||
(CONSTANTS \RT.INFINITY)
|
(CONSTANTS \RT.INFINITY)
|
||||||
(MACROS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET BROADCASTP
|
(MACROS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET BROADCASTP
|
||||||
@@ -84,7 +83,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(SYSRECORDS NDB)
|
(SYSRECORDS NDB)
|
||||||
(FNS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET)
|
(FNS ENCAPSULATE.ETHERPACKET TRANSMIT.ETHERPACKET)
|
||||||
|
|
||||||
(* ;; "Routing table management. Table is naked array of specified size (choices are 8, 16, 32, 64, based on availability of pointer hunks for those sizes). These are global vars rather than constants so you can play with them (but you'd better restart ether immediately).")
|
(* ;; "Routing table management. Table is naked array of specified size (choices are 8, 16, 32, 64, based on availability of pointer hunks for those sizes). These are global vars rather than constants so you can play with them (but you'd better restart ether immediately).")
|
||||||
|
|
||||||
(FNS \AGE.ROUTING.TABLE \ADD.ROUTING.TABLE.ENTRY \CLEAR.ROUTING.TABLE
|
(FNS \AGE.ROUTING.TABLE \ADD.ROUTING.TABLE.ENTRY \CLEAR.ROUTING.TABLE
|
||||||
\MAP.ROUTING.TABLE PRINTROUTINGTABLE \ROUTINGTABLE.INFOHOOK)
|
\MAP.ROUTING.TABLE PRINTROUTINGTABLE \ROUTINGTABLE.INFOHOOK)
|
||||||
@@ -103,29 +102,29 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(\LOCALNDBS)
|
(\LOCALNDBS)
|
||||||
(\NSFLG)
|
(\NSFLG)
|
||||||
(\IPFLG)))
|
(\IPFLG)))
|
||||||
(COMS (* ; "10 to 3 translation ugliness")
|
(COMS (* ; "10 to 3 translation ugliness")
|
||||||
(FNS \TRANSLATE.10TO3 \NOTE.10TO3 \HANDLE.RAW.10TO3)
|
(FNS \TRANSLATE.10TO3 \NOTE.10TO3 \HANDLE.RAW.10TO3)
|
||||||
(DECLARE%: DONTCOPY (RECORDS ETHERTRANS)
|
(DECLARE%: DONTCOPY (RECORDS ETHERTRANS)
|
||||||
(CONSTANTS \TRANS.OP.REQUEST \TRANS.OP.RESPONSE \TRANS.DATALENGTH)
|
(CONSTANTS \TRANS.OP.REQUEST \TRANS.OP.RESPONSE \TRANS.DATALENGTH)
|
||||||
|
|
||||||
(* ;; "The \TRANS.DATALENGTH includes the space for 10TO3OPERATION and two 3-word/1-word translation pairs.")
|
(* ;; "The \TRANS.DATALENGTH includes the space for 10TO3OPERATION and two 3-word/1-word translation pairs.")
|
||||||
))
|
))
|
||||||
(COMS (* ; "Printing routines for packets")
|
(COMS (* ; "Printing routines for packets")
|
||||||
(FNS PRINTPACKET \MAYBEPRINTPACKET PRINT10TO3 PRINTPACKETDATA PRINTPACKETQUEUE
|
(FNS PRINTPACKET \MAYBEPRINTPACKET PRINT10TO3 PRINTPACKETDATA PRINTPACKETQUEUE
|
||||||
TIME.SINCE.PACKET MAKE-NETWORK-TRACE-WINDOW \CHANGE.ETHER.TRACING)
|
TIME.SINCE.PACKET MAKE-NETWORK-TRACE-WINDOW \CHANGE.ETHER.TRACING)
|
||||||
(INITVARS (\RAWTRACING))
|
(INITVARS (\RAWTRACING))
|
||||||
(ADDVARS (\PACKET.PRINTERS (512 . PRINTPUP)
|
(ADDVARS (\PACKET.PRINTERS (512 . PRINTPUP)
|
||||||
(1537 . PRINT10TO3)))
|
(1537 . PRINT10TO3)))
|
||||||
(GLOBALVARS \RAWTRACING \PACKET.PRINTERS PUPTRACEFILE XIPTRACEFILE \RCLKMILLISECOND))
|
(GLOBALVARS \RAWTRACING \PACKET.PRINTERS PUPTRACEFILE XIPTRACEFILE \RCLKMILLISECOND))
|
||||||
(COMS (* ; "For PUP/XIPTRACETIME, functions to convert time from internal ticks to decimal fractions of a second.")
|
(COMS (* ; "For PUP/XIPTRACETIME, functions to convert time from internal ticks to decimal fractions of a second.")
|
||||||
(FNS \CENTICLOCK)
|
(FNS \CENTICLOCK)
|
||||||
[VARS (\CENTICLOCKFACTOR)
|
[VARS (\CENTICLOCKFACTOR)
|
||||||
(\CENTICLOCKBOX (NCREATE 'FIXP]
|
(\CENTICLOCKBOX (NCREATE 'FIXP]
|
||||||
(ADDVARS (\SYSTEMCACHEVARS \CENTICLOCKFACTOR))
|
(ADDVARS (\SYSTEMCACHEVARS \CENTICLOCKFACTOR))
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \CENTICLOCKFACTOR \CENTICLOCKBOX)
|
(DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \CENTICLOCKFACTOR \CENTICLOCKBOX)
|
||||||
(RECORDS CENTICLOCK)))
|
(RECORDS CENTICLOCK)))
|
||||||
(COMS (* ;
|
(COMS (* ;
|
||||||
"3MB stuff, which is not needed in DandeLion")
|
"3MB stuff, which is not needed in DandeLion")
|
||||||
(FNS \3MBGETPACKET \3MB.CREATENDB \3MBSENDPACKET \3MBWATCHER \3MBENCAPSULATE
|
(FNS \3MBGETPACKET \3MB.CREATENDB \3MBSENDPACKET \3MBWATCHER \3MBENCAPSULATE
|
||||||
\3MB.BROADCASTP \3MBFLUSH)
|
\3MB.BROADCASTP \3MBFLUSH)
|
||||||
(INITVARS (\MAXWATCHERGETS 5))
|
(INITVARS (\MAXWATCHERGETS 5))
|
||||||
@@ -133,12 +132,12 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(EXPORT (MACROS \SERIALNUMBER))
|
(EXPORT (MACROS \SERIALNUMBER))
|
||||||
(CONSTANTS \3MBENCAPSULATION.WORDS \3MBTYPE.PUP)
|
(CONSTANTS \3MBENCAPSULATION.WORDS \3MBTYPE.PUP)
|
||||||
(GLOBALVARS \MAXWATCHERGETS *MAXIMUM-PACKET-SIZE*)))
|
(GLOBALVARS \MAXWATCHERGETS *MAXIMUM-PACKET-SIZE*)))
|
||||||
(COMS (* ; "Debugging")
|
(COMS (* ; "Debugging")
|
||||||
(FNS ASSURE.ETHER.ON INITPUPLEVEL1 TURN.ON.ETHER RESTART.ETHER TURN.OFF.ETHER
|
(FNS ASSURE.ETHER.ON INITPUPLEVEL1 TURN.ON.ETHER RESTART.ETHER TURN.OFF.ETHER
|
||||||
PRINTWORDS)
|
PRINTWORDS)
|
||||||
(VARS ROUTINGINFOMACRO)
|
(VARS ROUTINGINFOMACRO)
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)))
|
(DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)))
|
||||||
(COMS (* ; "Opcodes")
|
(COMS (* ; "Opcodes")
|
||||||
(FNS \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO)
|
(FNS \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO)
|
||||||
(DECLARE%: DONTCOPY (CONSTANTS * D0DEVICES)
|
(DECLARE%: DONTCOPY (CONSTANTS * D0DEVICES)
|
||||||
(EXPORT (PROP DOPVAL \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO])
|
(EXPORT (PROP DOPVAL \DEVICE.INPUT \DEVICE.OUTPUT \D0.STARTIO])
|
||||||
@@ -174,13 +173,13 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(SYSQUEUETAIL POINTER)))
|
(SYSQUEUETAIL POINTER)))
|
||||||
|
|
||||||
(BLOCKRECORD QABLEITEM ((NIL BITS 4)
|
(BLOCKRECORD QABLEITEM ((NIL BITS 4)
|
||||||
(QLINK POINTER) (* ;
|
(QLINK POINTER) (* ;
|
||||||
"Link to next thing in queue always in first pointer of datum, independent of what the datum is")
|
"Link to next thing in queue always in first pointer of datum, independent of what the datum is")
|
||||||
)
|
)
|
||||||
(BLOCKRECORD QABLEITEM ((NIL BITS 4)
|
(BLOCKRECORD QABLEITEM ((NIL BITS 4)
|
||||||
(LINK POINTER)
|
(LINK POINTER)
|
||||||
(* ;
|
(* ;
|
||||||
"Let's also be able to call it a LINK")
|
"Let's also be able to call it a LINK")
|
||||||
)))
|
)))
|
||||||
)
|
)
|
||||||
|
|
||||||
@@ -383,38 +382,38 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(DATATYPE ETHERPACKET ((NIL BYTE)
|
(DATATYPE ETHERPACKET ((NIL BYTE)
|
||||||
(EPLINK POINTER) (* ; "For queue maintenence")
|
(EPLINK POINTER) (* ; "For queue maintenence")
|
||||||
(EPFLAGS BYTE) (* ;
|
(EPFLAGS BYTE) (* ;
|
||||||
"optional flags for some applications")
|
"optional flags for some applications")
|
||||||
(EPUSERFIELD POINTER) (* ;
|
(EPUSERFIELD POINTER) (* ;
|
||||||
"Arbitrary pointer for applications")
|
"Arbitrary pointer for applications")
|
||||||
(NIL BYTE)
|
(NIL BYTE)
|
||||||
(EPPLIST POINTER) (* ;
|
(EPPLIST POINTER) (* ;
|
||||||
"Extra field for use as an A-list for properties")
|
"Extra field for use as an A-list for properties")
|
||||||
(EPTRANSMITTING FLAG) (* ;
|
(EPTRANSMITTING FLAG) (* ;
|
||||||
"True while packet is being transmitted and hence cannot be reused")
|
"True while packet is being transmitted and hence cannot be reused")
|
||||||
(EPRECEIVING FLAG) (* ;
|
(EPRECEIVING FLAG) (* ;
|
||||||
"True when a packet has been seen at the head of the network's input queue at least once")
|
"True when a packet has been seen at the head of the network's input queue at least once")
|
||||||
(NIL BITS 6)
|
(NIL BITS 6)
|
||||||
(EPREQUEUE POINTER) (* ;
|
(EPREQUEUE POINTER) (* ;
|
||||||
"Where to requeue this packet after transmission")
|
"Where to requeue this packet after transmission")
|
||||||
(NIL BYTE)
|
(NIL BYTE)
|
||||||
(EPSOCKET POINTER)
|
(EPSOCKET POINTER)
|
||||||
(NIL BYTE)
|
(NIL BYTE)
|
||||||
(EPNETWORK POINTER)
|
(EPNETWORK POINTER)
|
||||||
(EPTYPE WORD) (* ;
|
(EPTYPE WORD) (* ;
|
||||||
"Type of packet to be encapsulated (PUP or XIP or 10TO3)")
|
"Type of packet to be encapsulated (PUP or XIP or 10TO3)")
|
||||||
(NIL WORD)
|
(NIL WORD)
|
||||||
(EPTIMESTAMP FIXP) (* ;
|
(EPTIMESTAMP FIXP) (* ;
|
||||||
"Gets RCLK value when transmitted/received")
|
"Gets RCLK value when transmitted/received")
|
||||||
(EPREQUEUEFN POINTER) (* ; "FN to perform requeueing")
|
(EPREQUEUEFN POINTER) (* ; "FN to perform requeueing")
|
||||||
(NIL 4 WORD) (* ; "Space for expansion")
|
(NIL 4 WORD) (* ; "Space for expansion")
|
||||||
(* ;
|
(* ;
|
||||||
"Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")
|
"Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")
|
||||||
(EPENCAPSULATION 8 WORD) (* ;
|
(EPENCAPSULATION 8 WORD) (* ;
|
||||||
"10mb encapsulation, or 3mb encapsulation with padding")
|
"10mb encapsulation, or 3mb encapsulation with padding")
|
||||||
(EPBODY 289 WORD) (* ;
|
(EPBODY 289 WORD) (* ;
|
||||||
"Body of packet, header up to 16 words plus data up to 546 bytes")
|
"Body of packet, header up to 16 words plus data up to 546 bytes")
|
||||||
))
|
))
|
||||||
|
|
||||||
(ACCESSFNS ETHERAUX ((AUXPTR (CDR (ASSOC 'AUXPTR (fetch EPPLIST of DATUM)))
|
(ACCESSFNS ETHERAUX ((AUXPTR (CDR (ASSOC 'AUXPTR (fetch EPPLIST of DATUM)))
|
||||||
@@ -1707,39 +1706,39 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(DATATYPE NDB ((NETTYPE BYTE) (* ; "10 or 3 for now")
|
(DATATYPE NDB ((NETTYPE BYTE) (* ; "10 or 3 for now")
|
||||||
(NDBNEXT POINTER) (* ; "Link to next NDB")
|
(NDBNEXT POINTER) (* ; "Link to next NDB")
|
||||||
(NDBPUPNET# BYTE) (* ;
|
(NDBPUPNET# BYTE) (* ;
|
||||||
"Pup number of this net. May be different from NS net number, though not in Xerox world")
|
"Pup number of this net. May be different from NS net number, though not in Xerox world")
|
||||||
(NDBNSNET# POINTER) (* ;
|
(NDBNSNET# POINTER) (* ;
|
||||||
"Can be 32-bits, so might as well leave its box around")
|
"Can be 32-bits, so might as well leave its box around")
|
||||||
(NDBTASK# BYTE) (* ; "Task # of this network")
|
(NDBTASK# BYTE) (* ; "Task # of this network")
|
||||||
(NDBBROADCASTP POINTER) (* ;
|
(NDBBROADCASTP POINTER) (* ;
|
||||||
"Function that returns true if packet is of broadcast type")
|
"Function that returns true if packet is of broadcast type")
|
||||||
(NDBPUPHOST# BYTE) (* ;
|
(NDBPUPHOST# BYTE) (* ;
|
||||||
"My pup address on this net. NS address is global to all nets, so not needed here")
|
"My pup address on this net. NS address is global to all nets, so not needed here")
|
||||||
(NDBTRANSMITTER POINTER) (* ;
|
(NDBTRANSMITTER POINTER) (* ;
|
||||||
"(NDB PACKET) -- fn to send a raw packet on this net. returns NIL on failure")
|
"(NDB PACKET) -- fn to send a raw packet on this net. returns NIL on failure")
|
||||||
(NIL BYTE)
|
(NIL BYTE)
|
||||||
(NDBENCAPSULATOR POINTER) (* ;
|
(NDBENCAPSULATOR POINTER) (* ;
|
||||||
"(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")
|
"(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")
|
||||||
(NDBCSB POINTER) (* ; "Pointer to CSB for this network")
|
(NDBCSB POINTER) (* ; "Pointer to CSB for this network")
|
||||||
(NDBIQLENGTH BYTE)
|
(NDBIQLENGTH BYTE)
|
||||||
(NDBIQ POINTER) (* ;
|
(NDBIQ POINTER) (* ;
|
||||||
"Queue of empty packets for receiver")
|
"Queue of empty packets for receiver")
|
||||||
(NDBTQ POINTER) (* ; "Queue of packets to transmit")
|
(NDBTQ POINTER) (* ; "Queue of packets to transmit")
|
||||||
(NDBTRANSLATIONS POINTER) (* ;
|
(NDBTRANSLATIONS POINTER) (* ;
|
||||||
"Cache of translations, 3:10 or 10:3 according to network")
|
"Cache of translations, 3:10 or 10:3 according to network")
|
||||||
(NDBETHERFLUSHER POINTER) (* ; "Turns off this ether. Args NDB")
|
(NDBETHERFLUSHER POINTER) (* ; "Turns off this ether. Args NDB")
|
||||||
(NDBWATCHER POINTER)
|
(NDBWATCHER POINTER)
|
||||||
(NDBCANHEARSELF POINTER) (* ;
|
(NDBCANHEARSELF POINTER) (* ;
|
||||||
"True if receiver can hear packets sent by transmitter")
|
"True if receiver can hear packets sent by transmitter")
|
||||||
(NDBIPNET# POINTER)
|
(NDBIPNET# POINTER)
|
||||||
(NDBIPHOST# POINTER)
|
(NDBIPHOST# POINTER)
|
||||||
(NDBPUPTYPE WORD) (* ;
|
(NDBPUPTYPE WORD) (* ;
|
||||||
"The packet encapsulation of PUP on this net")
|
"The packet encapsulation of PUP on this net")
|
||||||
(NIL WORD)
|
(NIL WORD)
|
||||||
(NIL POINTER) (* ; "Spares")
|
(NIL POINTER) (* ; "Spares")
|
||||||
))
|
))
|
||||||
|
|
||||||
(RECORD ROUTING (RTNET# RTHOPCOUNT RTGATEWAY# RTNDB RTTIMER RTRECENT))
|
(RECORD ROUTING (RTNET# RTHOPCOUNT RTGATEWAY# RTNDB RTTIMER RTRECENT))
|
||||||
@@ -2233,14 +2232,14 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
|
|
||||||
(ACCESSFNS ETHERTRANS [(TRANSBODY (LOCF (fetch (ETHERPACKET EPBODY) of DATUM]
|
(ACCESSFNS ETHERTRANS [(TRANSBODY (LOCF (fetch (ETHERPACKET EPBODY) of DATUM]
|
||||||
[BLOCKRECORD TRANSBODY ((TRANSOPERATION WORD)
|
[BLOCKRECORD TRANSBODY ((TRANSOPERATION WORD)
|
||||||
(* ; "Request or response")
|
(* ; "Request or response")
|
||||||
(BASETRANSNSHOST 3 WORD)
|
(BASETRANSNSHOST 3 WORD)
|
||||||
(* ; "Known or desired NS address")
|
(* ; "Known or desired NS address")
|
||||||
(TRANSPUPHOST BYTE)
|
(TRANSPUPHOST BYTE)
|
||||||
(* ; "Known or desired PUP address")
|
(* ; "Known or desired PUP address")
|
||||||
(NIL BYTE) (* ; "Padding")
|
(NIL BYTE) (* ; "Padding")
|
||||||
(BASETRANSSENDERNSHOST 3 WORD)
|
(BASETRANSSENDERNSHOST 3 WORD)
|
||||||
(* ; "Sender's info")
|
(* ; "Sender's info")
|
||||||
(TRANSSENDERPUPHOST BYTE)
|
(TRANSSENDERPUPHOST BYTE)
|
||||||
(NIL BYTE))
|
(NIL BYTE))
|
||||||
[ACCESSFNS BASETRANSNSHOST ((TRANSNSHOST (\LOADNSHOSTNUMBER
|
[ACCESSFNS BASETRANSNSHOST ((TRANSNSHOST (\LOADNSHOSTNUMBER
|
||||||
@@ -2253,8 +2252,8 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
NEWVALUE]
|
NEWVALUE]
|
||||||
[ACCESSFNS ETHERTRANS
|
[ACCESSFNS ETHERTRANS
|
||||||
([TRANSNSADDRESS
|
([TRANSNSADDRESS
|
||||||
(PROGN (* ;
|
(PROGN (* ;
|
||||||
"Kludge to get a pointer that looks like a full ns address")
|
"Kludge to get a pointer that looks like a full ns address")
|
||||||
(\ADDBASE DATUM (CONSTANT (+ (INDEXF (FETCH
|
(\ADDBASE DATUM (CONSTANT (+ (INDEXF (FETCH
|
||||||
(ETHERPACKET EPBODY)
|
(ETHERPACKET EPBODY)
|
||||||
of T))
|
of T))
|
||||||
@@ -2761,20 +2760,20 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(ACCESSFNS 3MBENCAPSULATION [(3MBENCAPSTART (LOCF (fetch (ETHERPACKET EPENCAPSULATION)
|
(ACCESSFNS 3MBENCAPSULATION [(3MBENCAPSTART (LOCF (fetch (ETHERPACKET EPENCAPSULATION)
|
||||||
of DATUM]
|
of DATUM]
|
||||||
(BLOCKRECORD 3MBENCAPSTART ((NIL 5 WORD)
|
(BLOCKRECORD 3MBENCAPSTART ((NIL 5 WORD)
|
||||||
(* ; "waste space")
|
(* ; "waste space")
|
||||||
(3MBLENGTH WORD)
|
(3MBLENGTH WORD)
|
||||||
(* ;
|
(* ;
|
||||||
"Length of packet in words, starting at the next word")
|
"Length of packet in words, starting at the next word")
|
||||||
(3MBDESTHOST BYTE)
|
(3MBDESTHOST BYTE)
|
||||||
(* ; "Immediate destination host")
|
(* ; "Immediate destination host")
|
||||||
(3MBSOURCEHOST BYTE)
|
(3MBSOURCEHOST BYTE)
|
||||||
(* ; "Us")
|
(* ; "Us")
|
||||||
(3MBTYPE WORD)
|
(3MBTYPE WORD)
|
||||||
(* ;
|
(* ;
|
||||||
"Type of packet -- PUP or XIP or 10TO3")
|
"Type of packet -- PUP or XIP or 10TO3")
|
||||||
)
|
)
|
||||||
[ACCESSFNS 3MBLENGTH ((3MBBASE (LOCF DATUM]
|
[ACCESSFNS 3MBLENGTH ((3MBBASE (LOCF DATUM]
|
||||||
(* ; "What to hand to BCPL")
|
(* ; "What to hand to BCPL")
|
||||||
)
|
)
|
||||||
(TYPE? (type? ETHERPACKET DATUM)))
|
(TYPE? (type? ETHERPACKET DATUM)))
|
||||||
|
|
||||||
@@ -2951,30 +2950,30 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
|
|||||||
(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 2021))
|
1992 1993 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (10767 19223 (CANONICAL.HOSTNAME 10777 . 12366) (\ENQUEUE 12368 . 15013) (\DEQUEUE 15015
|
(FILEMAP (NIL (10792 19248 (CANONICAL.HOSTNAME 10802 . 12391) (\ENQUEUE 12393 . 15038) (\DEQUEUE 15040
|
||||||
. 16342) (\QUEUELENGTH 16344 . 16644) (\ONQUEUE 16646 . 16912) (\UNQUEUE 16914 . 19221)) (52924 56790
|
. 16367) (\QUEUELENGTH 16369 . 16669) (\ONQUEUE 16671 . 16937) (\UNQUEUE 16939 . 19246)) (52949 56815
|
||||||
(\ALLOCATE.ETHERPACKET 52934 . 53975) (\RELEASE.ETHERPACKET 53977 . 55050) (RELEASE.PUP 55052 . 55197
|
(\ALLOCATE.ETHERPACKET 52959 . 54000) (\RELEASE.ETHERPACKET 54002 . 55075) (RELEASE.PUP 55077 . 55222
|
||||||
) (\FLUSH.PACKET.QUEUE 55199 . 55550) (\REQUEUE.ETHERPACKET 55552 . 56066) (\EP.PUT.AUX 56068 . 56788)
|
) (\FLUSH.PACKET.QUEUE 55224 . 55575) (\REQUEUE.ETHERPACKET 55577 . 56091) (\EP.PUT.AUX 56093 . 56813)
|
||||||
) (57364 68745 (\SETLOCALNSNUMBERS 57374 . 58759) (\LOADNSADDRESS 58761 . 59053) (\STORENSADDRESS
|
) (57389 68770 (\SETLOCALNSNUMBERS 57399 . 58784) (\LOADNSADDRESS 58786 . 59078) (\STORENSADDRESS
|
||||||
59055 . 59236) (\PRINTNSADDRESS 59238 . 60321) (\NSADDRESS.DEFPRINT 60323 . 65268) (
|
59080 . 59261) (\PRINTNSADDRESS 59263 . 60346) (\NSADDRESS.DEFPRINT 60348 . 65293) (
|
||||||
\NSADDRESS.PRINT.DECIMAL 65270 . 67401) (\LOADNSHOSTNUMBER 67403 . 68032) (\STORENSHOSTNUMBER 68034 .
|
\NSADDRESS.PRINT.DECIMAL 65295 . 67426) (\LOADNSHOSTNUMBER 67428 . 68057) (\STORENSHOSTNUMBER 68059 .
|
||||||
68438) (PRINTNSHOSTNUMBER 68440 . 68743)) (68858 74606 (\ETHERINIT 68868 . 69438) (\ETHEREVENTFN 69440
|
68463) (PRINTNSHOSTNUMBER 68465 . 68768)) (68883 74631 (\ETHERINIT 68893 . 69463) (\ETHEREVENTFN 69465
|
||||||
. 71972) (\ETHER-AVAILABLE 71974 . 72132) (\TIME.NOT.SET 72134 . 72460) (\SETETHERFLAGS 72462 . 72913
|
. 71997) (\ETHER-AVAILABLE 71999 . 72157) (\TIME.NOT.SET 72159 . 72485) (\SETETHERFLAGS 72487 . 72938
|
||||||
) (\FLUSHNDBS 72915 . 74093) (\FLUSH.NDB.QUEUE 74095 . 74604)) (74607 77899 (\CHECKSUM 74617 . 76549)
|
) (\FLUSHNDBS 72940 . 74118) (\FLUSH.NDB.QUEUE 74120 . 74629)) (74632 77924 (\CHECKSUM 74642 . 76574)
|
||||||
(\HANDLE.RAW.OTHER 76551 . 76906) (\HANDLE.RAW.PACKET 76908 . 77420) (\ADD.PACKET.FILTER 77422 . 77654
|
(\HANDLE.RAW.OTHER 76576 . 76931) (\HANDLE.RAW.PACKET 76933 . 77445) (\ADD.PACKET.FILTER 77447 . 77679
|
||||||
) (\DEL.PACKET.FILTER 77656 . 77897)) (85732 86257 (ENCAPSULATE.ETHERPACKET 85742 . 86014) (
|
) (\DEL.PACKET.FILTER 77681 . 77922)) (85757 86282 (ENCAPSULATE.ETHERPACKET 85767 . 86039) (
|
||||||
TRANSMIT.ETHERPACKET 86016 . 86255)) (86545 99141 (\AGE.ROUTING.TABLE 86555 . 88704) (
|
TRANSMIT.ETHERPACKET 86041 . 86280)) (86570 99166 (\AGE.ROUTING.TABLE 86580 . 88729) (
|
||||||
\ADD.ROUTING.TABLE.ENTRY 88706 . 89402) (\CLEAR.ROUTING.TABLE 89404 . 90131) (\MAP.ROUTING.TABLE 90133
|
\ADD.ROUTING.TABLE.ENTRY 88731 . 89427) (\CLEAR.ROUTING.TABLE 89429 . 90156) (\MAP.ROUTING.TABLE 90158
|
||||||
. 90661) (PRINTROUTINGTABLE 90663 . 94288) (\ROUTINGTABLE.INFOHOOK 94290 . 99139)) (99626 106411 (
|
. 90686) (PRINTROUTINGTABLE 90688 . 94313) (\ROUTINGTABLE.INFOHOOK 94315 . 99164)) (99651 106436 (
|
||||||
\TRANSLATE.10TO3 99636 . 101420) (\NOTE.10TO3 101422 . 103038) (\HANDLE.RAW.10TO3 103040 . 106409)) (
|
\TRANSLATE.10TO3 99661 . 101445) (\NOTE.10TO3 101447 . 103063) (\HANDLE.RAW.10TO3 103065 . 106434)) (
|
||||||
110393 125215 (PRINTPACKET 110403 . 110964) (\MAYBEPRINTPACKET 110966 . 112623) (PRINT10TO3 112625 .
|
110418 125240 (PRINTPACKET 110428 . 110989) (\MAYBEPRINTPACKET 110991 . 112648) (PRINT10TO3 112650 .
|
||||||
113993) (PRINTPACKETDATA 113995 . 119285) (PRINTPACKETQUEUE 119287 . 119716) (TIME.SINCE.PACKET 119718
|
114018) (PRINTPACKETDATA 114020 . 119310) (PRINTPACKETQUEUE 119312 . 119741) (TIME.SINCE.PACKET 119743
|
||||||
. 120203) (MAKE-NETWORK-TRACE-WINDOW 120205 . 123747) (\CHANGE.ETHER.TRACING 123749 . 125213)) (
|
. 120228) (MAKE-NETWORK-TRACE-WINDOW 120230 . 123772) (\CHANGE.ETHER.TRACING 123774 . 125238)) (
|
||||||
125586 126401 (\CENTICLOCK 125596 . 126399)) (126856 132956 (\3MBGETPACKET 126866 . 128286) (
|
125611 126426 (\CENTICLOCK 125621 . 126424)) (126881 132981 (\3MBGETPACKET 126891 . 128311) (
|
||||||
\3MB.CREATENDB 128288 . 129003) (\3MBSENDPACKET 129005 . 131188) (\3MBWATCHER 131190 . 131928) (
|
\3MB.CREATENDB 128313 . 129028) (\3MBSENDPACKET 129030 . 131213) (\3MBWATCHER 131215 . 131953) (
|
||||||
\3MBENCAPSULATE 131930 . 132478) (\3MB.BROADCASTP 132480 . 132651) (\3MBFLUSH 132653 . 132954)) (
|
\3MBENCAPSULATE 131955 . 132503) (\3MB.BROADCASTP 132505 . 132676) (\3MBFLUSH 132678 . 132979)) (
|
||||||
135910 137853 (ASSURE.ETHER.ON 135920 . 136250) (INITPUPLEVEL1 136252 . 136732) (TURN.ON.ETHER 136734
|
135935 137878 (ASSURE.ETHER.ON 135945 . 136275) (INITPUPLEVEL1 136277 . 136757) (TURN.ON.ETHER 136759
|
||||||
. 136879) (RESTART.ETHER 136881 . 137255) (TURN.OFF.ETHER 137257 . 137575) (PRINTWORDS 137577 .
|
. 136904) (RESTART.ETHER 136906 . 137280) (TURN.OFF.ETHER 137282 . 137600) (PRINTWORDS 137602 .
|
||||||
137851)) (138128 138663 (\DEVICE.INPUT 138138 . 138303) (\DEVICE.OUTPUT 138305 . 138499) (\D0.STARTIO
|
137876)) (138153 138688 (\DEVICE.INPUT 138163 . 138328) (\DEVICE.OUTPUT 138330 . 138524) (\D0.STARTIO
|
||||||
138501 . 138661)))))
|
138526 . 138686)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,11 +1,8 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:46"
|
(FILECREATED "27-Aug-2021 16:18:18" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;9 199890
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;11 199942
|
|
||||||
|
|
||||||
changes to%: (FNS \INIT.KEYBOARD.STREAM)
|
previous date%: "24-Aug-2021 16:54:52"
|
||||||
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;7)
|
||||||
previous date%: "27-Aug-2021 16:18:18"
|
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;10)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -3925,33 +3922,33 @@ Copyright (c) 1982-1990, 1992, 1999, 1920, 2000, 2018, 2021 by Venue & Xerox Cor
|
|||||||
(PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990
|
(PUTPROPS LLKEY COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990
|
||||||
1992 1999 1920 2000 2018 2021))
|
1992 1999 1920 2000 2018 2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (14748 22064 (BKSYSCHARCODE 14758 . 15107) (\CLEARSYSBUF 15109 . 15667) (\GETKEY 15669
|
(FILEMAP (NIL (14696 22012 (BKSYSCHARCODE 14706 . 15055) (\CLEARSYSBUF 15057 . 15615) (\GETKEY 15617
|
||||||
. 16844) (\NSYSBUFCHARS 16846 . 17588) (\SAVESYSBUF 17590 . 19199) (\SYSBUFP 19201 . 19505) (
|
. 16792) (\NSYSBUFCHARS 16794 . 17536) (\SAVESYSBUF 17538 . 19147) (\SYSBUFP 19149 . 19453) (
|
||||||
\GETSYSBUF 19507 . 19687) (\PUTSYSBUF 19689 . 20902) (\PEEKSYSBUF 20904 . 22062)) (23361 60195 (
|
\GETSYSBUF 19455 . 19635) (\PUTSYSBUF 19637 . 20850) (\PEEKSYSBUF 20852 . 22010)) (23309 60143 (
|
||||||
\KEYBOARDINIT 23371 . 25091) (\KEYBOARDEVENTFN 25093 . 29793) (\ALLOCLOCKED 29795 . 30385) (
|
\KEYBOARDINIT 23319 . 25039) (\KEYBOARDEVENTFN 25041 . 29741) (\ALLOCLOCKED 29743 . 30333) (
|
||||||
\SETIOPOINTERS 30387 . 34923) (\KEYBOARDOFF 34925 . 35339) (\KEYBOARDON 35341 . 35720) (\KEYHANDLER
|
\SETIOPOINTERS 30335 . 34871) (\KEYBOARDOFF 34873 . 35287) (\KEYBOARDON 35289 . 35668) (\KEYHANDLER
|
||||||
35722 . 35853) (\KEYHANDLER1 35855 . 43301) (\RESETKEYBOARD 43303 . 44951) (\DOMOUSECHORDING 44953 .
|
35670 . 35801) (\KEYHANDLER1 35803 . 43249) (\RESETKEYBOARD 43251 . 44899) (\DOMOUSECHORDING 44901 .
|
||||||
48773) (\DOTRANSITIONS 48775 . 49452) (\DECODETRANSITION 49454 . 56143) (MOUSECHORDWAIT 56145 . 56809)
|
48721) (\DOTRANSITIONS 48723 . 49400) (\DECODETRANSITION 49402 . 56091) (MOUSECHORDWAIT 56093 . 56757)
|
||||||
(\TRACKCURSOR 56811 . 60193)) (95899 117449 (KEYACTION 95909 . 96762) (KEYACTIONTABLE 96764 . 97946)
|
(\TRACKCURSOR 56759 . 60141)) (95847 117397 (KEYACTION 95857 . 96710) (KEYACTIONTABLE 96712 . 97894)
|
||||||
(KEYBOARDTYPE 97948 . 99050) (RESETKEYACTION 99052 . 100811) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
|
(KEYBOARDTYPE 97896 . 98998) (RESETKEYACTION 99000 . 100759) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS
|
||||||
100813 . 102715) (\KEYACTION1 102717 . 112833) (KEYDOWNP 112835 . 113170) (KEYNUMBERP 113172 . 113370)
|
100761 . 102663) (\KEYACTION1 102665 . 112781) (KEYDOWNP 112783 . 113118) (KEYNUMBERP 113120 . 113318)
|
||||||
(\KEYNAMETONUMBER 113372 . 114066) (\KEYNUMBERTONAME 114068 . 114258) (MODIFY.KEYACTIONS 114260 .
|
(\KEYNAMETONUMBER 113320 . 114014) (\KEYNUMBERTONAME 114016 . 114206) (MODIFY.KEYACTIONS 114208 .
|
||||||
115121) (METASHIFT 115123 . 116067) (SHIFTDOWNP 116069 . 117447)) (117512 117808 (
|
115069) (METASHIFT 115071 . 116015) (SHIFTDOWNP 116017 . 117395)) (117460 117756 (
|
||||||
SETUP.OFFICE.KEYBOARD 117522 . 117806)) (120511 122223 (\INIT.KEYBOARD.STREAM 120521 . 122221)) (
|
SETUP.OFFICE.KEYBOARD 117470 . 117754)) (120459 122171 (\INIT.KEYBOARD.STREAM 120469 . 122169)) (
|
||||||
122488 138865 (\DOBUFFEREDTRANSITIONS 122498 . 137928) (\TIMER.INTERRUPTFRAME 137930 . 138655) (
|
122436 138813 (\DOBUFFEREDTRANSITIONS 122446 . 137876) (\TIMER.INTERRUPTFRAME 137878 . 138603) (
|
||||||
\PERIODIC.INTERRUPTFRAME 138657 . 138863)) (139119 143196 (\HARDCURSORUP 139129 . 141011) (
|
\PERIODIC.INTERRUPTFRAME 138605 . 138811)) (139067 143144 (\HARDCURSORUP 139077 . 140959) (
|
||||||
\HARDCURSORPOSITION 141013 . 143049) (\HARDCURSORDOWN 143051 . 143194)) (143197 167257 (CURSOR.INIT
|
\HARDCURSORPOSITION 140961 . 142997) (\HARDCURSORDOWN 142999 . 143142)) (143145 167205 (CURSOR.INIT
|
||||||
143207 . 146907) (\CURSORDESTINATION 146909 . 149227) (\SOFTCURSORUP 149229 . 154483) (
|
143155 . 146855) (\CURSORDESTINATION 146857 . 149175) (\SOFTCURSORUP 149177 . 154431) (
|
||||||
\SOFTCURSORUPCURRENT 154485 . 161521) (\SOFTCURSORPOSITION 161523 . 162288) (\SOFTCURSORDOWN 162290 .
|
\SOFTCURSORUPCURRENT 154433 . 161469) (\SOFTCURSORPOSITION 161471 . 162236) (\SOFTCURSORDOWN 162238 .
|
||||||
162998) (CURSORPROP 163000 . 163342) (GETCURSORPROP 163344 . 163532) (PUTCURSORPROP 163534 . 164689) (
|
162946) (CURSORPROP 162948 . 163290) (GETCURSORPROP 163292 . 163480) (PUTCURSORPROP 163482 . 164637) (
|
||||||
\CURSORBITSPERPIXEL 164691 . 166807) (\CURSORIMAGEPROPNAME 166809 . 167033) (\CURSORMASKPROPNAME
|
\CURSORBITSPERPIXEL 164639 . 166755) (\CURSORIMAGEPROPNAME 166757 . 166981) (\CURSORMASKPROPNAME
|
||||||
167035 . 167255)) (167258 185208 (CURSORCREATE 167268 . 169943) (CURSOR 169945 . 171757) (
|
166983 . 167203)) (167206 185156 (CURSORCREATE 167216 . 169891) (CURSOR 169893 . 171705) (
|
||||||
\CURSOR-VALID-P 171759 . 172846) (\CURSORUP 172848 . 174563) (\CURSORPOSITION 174565 . 177093) (
|
\CURSOR-VALID-P 171707 . 172794) (\CURSORUP 172796 . 174511) (\CURSORPOSITION 174513 . 177041) (
|
||||||
\CURSORDOWN 177095 . 177328) (ADJUSTCURSORPOSITION 177330 . 177908) (CURSORPOSITION 177910 . 179452) (
|
\CURSORDOWN 177043 . 177276) (ADJUSTCURSORPOSITION 177278 . 177856) (CURSORPOSITION 177858 . 179400) (
|
||||||
CURSORSCREEN 179454 . 180110) (CURSOREXIT 180112 . 181503) (FLIPCURSOR 181505 . 182631) (FLIPCURSORBAR
|
CURSORSCREEN 179402 . 180058) (CURSOREXIT 180060 . 181451) (FLIPCURSOR 181453 . 182579) (FLIPCURSORBAR
|
||||||
182633 . 183613) (LASTMOUSEX 183615 . 183869) (LASTMOUSEY 183871 . 184125) (CREATEPOSITION 184127 .
|
182581 . 183561) (LASTMOUSEX 183563 . 183817) (LASTMOUSEY 183819 . 184073) (CREATEPOSITION 184075 .
|
||||||
184333) (POSITIONP 184335 . 184619) (CURSORHOTSPOT 184621 . 185206)) (186446 187994 (GETMOUSESTATE
|
184281) (POSITIONP 184283 . 184567) (CURSORHOTSPOT 184569 . 185154)) (186394 187942 (GETMOUSESTATE
|
||||||
186456 . 187115) (\EVENTKEYS 187117 . 187992)) (194421 195217 (MACHINETYPE 194431 . 194831) (
|
186404 . 187063) (\EVENTKEYS 187065 . 187940)) (194369 195165 (MACHINETYPE 194379 . 194779) (
|
||||||
SETMAINTPANEL 194833 . 195215)) (195247 196386 (BEEPON 195257 . 195910) (BEEPOFF 195912 . 196384)) (
|
SETMAINTPANEL 194781 . 195163)) (195195 196334 (BEEPON 195205 . 195858) (BEEPOFF 195860 . 196332)) (
|
||||||
196837 197100 (WITHOUT-INTERRUPTS 196847 . 197098)))))
|
196785 197048 (WITHOUT-INTERRUPTS 196795 . 197046)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,17 +1,10 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED "17-Mar-2021 11:10:55" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;6 27745
|
(FILECREATED "13-Sep-2021 17:12:03" {DSK}<Users>briggs>Projects>medley>sources>LLSUBRS.;8 27017
|
||||||
|
|
||||||
changes to%: (VARS \INITSUBRS)
|
changes to%: (VARS \INITSUBRS)
|
||||||
(FNS MISCN-NUMBER \MISCN.UFN \UNDEFINED-MISCN-UFN MISCN-COLLECT \GET-MY-BF
|
(FNS WRITECALLSUBRS)
|
||||||
\INIT-MISCN-TABLE \USER-SUBR-UFN \INIT-USER-SUBR-TABLE
|
|
||||||
\UNDEFINED-USER-SUBR-UFN USER-SUBR-NUMBER EQ-TO-CAR EQ-TO-CADR SUBRNUMBER
|
|
||||||
WRITECALLSUBRS FIX-SUBR-NAME \MOREVMEMFILE \WRITEMAP \COPYSYS0SUBR
|
|
||||||
\PUPLEVEL1STATE SHOWDISPLAY SETSCREENCOLOR \WRITERAWPBI \READRAWPBI RAID
|
|
||||||
\LISPFINISH \GETPACKETBUFFER \GATHERSTATS \DSPRATE DSPBOUT DISKPARTITION
|
|
||||||
\CHECKBCPLPASSWORD SUSPEND-LISP UNIX-USERNAME UNIX-FULLNAME UNIX-GETENV
|
|
||||||
UNIX-GETPARM)
|
|
||||||
|
|
||||||
previous date%: "16-Mar-2021 23:00:15" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;3)
|
previous date%: "13-Sep-2021 16:07:08" {DSK}<VAR>TMP>LLSUBRS.;1)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -316,8 +309,7 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
|||||||
|
|
||||||
(* "FOLLOWING DEFINITIONS EXPORTED")
|
(* "FOLLOWING DEFINITIONS EXPORTED")
|
||||||
(RPAQQ \INITSUBRS
|
(RPAQQ \INITSUBRS
|
||||||
((YIELD 210)
|
((BACKGROUNDSUBR 6)
|
||||||
(BACKGROUNDSUBR 6)
|
|
||||||
(CHECKBCPLPASSWORD 7)
|
(CHECKBCPLPASSWORD 7)
|
||||||
(DISKPARTITION 8)
|
(DISKPARTITION 8)
|
||||||
(DSPBOUT 9)
|
(DSPBOUT 9)
|
||||||
@@ -442,7 +434,8 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
|||||||
(CHAR-READP 206)
|
(CHAR-READP 206)
|
||||||
(CHAR-BINS 207)
|
(CHAR-BINS 207)
|
||||||
(CHAR-BOUTS 208)
|
(CHAR-BOUTS 208)
|
||||||
(CHAR-FILLBUFFER 209)))
|
(CHAR-FILLBUFFER 209)
|
||||||
|
(YIELD 210)))
|
||||||
|
|
||||||
(* "END EXPORTED DEFINITIONS")
|
(* "END EXPORTED DEFINITIONS")
|
||||||
|
|
||||||
@@ -485,25 +478,25 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
|||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
|
|
||||||
(WRITECALLSUBRS
|
(WRITECALLSUBRS
|
||||||
[LAMBDA NIL (* ; "Edited 17-Mar-2021 11:05 by larry")
|
[LAMBDA NIL (* ; "Edited 13-Sep-2021 15:19 by briggs")
|
||||||
(CL:WITH-OPEN-FILE (*STANDARD-OUTPUT* "subrs.h" :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION)
|
(CL:WITH-OPEN-FILE (*STANDARD-OUTPUT* "subrs.h" :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION)
|
||||||
(CL:FORMAT T "/* This file written from LLSUBRS on ~A */~&" (DATE))
|
|
||||||
(CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
|
|
||||||
(CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to */~&")
|
|
||||||
(CL:FORMAT T "/* generate a new version. */~&")
|
|
||||||
(CL:FORMAT T "#ifndef SUBRS_H~&#define SUBRS_H 1~&")
|
(CL:FORMAT T "#ifndef SUBRS_H~&#define SUBRS_H 1~&")
|
||||||
(for X in \INITSUBRS do (CL:FORMAT T "#define sb_~A 0~O~&" (FIX-SUBR-NAME
|
(CL:FORMAT T "/* This file written from LLSUBRS on ~22A */~&" (DATE))
|
||||||
(CAR X))
|
(CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
|
||||||
|
(CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to */~&")
|
||||||
|
(CL:FORMAT T "/* generate a new version. */~&")
|
||||||
|
(for X in \INITSUBRS do (CL:FORMAT T "#define sb_~42A 0~O~&"
|
||||||
|
(FIX-SUBR-NAME (CAR X))
|
||||||
(CADR X)))
|
(CADR X)))
|
||||||
(CL:FORMAT T "~&~&/* MISCN opcodes */~&")
|
(CL:FORMAT T "~&~&/* MISCN opcodes */~&")
|
||||||
(for X in \MISCN-TABLE-LIST do (CL:FORMAT T "#define miscn_~A 0~O~&"
|
(for X in \MISCN-TABLE-LIST do (CL:FORMAT T "#define miscn_~39A 0~O~&"
|
||||||
(FIX-SUBR-NAME (CAR X))
|
(FIX-SUBR-NAME (CAR X))
|
||||||
(CADR X)))
|
(CADR X)))
|
||||||
(CL:FORMAT T "~&~&/* Assigned USER SUBR numbers */~&")
|
(CL:FORMAT T "~&~&/* Assigned USER SUBR numbers */~&")
|
||||||
(for X in \USER-SUBR-LIST do (CL:FORMAT T "#define user_subr_~A 0~O~&"
|
(for X in \USER-SUBR-LIST do (CL:FORMAT T "#define user_subr_~35A 0~O~&"
|
||||||
(FIX-SUBR-NAME (CAR X))
|
(FIX-SUBR-NAME (CAR X))
|
||||||
(CADR X)))
|
(CADR X)))
|
||||||
(CL:FORMAT T "#endif ~&"])
|
(CL:FORMAT T "#endif~&"])
|
||||||
|
|
||||||
(FIX-SUBR-NAME
|
(FIX-SUBR-NAME
|
||||||
[LAMBDA (NAME) (* ; "Edited 13-Feb-89 16:17 by jds")
|
[LAMBDA (NAME) (* ; "Edited 13-Feb-89 16:17 by jds")
|
||||||
@@ -695,16 +688,16 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
|
|||||||
(PUTPROPS LLSUBRS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1988 1989 1990 1991 1992
|
(PUTPROPS LLSUBRS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1988 1989 1990 1991 1992
|
||||||
2021))
|
2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (4322 9066 (MISCN-NUMBER 4332 . 4548) (\MISCN.UFN 4550 . 6807) (\UNDEFINED-MISCN-UFN
|
(FILEMAP (NIL (3639 8383 (MISCN-NUMBER 3649 . 3865) (\MISCN.UFN 3867 . 6124) (\UNDEFINED-MISCN-UFN
|
||||||
6809 . 7125) (MISCN-COLLECT 7127 . 7344) (\GET-MY-BF 7346 . 7558) (\INIT-MISCN-TABLE 7560 . 9064)) (
|
6126 . 6442) (MISCN-COLLECT 6444 . 6661) (\GET-MY-BF 6663 . 6875) (\INIT-MISCN-TABLE 6877 . 8381)) (
|
||||||
10450 11739 (ADD-USER-SUBR 10450 . 11739)) (11740 13491 (\USER-SUBR-UFN 11750 . 12325) (
|
9767 11056 (ADD-USER-SUBR 9767 . 11056)) (11057 12808 (\USER-SUBR-UFN 11067 . 11642) (
|
||||||
\INIT-USER-SUBR-TABLE 12327 . 12792) (\UNDEFINED-USER-SUBR-UFN 12794 . 13137) (USER-SUBR-NUMBER 13139
|
\INIT-USER-SUBR-TABLE 11644 . 12109) (\UNDEFINED-USER-SUBR-UFN 12111 . 12454) (USER-SUBR-NUMBER 12456
|
||||||
. 13361) (EQ-TO-CAR 13363 . 13424) (EQ-TO-CADR 13426 . 13489)) (17774 18423 (SUBRNUMBER 17784 . 18421
|
. 12678) (EQ-TO-CAR 12680 . 12741) (EQ-TO-CADR 12743 . 12806)) (17091 17740 (SUBRNUMBER 17101 . 17738
|
||||||
)) (18484 20832 (WRITECALLSUBRS 18494 . 20075) (FIX-SUBR-NAME 20077 . 20830)) (21041 26945 (
|
)) (17801 20104 (WRITECALLSUBRS 17811 . 19347) (FIX-SUBR-NAME 19349 . 20102)) (20313 26217 (
|
||||||
\MOREVMEMFILE 21051 . 21216) (\WRITEMAP 21218 . 21378) (\COPYSYS0SUBR 21380 . 21540) (\PUPLEVEL1STATE
|
\MOREVMEMFILE 20323 . 20488) (\WRITEMAP 20490 . 20650) (\COPYSYS0SUBR 20652 . 20812) (\PUPLEVEL1STATE
|
||||||
21542 . 21706) (SHOWDISPLAY 21708 . 21997) (SETSCREENCOLOR 21999 . 22162) (\WRITERAWPBI 22164 . 22322)
|
20814 . 20978) (SHOWDISPLAY 20980 . 21269) (SETSCREENCOLOR 21271 . 21434) (\WRITERAWPBI 21436 . 21594)
|
||||||
(\READRAWPBI 22324 . 22476) (RAID 22478 . 22633) (\LISPFINISH 22635 . 22793) (\GETPACKETBUFFER 22795
|
(\READRAWPBI 21596 . 21748) (RAID 21750 . 21905) (\LISPFINISH 21907 . 22065) (\GETPACKETBUFFER 22067
|
||||||
. 22957) (\GATHERSTATS 22959 . 23117) (\DSPRATE 23119 . 23386) (DSPBOUT 23388 . 23542) (DISKPARTITION
|
. 22229) (\GATHERSTATS 22231 . 22389) (\DSPRATE 22391 . 22658) (DSPBOUT 22660 . 22814) (DISKPARTITION
|
||||||
23544 . 23839) (\CHECKBCPLPASSWORD 23841 . 24020) (SUSPEND-LISP 24022 . 24280) (UNIX-USERNAME 24282
|
22816 . 23111) (\CHECKBCPLPASSWORD 23113 . 23292) (SUSPEND-LISP 23294 . 23552) (UNIX-USERNAME 23554
|
||||||
. 24804) (UNIX-FULLNAME 24806 . 25332) (UNIX-GETENV 25334 . 25931) (UNIX-GETPARM 25933 . 26943)))))
|
. 24076) (UNIX-FULLNAME 24078 . 24604) (UNIX-GETENV 24606 . 25203) (UNIX-GETPARM 25205 . 26215)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
110
sources/NSFILING
110
sources/NSFILING
@@ -1,15 +1,13 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:23:45"
|
(FILECREATED "28-Jun-99 17:07:34" {DSK}<project>medley3.5>sources>NSFILING.;2 294552
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;2 294878
|
|
||||||
|
|
||||||
changes to%: (FNS \NSFILING.LOGIN \NSFILING.HOSTNAMEP \NSFILING.INIT)
|
changes to%: (FNS \NSFILING.GENERATEFILES)
|
||||||
|
|
||||||
previous date%: "28-Jun-99 17:07:34"
|
previous date%: "19-Jan-93 10:59:09" {DSK}<project>medley3.5>sources>NSFILING.;1)
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;1)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1983-1988, 1990, 1993, 1999, 2021 by Venue & Xerox Corporation.
|
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993, 1999 by Venue & Xerox Corporation. All rights reserved.
|
||||||
")
|
")
|
||||||
|
|
||||||
(PRETTYCOMPRINT NSFILINGCOMS)
|
(PRETTYCOMPRINT NSFILINGCOMS)
|
||||||
@@ -573,13 +571,13 @@ Copyright (c) 1983-1988, 1990, 1993, 1999, 2021 by Venue & Xerox Corporation.
|
|||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS WITHOUT.SESSION.MONITOR MACRO [(SESSION . FORMS)
|
(PUTPROPS WITHOUT.SESSION.MONITOR MACRO
|
||||||
(LET ((LOCK (fetch FSSESSIONLOCK of SESSION)
|
[(SESSION . FORMS)
|
||||||
))
|
(LET ((LOCK (fetch FSSESSIONLOCK of SESSION)))
|
||||||
(DECLARE (LOCALVARS LOCK))
|
(DECLARE (LOCALVARS LOCK))
|
||||||
(RELEASE.MONITORLOCK LOCK)
|
(RELEASE.MONITORLOCK LOCK)
|
||||||
(PROG1 (PROGN . FORMS)
|
(PROG1 (PROGN . FORMS)
|
||||||
(OBTAIN.MONITORLOCK LOCK])
|
(OBTAIN.MONITORLOCK LOCK])
|
||||||
)
|
)
|
||||||
|
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||||
@@ -4660,48 +4658,48 @@ Copyright (c) 1983-1988, 1990, 1993, 1999, 2021 by Venue & Xerox Corporation.
|
|||||||
(ADDTOVAR LAMA FILING.CALL)
|
(ADDTOVAR LAMA FILING.CALL)
|
||||||
)
|
)
|
||||||
(PUTPROPS NSFILING COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 1999
|
(PUTPROPS NSFILING COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 1999
|
||||||
2021))
|
))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (34555 35401 (\FILINGSESSION.DEFPRINT 34565 . 35079) (\FILINGHANDLE.DEFPRINT 35081 .
|
(FILEMAP (NIL (34234 35080 (\FILINGSESSION.DEFPRINT 34244 . 34758) (\FILINGHANDLE.DEFPRINT 34760 .
|
||||||
35399)) (35402 39129 (\GET.FILING.ATTRIBUTE 35412 . 36725) (\PUT.FILING.ATTRIBUTE 36727 . 37925) (
|
35078)) (35081 38808 (\GET.FILING.ATTRIBUTE 35091 . 36404) (\PUT.FILING.ATTRIBUTE 36406 . 37604) (
|
||||||
\GET.SESSION.HANDLE 37927 . 38346) (\PUT.SESSION.HANDLE 38348 . 39127)) (42161 78110 (
|
\GET.SESSION.HANDLE 37606 . 38025) (\PUT.SESSION.HANDLE 38027 . 38806)) (41840 77789 (
|
||||||
\GETFILINGCONNECTION 42171 . 44066) (\NSFILING.GET.NEW.SESSION 44068 . 44553) (\NSFILING.GET.STREAM
|
\GETFILINGCONNECTION 41850 . 43745) (\NSFILING.GET.NEW.SESSION 43747 . 44232) (\NSFILING.GET.STREAM
|
||||||
44555 . 46331) (\NSFILING.COURIER.OPEN 46333 . 46598) (\NSFILING.CLOSE.BULKSTREAM 46600 . 46878) (
|
44234 . 46010) (\NSFILING.COURIER.OPEN 46012 . 46277) (\NSFILING.CLOSE.BULKSTREAM 46279 . 46557) (
|
||||||
\NSFILING.RELEASE.BULKSTREAM 46880 . 47809) (FILING.CALL 47811 . 56410) (\NSFILING.LOGIN 56412 . 69591
|
\NSFILING.RELEASE.BULKSTREAM 46559 . 47488) (FILING.CALL 47490 . 56089) (\NSFILING.LOGIN 56091 . 69270
|
||||||
) (\NSFILING.AFTER.LOGIN 69593 . 70124) (\NSFILING.SET.CONTINUANCE 70126 . 70799) (\NSFILING.LOGOUT
|
) (\NSFILING.AFTER.LOGIN 69272 . 69803) (\NSFILING.SET.CONTINUANCE 69805 . 70478) (\NSFILING.LOGOUT
|
||||||
70801 . 70982) (\NSFILING.DISCARD.SESSION 70984 . 72681) (\VALID.FILING.CONNECTIONP 72683 . 74279) (
|
70480 . 70661) (\NSFILING.DISCARD.SESSION 70663 . 72360) (\VALID.FILING.CONNECTIONP 72362 . 73958) (
|
||||||
\NSFILING.CLOSE.CONNECTIONS 74281 . 77143) (BREAK.NSFILING.CONNECTION 77145 . 78108)) (78188 91568 (
|
\NSFILING.CLOSE.CONNECTIONS 73960 . 76822) (BREAK.NSFILING.CONNECTION 76824 . 77787)) (77867 91247 (
|
||||||
\NSFILING.CONNECT 78198 . 80615) (\NSFILING.MAYBE.CREATE 80617 . 83656) (\NSFILING.REMOVEQUOTES 83658
|
\NSFILING.CONNECT 77877 . 80294) (\NSFILING.MAYBE.CREATE 80296 . 83335) (\NSFILING.REMOVEQUOTES 83337
|
||||||
. 84283) (\NSFILING.ADDQUOTES 84285 . 87023) (\FILING.ATTRIBUTE.TYPE.SEQUENCE 87025 . 87239) (
|
. 83962) (\NSFILING.ADDQUOTES 83964 . 86702) (\FILING.ATTRIBUTE.TYPE.SEQUENCE 86704 . 86918) (
|
||||||
\FILING.ATTRIBUTE.TYPE 87241 . 87744) (\LISP.TO.NSFILING.ATTRIBUTE 87746 . 91566)) (91604 144728 (
|
\FILING.ATTRIBUTE.TYPE 86920 . 87423) (\LISP.TO.NSFILING.ATTRIBUTE 87425 . 91245)) (91283 144407 (
|
||||||
\NSFILING.GETFILE 91614 . 112897) (\NSFILING.LOOKUP.CACHE 112899 . 114961) (\NSFILING.ADD.TO.CACHE
|
\NSFILING.GETFILE 91293 . 112576) (\NSFILING.LOOKUP.CACHE 112578 . 114640) (\NSFILING.ADD.TO.CACHE
|
||||||
114963 . 117326) (\NSFILING.OPEN.HANDLE 117328 . 119431) (\NSFILING.CONFLICTP 119433 . 120927) (
|
114642 . 117005) (\NSFILING.OPEN.HANDLE 117007 . 119110) (\NSFILING.CONFLICTP 119112 . 120606) (
|
||||||
\NSFILING.CHECK.ACCESS 120929 . 122292) (\NSFILING.FILLIN.ATTRIBUTES 122294 . 124041) (
|
\NSFILING.CHECK.ACCESS 120608 . 121971) (\NSFILING.FILLIN.ATTRIBUTES 121973 . 123720) (
|
||||||
\NSFILING.COMPOSE.PATHNAME 124043 . 124544) (\NSFILING.PARSE.FILENAME 124546 . 130083) (
|
\NSFILING.COMPOSE.PATHNAME 123722 . 124223) (\NSFILING.PARSE.FILENAME 124225 . 129762) (
|
||||||
\NSFILING.ERRORHANDLER 130085 . 134903) (\NSFILING.WHENCLOSED 134905 . 136177) (\NSFILING.CLOSE.HANDLE
|
\NSFILING.ERRORHANDLER 129764 . 134582) (\NSFILING.WHENCLOSED 134584 . 135856) (\NSFILING.CLOSE.HANDLE
|
||||||
136179 . 136472) (\NSFILING.FULLNAME 136474 . 144726)) (144761 212876 (\NSFILING.OPENFILE 144771 .
|
135858 . 136151) (\NSFILING.FULLNAME 136153 . 144405)) (144440 212555 (\NSFILING.OPENFILE 144450 .
|
||||||
149963) (\NSFILING.HANDLE.ERROR 149965 . 150843) (\NSFILING.CLOSEFILE 150845 . 153468) (
|
149642) (\NSFILING.HANDLE.ERROR 149644 . 150522) (\NSFILING.CLOSEFILE 150524 . 153147) (
|
||||||
\NSFILING.EVENTFN 153470 . 156228) (\NSFILING.DELETEFILE 156230 . 157898) (\NSFILING.CHILDLESS-P
|
\NSFILING.EVENTFN 153149 . 155907) (\NSFILING.DELETEFILE 155909 . 157577) (\NSFILING.CHILDLESS-P
|
||||||
157900 . 158603) (\NSFILING.DIRECTORYNAMEP 158605 . 159012) (\NSFILING.HOSTNAMEP 159014 . 162109) (
|
157579 . 158282) (\NSFILING.DIRECTORYNAMEP 158284 . 158691) (\NSFILING.HOSTNAMEP 158693 . 161788) (
|
||||||
\NSFILING.GETFILENAME 162111 . 162371) (\NSFILING.GETFILEINFO 162373 . 165781) (
|
\NSFILING.GETFILENAME 161790 . 162050) (\NSFILING.GETFILEINFO 162052 . 165460) (
|
||||||
\NSFILING.GET.ATTRIBUTES 165783 . 166179) (\NSFILING.GETFILEINFO.FROM.PLIST 166181 . 169141) (
|
\NSFILING.GET.ATTRIBUTES 165462 . 165858) (\NSFILING.GETFILEINFO.FROM.PLIST 165860 . 168820) (
|
||||||
\NSFILING.GDATE 169143 . 169333) (\NSFILING.SETFILEINFO 169335 . 172517) (\NSFILING.GET/SETINFO 172519
|
\NSFILING.GDATE 168822 . 169012) (\NSFILING.SETFILEINFO 169014 . 172196) (\NSFILING.GET/SETINFO 172198
|
||||||
. 173983) (\NSFILING.UPDATE.ATTRIBUTES 173985 . 174956) (\NSFILING.GETEOFPTR 174958 . 175492) (
|
. 173662) (\NSFILING.UPDATE.ATTRIBUTES 173664 . 174635) (\NSFILING.GETEOFPTR 174637 . 175171) (
|
||||||
\NSFILING.GENERATEFILES 175494 . 191356) (\NSFILING.GENERATE.STARS 191358 . 191948) (
|
\NSFILING.GENERATEFILES 175173 . 191035) (\NSFILING.GENERATE.STARS 191037 . 191627) (
|
||||||
\NSFILING.NEXTFILE 191950 . 193528) (\NSFILING.FILEINFOFN 193530 . 193757) (\NSFILING.RENAMEFILE
|
\NSFILING.NEXTFILE 191629 . 193207) (\NSFILING.FILEINFOFN 193209 . 193436) (\NSFILING.RENAMEFILE
|
||||||
193759 . 194359) (\NSFILING.COPYFILE 194361 . 194959) (\NSFILING.COPY/RENAME 194961 . 212874)) (212915
|
193438 . 194038) (\NSFILING.COPYFILE 194040 . 194638) (\NSFILING.COPY/RENAME 194640 . 212553)) (212594
|
||||||
263523 (\NSRANDOM.CLOSEFILE 212925 . 214721) (\NSRANDOM.RELEASE.HANDLE 214723 . 215916) (
|
263202 (\NSRANDOM.CLOSEFILE 212604 . 214400) (\NSRANDOM.RELEASE.HANDLE 214402 . 215595) (
|
||||||
\NSRANDOM.RELEASE.LOCK 215918 . 216257) (\NSRANDOM.RELEASE.IF.ERROR 216259 . 216459) (
|
\NSRANDOM.RELEASE.LOCK 215597 . 215936) (\NSRANDOM.RELEASE.IF.ERROR 215938 . 216138) (
|
||||||
\NSRANDOM.CREATE.STREAM 216461 . 222527) (\NSRANDOM.READPAGES 222529 . 227319) (\NSRANDOM.READ.SEGMENT
|
\NSRANDOM.CREATE.STREAM 216140 . 222206) (\NSRANDOM.READPAGES 222208 . 226998) (\NSRANDOM.READ.SEGMENT
|
||||||
227321 . 237847) (\NSRANDOM.PREPARE.CACHE 237849 . 245181) (\NSRANDOM.FETCH.CACHE 245183 . 247356) (
|
227000 . 237526) (\NSRANDOM.PREPARE.CACHE 237528 . 244860) (\NSRANDOM.FETCH.CACHE 244862 . 247035) (
|
||||||
\NSRANDOM.CHECK.CACHE 247358 . 248403) (\NSRANDOM.WRITEPAGES 248405 . 253948) (\NSRANDOM.WRITE.SEGMENT
|
\NSRANDOM.CHECK.CACHE 247037 . 248082) (\NSRANDOM.WRITEPAGES 248084 . 253627) (\NSRANDOM.WRITE.SEGMENT
|
||||||
253950 . 255544) (\NSRANDOM.WROTE.HANDLE 255546 . 257352) (\NSRANDOM.SETEOFPTR 257354 . 258883) (
|
253629 . 255223) (\NSRANDOM.WROTE.HANDLE 255225 . 257031) (\NSRANDOM.SETEOFPTR 257033 . 258562) (
|
||||||
\NSRANDOM.TRUNCATEFILE 258885 . 261799) (\NSRANDOM.UPDATE.VALIDATION 261801 . 262704) (
|
\NSRANDOM.TRUNCATEFILE 258564 . 261478) (\NSRANDOM.UPDATE.VALIDATION 261480 . 262383) (
|
||||||
\NSRANDOM.OPENFILE 262706 . 263521)) (263555 278063 (\NSRANDOM.HANDLE.ERROR 263565 . 266011) (
|
\NSRANDOM.OPENFILE 262385 . 263200)) (263234 277742 (\NSRANDOM.HANDLE.ERROR 263244 . 265690) (
|
||||||
\NSRANDOM.PROCEEDABLE.ERROR 266013 . 267269) (\NSRANDOM.REESTABLISH 267271 . 268743) (
|
\NSRANDOM.PROCEEDABLE.ERROR 265692 . 266948) (\NSRANDOM.REESTABLISH 266950 . 268422) (
|
||||||
\NSRANDOM.STREAM.CHANGED 268745 . 270015) (\NSRANDOM.DESTROY.STREAM 270017 . 270787) (
|
\NSRANDOM.STREAM.CHANGED 268424 . 269694) (\NSRANDOM.DESTROY.STREAM 269696 . 270466) (
|
||||||
\NSRANDOM.SESSION.WATCHER 270789 . 276698) (\NSRANDOM.ENSURE.WATCHER 276700 . 278061)) (278104 289314
|
\NSRANDOM.SESSION.WATCHER 270468 . 276377) (\NSRANDOM.ENSURE.WATCHER 276379 . 277740)) (277783 288993
|
||||||
(GC-FILING-DIRECTORY 278114 . 285537) (\NSGC.COLLECT.DIRECTORIES 285539 . 289312)) (289364 294055 (
|
(GC-FILING-DIRECTORY 277793 . 285216) (\NSGC.COLLECT.DIRECTORIES 285218 . 288991)) (289043 293734 (
|
||||||
\NSFILING.DESERIALIZE 289374 . 291476) (\NSFILING.DESERIALIZE1 291478 . 294053)) (294056 294543 (
|
\NSFILING.DESERIALIZE 289053 . 291155) (\NSFILING.DESERIALIZE1 291157 . 293732)) (293735 294222 (
|
||||||
\NSFILING.INIT 294066 . 294541)))))
|
\NSFILING.INIT 293745 . 294220)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
@@ -1,15 +1,14 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 9-Jul-2021 14:12:19"
|
(FILECREATED "11-Sep-2021 09:14:19" {DSK}<home>larry>medley>sources>PRETTY.;5 65019
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;19 64744
|
|
||||||
|
|
||||||
changes to%: (FNS PRETTYDEF)
|
changes to%: (VARS PRETTYCOMS)
|
||||||
|
(FNS PRINTCOPYRIGHT)
|
||||||
|
|
||||||
previous date%: " 3-Jul-2021 15:24:17"
|
previous date%: " 9-Jul-2021 14:12:19" {DSK}<home>larry>medley>sources>PRETTY.;1)
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;17)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1984-1990, 1999, 2018, 2021 by Venue & Xerox Corporation.
|
Copyright (c) 1984-1990, 1999, 2018 by Venue & Xerox Corporation.
|
||||||
The following program was created in 1984 but has not been published
|
The following program was created in 1984 but has not been published
|
||||||
within the meaning of the copyright law, is furnished under license,
|
within the meaning of the copyright law, is furnished under license,
|
||||||
and may not be used, copied and/or disclosed except in accordance
|
and may not be used, copied and/or disclosed except in accordance
|
||||||
@@ -24,7 +23,7 @@ with the terms of said license.
|
|||||||
PRETTYPRINT2 PRETTYPRINT3 PRINTDEF1 SUPERPRINTEQ SUPERPRINTGETPROP CHANGEFONT)
|
PRETTYPRINT2 PRETTYPRINT3 PRINTDEF1 SUPERPRINTEQ SUPERPRINTGETPROP CHANGEFONT)
|
||||||
(FNS READARRAY PRINTARRAY READARRAY-FROM-LIST PRINTARRAY-TO-LIST)
|
(FNS READARRAY PRINTARRAY READARRAY-FROM-LIST PRINTARRAY-TO-LIST)
|
||||||
(COMS (DECLARE%: DONTCOPY (MACROS CHANGFONT)))
|
(COMS (DECLARE%: DONTCOPY (MACROS CHANGFONT)))
|
||||||
(COMS (* ; "COPYRIGHT")
|
(COMS (* ; "COPYRIGHT")
|
||||||
(FNS PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT)
|
(FNS PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT)
|
||||||
(BLOCKS (NIL PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT (LOCALVARS . T)
|
(BLOCKS (NIL PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT (LOCALVARS . T)
|
||||||
(NOLINKFNS PRINTCOPYRIGHT1)))
|
(NOLINKFNS PRINTCOPYRIGHT1)))
|
||||||
@@ -89,8 +88,8 @@ with the terms of said license.
|
|||||||
[DECLARE%: EVAL@COMPILE DOCOPY (P (CL:PROCLAIM '(CL:SPECIAL DEFAULTFONT LAMBDAFONT
|
[DECLARE%: EVAL@COMPILE DOCOPY (P (CL:PROCLAIM '(CL:SPECIAL DEFAULTFONT LAMBDAFONT
|
||||||
PRETTYCOMFONT COMMENTFONT
|
PRETTYCOMFONT COMMENTFONT
|
||||||
**COMMENT**FLG PRETTYPRINTMACROS]
|
**COMMENT**FLG PRETTYPRINTMACROS]
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY (* ;
|
(DECLARE%: DOEVAL@COMPILE DONTCOPY (* ;
|
||||||
"IMPORT because FILEPKG has records EXPORTed but is not a member of EXPORTFILES")
|
"IMPORT because FILEPKG has records EXPORTed but is not a member of EXPORTFILES")
|
||||||
(FILES (IMPORT)
|
(FILES (IMPORT)
|
||||||
FILEPKG))
|
FILEPKG))
|
||||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPT PP* PP)
|
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPT PP* PP)
|
||||||
@@ -455,15 +454,18 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
|
|||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
|
|
||||||
(PRINTCOPYRIGHT
|
(PRINTCOPYRIGHT
|
||||||
[LAMBDA (FILENAME) (* ; "Edited 31-Aug-99 09:06 by rmk:")
|
[LAMBDA (FILENAME) (* ; "Edited 11-Sep-2021 09:07 by larry")
|
||||||
(* ; "Edited 31-Aug-99 09:01 by rmk:")
|
(* ; "Edited 31-Aug-99 09:01 by rmk:")
|
||||||
(* edited%: " 1-Jan-85 20:16")
|
(* edited%: " 1-Jan-85 20:16")
|
||||||
|
|
||||||
(* ;;; "CALLED BY PRETTYDEF TO PUT a copyright notice on a file. The globalvar COPYRIGHTOWNERS is used to determine the possible copyright owners when it is determined the file doesn't have a copyright yet and has never been asked if the programmer wanted one. The whole copyright mechanism can be turned off by setting COPYRIGHTFLG to NEVER -- originaly NIL. If the file is copyrighted, any year the file is editted the new year is tacked on to the list of copyright years. The copyright notice comes immediately after the FILECREATED expression * *")
|
(* ;;; "CALLED BY PRETTYDEF TO PUT a copyright notice on a file. The globalvar COPYRIGHTOWNERS is used to determine the possible copyright owners when it is determined the file doesn't have a copyright yet and has never been asked if the programmer wanted one. The whole copyright mechanism can be turned off by setting COPYRIGHTFLG to NEVER -- originaly NIL. If the file is copyrighted, any year the file is editted the new year is tacked on to the list of copyright years. The copyright notice comes immediately after the FILECREATED expression ")
|
||||||
|
|
||||||
|
(* ;;
|
||||||
|
"9/10/2021 LMM: Add COPYRIGHTFLG value PRESERVE meaning no new copyright (or year) but retain old")
|
||||||
|
|
||||||
(PROG [(OWNER (GETPROP FILENAME 'COPYRIGHT]
|
(PROG [(OWNER (GETPROP FILENAME 'COPYRIGHT]
|
||||||
(AND [OR OWNER
|
(AND [OR OWNER
|
||||||
(AND COPYRIGHTFLG
|
(AND COPYRIGHTFLG (NEQ COPYRIGHTFLG 'PRESERVE)
|
||||||
(SETQ OWNER
|
(SETQ OWNER
|
||||||
(ASKUSER (if (EQ COPYRIGHTFLG 'DEFAULT)
|
(ASKUSER (if (EQ COPYRIGHTFLG 'DEFAULT)
|
||||||
then 0
|
then 0
|
||||||
@@ -500,7 +502,11 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
|
|||||||
'NONE)
|
'NONE)
|
||||||
(PROG ((CURRENTYEAR (SUBATOM (DATE (DATEFORMAT YEAR.LONG NO.TIME))
|
(PROG ((CURRENTYEAR (SUBATOM (DATE (DATEFORMAT YEAR.LONG NO.TIME))
|
||||||
-4 -1)))
|
-4 -1)))
|
||||||
(OR (MEMBER CURRENTYEAR (CDR OWNER))
|
|
||||||
|
(* ;; " see github Interlisp/medley issue #207 (lmm 9/11/2021)")
|
||||||
|
|
||||||
|
(OR (EQ COPYRIGHTFLG 'PRESERVE)
|
||||||
|
(MEMBER CURRENTYEAR (CDR OWNER))
|
||||||
(NCONC1 OWNER CURRENTYEAR)))
|
(NCONC1 OWNER CURRENTYEAR)))
|
||||||
(PRINTCOPYRIGHT1 OWNER])
|
(PRINTCOPYRIGHT1 OWNER])
|
||||||
|
|
||||||
@@ -687,16 +693,16 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
|
|||||||
(ADDTOVAR LAMA )
|
(ADDTOVAR LAMA )
|
||||||
)
|
)
|
||||||
(PUTPROPS PRETTY COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 1999 2018
|
(PUTPROPS PRETTY COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 1999 2018
|
||||||
2021))
|
))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (5950 48101 (PRETTYDEF 5960 . 21633) (PRETTYDEFCOMS 21635 . 22317) (PRETTYDEF0 22319 .
|
(FILEMAP (NIL (5925 48076 (PRETTYDEF 5935 . 21608) (PRETTYDEFCOMS 21610 . 22292) (PRETTYDEF0 22294 .
|
||||||
22510) (PRETTYDEF1 22512 . 24275) (PRINTDATE 24277 . 25513) (PRINTDATE1 25515 . 26720) (PRINTFNS 26722
|
22485) (PRETTYDEF1 22487 . 24250) (PRINTDATE 24252 . 25488) (PRINTDATE1 25490 . 26695) (PRINTFNS 26697
|
||||||
. 27291) (PRETTYCOM 27293 . 33634) (PRETTYVAR 33636 . 34674) (PRETTYVAR1 34676 . 36894) (PRETTYCOM1
|
. 27266) (PRETTYCOM 27268 . 33609) (PRETTYVAR 33611 . 34649) (PRETTYVAR1 34651 . 36869) (PRETTYCOM1
|
||||||
36896 . 37600) (ENDFILE 37602 . 37698) (MAKEDEFLIST 37700 . 38104) (PP 38106 . 38382) (PP* 38384 .
|
36871 . 37575) (ENDFILE 37577 . 37673) (MAKEDEFLIST 37675 . 38079) (PP 38081 . 38357) (PP* 38359 .
|
||||||
38697) (PPT 38699 . 39018) (PRETTYPRINT 39020 . 42172) (PRETTYPRINT1 42174 . 44060) (PRETTYPRINT2
|
38672) (PPT 38674 . 38993) (PRETTYPRINT 38995 . 42147) (PRETTYPRINT1 42149 . 44035) (PRETTYPRINT2
|
||||||
44062 . 45378) (PRETTYPRINT3 45380 . 46335) (PRINTDEF1 46337 . 47345) (SUPERPRINTEQ 47347 . 47441) (
|
44037 . 45353) (PRETTYPRINT3 45355 . 46310) (PRINTDEF1 46312 . 47320) (SUPERPRINTEQ 47322 . 47416) (
|
||||||
SUPERPRINTGETPROP 47443 . 47587) (CHANGEFONT 47589 . 48099)) (48102 53448 (READARRAY 48112 . 49038) (
|
SUPERPRINTGETPROP 47418 . 47562) (CHANGEFONT 47564 . 48074)) (48077 53423 (READARRAY 48087 . 49013) (
|
||||||
PRINTARRAY 49040 . 50780) (READARRAY-FROM-LIST 50782 . 51887) (PRINTARRAY-TO-LIST 51889 . 53446)) (
|
PRINTARRAY 49015 . 50755) (READARRAY-FROM-LIST 50757 . 51862) (PRINTARRAY-TO-LIST 51864 . 53421)) (
|
||||||
53575 60788 (PRINTCOPYRIGHT 53585 . 57357) (PRINTCOPYRIGHT1 57359 . 60483) (SAVECOPYRIGHT 60485 .
|
53550 61068 (PRINTCOPYRIGHT 53560 . 57637) (PRINTCOPYRIGHT1 57639 . 60763) (SAVECOPYRIGHT 60765 .
|
||||||
60786)))))
|
61066)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
346
sources/PROC
346
sources/PROC
@@ -1,14 +1,13 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:19" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;2 175702
|
(FILECREATED "17-Jun-99 21:58:52" {DSK}<project>medley3.5>sources>PROC.;2 173526
|
||||||
|
|
||||||
changes to%: (FNS \PROCESS.INIT)
|
changes to%: (RECORDS MONITORLOCK)
|
||||||
|
|
||||||
previous date%: "17-Jun-99 21:58:52"
|
previous date%: "31-Jan-98 18:03:02" {DSK}<project>medley3.5>sources>PROC.;1)
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;1)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1982-1988, 1990-1993, 1998-1999, 2021 by Venue & Xerox Corporation.
|
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1993, 1998, 1999 by Venue & Xerox Corporation. All rights reserved.
|
||||||
The following program was created in 1982 but has not been published
|
The following program was created in 1982 but has not been published
|
||||||
within the meaning of the copyright law, is furnished under license,
|
within the meaning of the copyright law, is furnished under license,
|
||||||
and may not be used, copied and/or disclosed except in accordance
|
and may not be used, copied and/or disclosed except in accordance
|
||||||
@@ -1303,12 +1302,14 @@ with the terms of said license.
|
|||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS PROCESS.WAIT MACRO [(WAITCOND TIMEOUT)
|
(PUTPROPS PROCESS.WAIT MACRO
|
||||||
(bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT)))
|
[(WAITCOND TIMEOUT)
|
||||||
until (AND $$TIMEOUT (TIMEREXPIRED? $$TIMEOUT))
|
(bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT))) until (AND $$TIMEOUT (
|
||||||
do (if (SETQ $$VAL WAITCOND)
|
TIMEREXPIRED?
|
||||||
then (RETURN $$VAL)
|
$$TIMEOUT))
|
||||||
else (BLOCK])
|
do (if (SETQ $$VAL WAITCOND)
|
||||||
|
then (RETURN $$VAL)
|
||||||
|
else (BLOCK])
|
||||||
)
|
)
|
||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
|
|
||||||
@@ -1592,18 +1593,17 @@ with the terms of said license.
|
|||||||
)
|
)
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS AWAIT.CONDITION MACRO [(CONDITION EVNT TIMEOUT TIMERP)
|
(PUTPROPS AWAIT.CONDITION MACRO
|
||||||
(PROG [($$TIMER TIMEOUT)
|
[(CONDITION EVNT TIMEOUT TIMERP)
|
||||||
($$EV (\DTEST EVNT 'EVENT]
|
(PROG [($$TIMER TIMEOUT)
|
||||||
(DECLARE (LOCALVARS $$TIMER $$EV))
|
($$EV (\DTEST EVNT 'EVENT]
|
||||||
LP (RETURN (OR CONDITION (COND
|
(DECLARE (LOCALVARS $$TIMER $$EV))
|
||||||
((NEQ (\PROCESS.GO.TO.SLEEP
|
LP (RETURN (OR CONDITION (COND
|
||||||
$$EV $$TIMER TIMERP)
|
((NEQ (\PROCESS.GO.TO.SLEEP $$EV $$TIMER TIMERP)
|
||||||
$$EV)
|
$$EV)
|
||||||
NIL)
|
NIL)
|
||||||
(T (AND $$TIMER (SETQ $$TIMER
|
(T (AND $$TIMER (SETQ $$TIMER T))
|
||||||
T))
|
(GO LP])
|
||||||
(GO LP])
|
|
||||||
)
|
)
|
||||||
|
|
||||||
(RPAQ? \PROCESS.AFTEREXIT.EVENT )
|
(RPAQ? \PROCESS.AFTEREXIT.EVENT )
|
||||||
@@ -1646,47 +1646,46 @@ with the terms of said license.
|
|||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS .RELEASE.LOCK. MACRO
|
(PUTPROPS .RELEASE.LOCK. MACRO
|
||||||
[(LOCK EVENIFNOTMINE)
|
[(LOCK EVENIFNOTMINE)
|
||||||
(UNINTERRUPTABLY
|
(UNINTERRUPTABLY
|
||||||
[PROG ((OWNER (ffetch MLOCKOWNER of LOCK))
|
[PROG ((OWNER (ffetch MLOCKOWNER of LOCK))
|
||||||
TAIL PREV NEXTPROC)
|
TAIL PREV NEXTPROC)
|
||||||
(COND
|
(COND
|
||||||
((OR (NULL OWNER)
|
((OR (NULL OWNER)
|
||||||
(AND (NEQ OWNER (THIS.PROCESS))
|
(AND (NEQ OWNER (THIS.PROCESS))
|
||||||
(NOT EVENIFNOTMINE)))
|
(NOT EVENIFNOTMINE)))
|
||||||
(RETURN)))
|
(RETURN)))
|
||||||
(freplace MLOCKOWNER of LOCK with NIL)
|
(freplace MLOCKOWNER of LOCK with NIL)
|
||||||
(* ;
|
(* ;
|
||||||
"Now remove LOCK from my list of owned locks")
|
"Now remove LOCK from my list of owned locks")
|
||||||
[COND
|
[COND
|
||||||
((EQ (SETQ PREV (fetch PROCOWNEDLOCKS of OWNER))
|
((EQ (SETQ PREV (fetch PROCOWNEDLOCKS of OWNER))
|
||||||
LOCK)
|
LOCK)
|
||||||
(replace PROCOWNEDLOCKS of OWNER with (ffetch MLOCKLINK
|
(replace PROCOWNEDLOCKS of OWNER with (ffetch MLOCKLINK
|
||||||
of LOCK)))
|
of LOCK)))
|
||||||
(T (do (COND
|
(T (do (COND
|
||||||
((NULL PREV)
|
((NULL PREV)
|
||||||
(RETURN (\MP.ERROR \MP.PROCERROR
|
(RETURN (\MP.ERROR \MP.PROCERROR
|
||||||
"Lock not found among owner's owned locks" LOCK
|
"Lock not found among owner's owned locks" LOCK)))
|
||||||
)))
|
[(EQ (fetch MLOCKLINK of PREV)
|
||||||
[(EQ (fetch MLOCKLINK of PREV)
|
LOCK)
|
||||||
LOCK)
|
(RETURN (replace MLOCKLINK of PREV
|
||||||
(RETURN (replace MLOCKLINK of PREV
|
with (ffetch MLOCKLINK of LOCK]
|
||||||
with (ffetch MLOCKLINK of LOCK]
|
(T (SETQ PREV (fetch MLOCKLINK of PREV]
|
||||||
(T (SETQ PREV (fetch MLOCKLINK of PREV]
|
(freplace MLOCKLINK of LOCK with NIL)
|
||||||
(freplace MLOCKLINK of LOCK with NIL)
|
(COND
|
||||||
(COND
|
((SETQ TAIL (ffetch MLOCKQUEUETAIL of LOCK))
|
||||||
((SETQ TAIL (ffetch MLOCKQUEUETAIL of LOCK))
|
(SETQ NEXTPROC (fetch PROCEVENTLINK of TAIL))
|
||||||
(SETQ NEXTPROC (fetch PROCEVENTLINK of TAIL))
|
[COND
|
||||||
[COND
|
((EQ NEXTPROC TAIL) (* ; "Only one process in queue")
|
||||||
((EQ NEXTPROC TAIL) (* ; "Only one process in queue")
|
(freplace MLOCKQUEUETAIL of LOCK with NIL))
|
||||||
(freplace MLOCKQUEUETAIL of LOCK with NIL))
|
(T (replace PROCEVENTLINK of TAIL with (fetch PROCEVENTLINK
|
||||||
(T (replace PROCEVENTLINK of TAIL with (fetch
|
of NEXTPROC]
|
||||||
PROCEVENTLINK
|
(replace PROCEVENTLINK of NEXTPROC with (replace PROCEVENTORLOCK
|
||||||
of NEXTPROC]
|
of NEXTPROC with
|
||||||
(replace PROCEVENTLINK of NEXTPROC
|
NIL))
|
||||||
with (replace PROCEVENTORLOCK of NEXTPROC with NIL))
|
(\RUN.PROCESS NEXTPROC LOCK])])
|
||||||
(\RUN.PROCESS NEXTPROC LOCK])])
|
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
@@ -1805,22 +1804,22 @@ with the terms of said license.
|
|||||||
)
|
)
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS WITH.MONITOR MACRO [(LOCK . FORMS)
|
(PUTPROPS WITH.MONITOR MACRO
|
||||||
(LET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*)
|
[(LOCK . FORMS)
|
||||||
(DECLARE (CL:SPECIAL SI::*LOCKED-MONITOR*
|
(LET (SI::*LOCKED-MONITOR* SI::*RESETFORMS*)
|
||||||
SI::*RESETFORMS*))
|
(DECLARE (CL:SPECIAL SI::*LOCKED-MONITOR* SI::*RESETFORMS*))
|
||||||
(CL:UNWIND-PROTECT
|
(CL:UNWIND-PROTECT
|
||||||
(PROGN (OBTAIN.MONITORLOCK LOCK NIL 'WITH.MONITOR)
|
(PROGN (OBTAIN.MONITORLOCK LOCK NIL 'WITH.MONITOR) . FORMS)
|
||||||
. FORMS)
|
(SI::MONITOR-UNWIND))])
|
||||||
(SI::MONITOR-UNWIND))])
|
|
||||||
|
|
||||||
(PUTPROPS WITH.FAST.MONITOR MACRO [(LOCK . FORMS)
|
(PUTPROPS WITH.FAST.MONITOR MACRO
|
||||||
(UNINTERRUPTABLY
|
[(LOCK . FORMS)
|
||||||
([LAMBDA (UNLOCK)
|
(UNINTERRUPTABLY
|
||||||
(PROG1 (PROGN . FORMS)
|
([LAMBDA (UNLOCK)
|
||||||
(AND (NEQ UNLOCK T)
|
(PROG1 (PROGN . FORMS)
|
||||||
(RELEASE.MONITORLOCK UNLOCK)))]
|
(AND (NEQ UNLOCK T)
|
||||||
(OBTAIN.MONITORLOCK LOCK)))])
|
(RELEASE.MONITORLOCK UNLOCK)))]
|
||||||
|
(OBTAIN.MONITORLOCK LOCK)))])
|
||||||
)
|
)
|
||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
|
|
||||||
@@ -2461,52 +2460,51 @@ with the terms of said license.
|
|||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS \RESCHEDULE MACRO
|
(PUTPROPS \RESCHEDULE MACRO
|
||||||
[LAMBDA (OLDPROC)
|
[LAMBDA (OLDPROC)
|
||||||
|
|
||||||
(* ;; "Causes process switch, saving current context in OLDPROC's handle, or nowhere if OLDPROC is NIL. Must be called uninterruptably!")
|
(* ;; "Causes process switch, saving current context in OLDPROC's handle, or nowhere if OLDPROC is NIL. Must be called uninterruptably!")
|
||||||
|
|
||||||
(PROG (PQUEUE PROC)
|
(PROG (PQUEUE PROC)
|
||||||
TOP
|
TOP
|
||||||
|
|
||||||
(* ;; "Maybe check for events here?")
|
(* ;; "Maybe check for events here?")
|
||||||
|
|
||||||
(SETQ PQUEUE \HIGHEST.PRIORITY.QUEUE)
|
(SETQ PQUEUE \HIGHEST.PRIORITY.QUEUE)
|
||||||
LP (COND
|
LP (COND
|
||||||
((SETQ PROC (fetch PQNEXT of PQUEUE))
|
((SETQ PROC (fetch PQNEXT of PQUEUE))
|
||||||
[COND
|
[COND
|
||||||
((NEQ PROC OLDPROC) (* ;
|
((NEQ PROC OLDPROC) (* ;
|
||||||
"Yes, there is a process switch required here. Below is roughly the body of RESUME")
|
"Yes, there is a process switch required here. Below is roughly the body of RESUME")
|
||||||
(LET ((TOFX (fetch PROCFX of PROC))
|
(LET ((TOFX (fetch PROCFX of PROC))
|
||||||
FROMFX)
|
FROMFX)
|
||||||
(COND
|
(COND
|
||||||
((fetch (FX INVALIDP) of TOFX)
|
((fetch (FX INVALIDP) of TOFX)
|
||||||
(\MP.ERROR \MP.STACKRELEASED "Process's stack has been released!"
|
(\MP.ERROR \MP.STACKRELEASED "Process's stack has been released!" PROC)))
|
||||||
PROC)))
|
(SETQ \RUNNING.PROCESS PROC)
|
||||||
(SETQ \RUNNING.PROCESS PROC)
|
(replace PROCFX of PROC with 0)
|
||||||
(replace PROCFX of PROC with 0)
|
(\PROC.RESUME TOFX (COND
|
||||||
(\PROC.RESUME TOFX (COND
|
(OLDPROC (SETQ FROMFX (fetch PROCFX of OLDPROC)
|
||||||
(OLDPROC (SETQ FROMFX (fetch PROCFX
|
)
|
||||||
of OLDPROC))
|
(COND
|
||||||
(COND
|
((NOT (fetch (FX INVALIDP) of FROMFX)
|
||||||
((NOT (fetch (FX INVALIDP)
|
)
|
||||||
of FROMFX))
|
|
||||||
(* ;
|
(* ;
|
||||||
"Release stack pointer of OLDPROC if it hasn't been yet. should never happen")
|
"Release stack pointer of OLDPROC if it hasn't been yet. should never happen")
|
||||||
(\DECUSECOUNT FROMFX)))
|
(\DECUSECOUNT FROMFX)))
|
||||||
(replace PROCFX of OLDPROC
|
(replace PROCFX of OLDPROC with
|
||||||
with (\MYALINK))
|
(\MYALINK))
|
||||||
NIL)
|
NIL)
|
||||||
(T (* ;
|
(T (* ;
|
||||||
"no OLDPROC to resume later, so jettison caller")
|
"no OLDPROC to resume later, so jettison caller")
|
||||||
(\MYALINK]
|
(\MYALINK]
|
||||||
(RETURN (fetch WAKEREASON of PROC)))
|
(RETURN (fetch WAKEREASON of PROC)))
|
||||||
((SETQ PQUEUE (fetch PQLOWER of PQUEUE))
|
((SETQ PQUEUE (fetch PQLOWER of PQUEUE))
|
||||||
(GO LP))
|
(GO LP))
|
||||||
(T (* ;
|
(T (* ;
|
||||||
"nobody runnable, wait for events")
|
"nobody runnable, wait for events")
|
||||||
(\MP.ERROR \MP.PROCERROR "No runnable process!!" OLDPROC)
|
(\MP.ERROR \MP.PROCERROR "No runnable process!!" OLDPROC)
|
||||||
(GO TOP])
|
(GO TOP])
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
(DEFINEQ
|
(DEFINEQ
|
||||||
@@ -2850,19 +2848,22 @@ with the terms of said license.
|
|||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS THIS.PROCESS MACRO (NIL \RUNNING.PROCESS))
|
(PUTPROPS THIS.PROCESS MACRO
|
||||||
|
(NIL \RUNNING.PROCESS))
|
||||||
|
|
||||||
(PUTPROPS TTY.PROCESS MACRO [X (COND
|
(PUTPROPS TTY.PROCESS MACRO
|
||||||
((CAR X)
|
[X (COND
|
||||||
'IGNOREMACRO)
|
((CAR X)
|
||||||
(T '\TTY.PROCESS])
|
'IGNOREMACRO)
|
||||||
|
(T '\TTY.PROCESS])
|
||||||
|
|
||||||
(PUTPROPS TTY.PROCESSP MACRO [X (COND
|
(PUTPROPS TTY.PROCESSP MACRO
|
||||||
((CAR X)
|
[X (COND
|
||||||
'IGNOREMACRO)
|
((CAR X)
|
||||||
(T '(OR (NULL (THIS.PROCESS))
|
'IGNOREMACRO)
|
||||||
(EQ (THIS.PROCESS)
|
(T '(OR (NULL (THIS.PROCESS))
|
||||||
(TTY.PROCESS])
|
(EQ (THIS.PROCESS)
|
||||||
|
(TTY.PROCESS])
|
||||||
)
|
)
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||||
|
|
||||||
@@ -2886,18 +2887,21 @@ with the terms of said license.
|
|||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS ALIVEPROCP MACRO ((p)
|
(PUTPROPS ALIVEPROCP MACRO
|
||||||
(NOT (DEADPROCP p))))
|
((p)
|
||||||
|
(NOT (DEADPROCP p))))
|
||||||
|
|
||||||
(PUTPROPS DEADPROCP MACRO ((p)
|
(PUTPROPS DEADPROCP MACRO
|
||||||
(fetch PROCDELETED of p)))
|
((p)
|
||||||
|
(fetch PROCDELETED of p)))
|
||||||
|
|
||||||
(PUTPROPS \COERCE.TO.PROCESS MACRO [OPENLAMBDA (P ERRORFLG)
|
(PUTPROPS \COERCE.TO.PROCESS MACRO
|
||||||
(COND
|
[OPENLAMBDA (P ERRORFLG)
|
||||||
((AND (type? PROCESS P)
|
(COND
|
||||||
(NOT (fetch PROCDELETED of P)))
|
((AND (type? PROCESS P)
|
||||||
P)
|
(NOT (fetch PROCDELETED of P)))
|
||||||
(T (FIND.PROCESS P ERRORFLG])
|
P)
|
||||||
|
(T (FIND.PROCESS P ERRORFLG])
|
||||||
)
|
)
|
||||||
|
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||||
@@ -3360,41 +3364,41 @@ with the terms of said license.
|
|||||||
(ADDTOVAR LAMA PROCESSPROP ADD.PROCESS)
|
(ADDTOVAR LAMA PROCESSPROP ADD.PROCESS)
|
||||||
)
|
)
|
||||||
(PUTPROPS PROC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
(PUTPROPS PROC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||||
1992 1993 1998 1999 2021))
|
1992 1993 1998 1999))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (22376 42643 (PROCESSWORLD 22386 . 31731) (ADD.PROCESS 31733 . 35890) (DEL.PROCESS 35892
|
(FILEMAP (NIL (22392 42659 (PROCESSWORLD 22402 . 31747) (ADD.PROCESS 31749 . 35906) (DEL.PROCESS 35908
|
||||||
. 36839) (PROCESS.RETURN 36841 . 36988) (FIND.PROCESS 36990 . 37624) (MAP.PROCESSES 37626 . 37952) (
|
. 36855) (PROCESS.RETURN 36857 . 37004) (FIND.PROCESS 37006 . 37640) (MAP.PROCESSES 37642 . 37968) (
|
||||||
PROCESSP 37954 . 38122) (RELPROCESSP 38124 . 38306) (RESTART.PROCESS 38308 . 38877) (WAKE.PROCESS
|
PROCESSP 37970 . 38138) (RELPROCESSP 38140 . 38322) (RESTART.PROCESS 38324 . 38893) (WAKE.PROCESS
|
||||||
38879 . 39609) (SUSPEND.PROCESS 39611 . 39998) (PROCESS.RESULT 40000 . 40978) (PROCESS-STATUS 40980 .
|
38895 . 39625) (SUSPEND.PROCESS 39627 . 40014) (PROCESS.RESULT 40016 . 40994) (PROCESS-STATUS 40996 .
|
||||||
42375) (PROCESS.FINISHEDP 42377 . 42641)) (42644 55851 (THIS.PROCESS 42654 . 42787) (TTY.PROCESS 42789
|
42391) (PROCESS.FINISHEDP 42393 . 42657)) (42660 55867 (THIS.PROCESS 42670 . 42803) (TTY.PROCESS 42805
|
||||||
. 49616) (TTY.PROCESSP 49618 . 49834) (PROCESS.TTY 49836 . 50186) (GIVE.TTY.PROCESS 50188 . 50998) (
|
. 49632) (TTY.PROCESSP 49634 . 49850) (PROCESS.TTY 49852 . 50202) (GIVE.TTY.PROCESS 50204 . 51014) (
|
||||||
ALLOW.BUTTON.EVENTS 51000 . 51244) (SPAWN.MOUSE 51246 . 53459) (\WAIT.FOR.TTY 53461 . 53651) (
|
ALLOW.BUTTON.EVENTS 51016 . 51260) (SPAWN.MOUSE 51262 . 53475) (\WAIT.FOR.TTY 53477 . 53667) (
|
||||||
WAIT.FOR.TTY 53653 . 55849)) (55852 58470 (RESET 55862 . 56694) (ERROR! 56696 . 58468)) (58835 64183 (
|
WAIT.FOR.TTY 53669 . 55865)) (55868 58486 (RESET 55878 . 56710) (ERROR! 56712 . 58484)) (58851 64199 (
|
||||||
PROCESSPROP 58845 . 63297) (PROCESS.NAME 63299 . 63604) (PROCESS.WINDOW 63606 . 64181)) (64385 69420 (
|
PROCESSPROP 58861 . 63313) (PROCESS.NAME 63315 . 63620) (PROCESS.WINDOW 63622 . 64197)) (64401 69436 (
|
||||||
DISMISS 64395 . 65210) (BLOCK 65212 . 67436) (WAITFORINPUT 67438 . 68667) (\WAITFORSYSBUFP 68669 .
|
DISMISS 64411 . 65226) (BLOCK 65228 . 67452) (WAITFORINPUT 67454 . 68683) (\WAITFORSYSBUFP 68685 .
|
||||||
69418)) (69621 70118 (EVAL.AS.PROCESS 69631 . 69854) (EVAL.IN.TTY.PROCESS 69856 . 70116)) (70755 76539
|
69434)) (69637 70134 (EVAL.AS.PROCESS 69647 . 69870) (EVAL.IN.TTY.PROCESS 69872 . 70132)) (70768 76552
|
||||||
(PROCESS.READ 70765 . 71603) (PROCESS.EVALV 71605 . 72183) (PROCESS.EVAL 72185 . 73162) (
|
(PROCESS.READ 70778 . 71616) (PROCESS.EVALV 71618 . 72196) (PROCESS.EVAL 72198 . 73175) (
|
||||||
\PROCESS.EVAL1 73164 . 74267) (PROCESS.APPLY 74269 . 75253) (\PROCESS.APPLY1 75255 . 76537)) (78705
|
\PROCESS.EVAL1 73177 . 74280) (PROCESS.APPLY 74282 . 75266) (\PROCESS.APPLY1 75268 . 76550)) (78718
|
||||||
84010 (CREATE.EVENT 78715 . 78877) (NOTIFY.EVENT 78879 . 80387) (AWAIT.EVENT 80389 . 81011) (
|
84023 (CREATE.EVENT 78728 . 78890) (NOTIFY.EVENT 78892 . 80400) (AWAIT.EVENT 80402 . 81024) (
|
||||||
\UNQUEUE.EVENT 81013 . 82488) (\ENQUEUE.EVENT/LOCK 82490 . 83783) (\EVENT.DEFPRINT 83785 . 84008)) (
|
\UNQUEUE.EVENT 81026 . 82501) (\ENQUEUE.EVENT/LOCK 82503 . 83796) (\EVENT.DEFPRINT 83798 . 84021)) (
|
||||||
90012 95003 (OBTAIN.MONITORLOCK 90022 . 92886) (CREATE.MONITORLOCK 92888 . 93107) (RELEASE.MONITORLOCK
|
89263 94254 (OBTAIN.MONITORLOCK 89273 . 92137) (CREATE.MONITORLOCK 92139 . 92358) (RELEASE.MONITORLOCK
|
||||||
93109 . 93443) (SI::MONITOR-UNWIND 93445 . 94031) (MONITOR.AWAIT.EVENT 94033 . 94767) (
|
92360 . 92694) (SI::MONITOR-UNWIND 92696 . 93282) (MONITOR.AWAIT.EVENT 93284 . 94018) (
|
||||||
\MONITORLOCK.DEFPRINT 94769 . 95001)) (96189 118665 (\MAKE.PROCESS0 96199 . 103398) (\MAKE.PROCESS1
|
\MONITORLOCK.DEFPRINT 94020 . 94252)) (94863 117339 (\MAKE.PROCESS0 94873 . 102072) (\MAKE.PROCESS1
|
||||||
103400 . 104964) (\PROCESS.MOVEFRAME 104966 . 109515) (\RELEASE.PROCESS 109517 . 112567) (
|
102074 . 103638) (\PROCESS.MOVEFRAME 103640 . 108189) (\RELEASE.PROCESS 108191 . 111241) (
|
||||||
\UNWIND.PROCESS 112569 . 112895) (\MAYBEBLOCK 112897 . 113052) (\BACKGROUND.PROCESS 113054 . 113295) (
|
\UNWIND.PROCESS 111243 . 111569) (\MAYBEBLOCK 111571 . 111726) (\BACKGROUND.PROCESS 111728 . 111969) (
|
||||||
\MOUSE.PROCESS 113297 . 115846) (\TIMER.PROCESS 115848 . 116404) (\PROCESS.RELEASE.LOCKS 116406 .
|
\MOUSE.PROCESS 111971 . 114520) (\TIMER.PROCESS 114522 . 115078) (\PROCESS.RELEASE.LOCKS 115080 .
|
||||||
116820) (\SET.PROCESS.NAME 116822 . 118358) (\PROCESS.DEFPRINT 118360 . 118663)) (118666 133021 (
|
115494) (\SET.PROCESS.NAME 115496 . 117032) (\PROCESS.DEFPRINT 117034 . 117337)) (117340 131695 (
|
||||||
\START.PROCESSES 118676 . 118849) (\PROCESS.GO.TO.SLEEP 118851 . 122605) (\PROC.RESUME 122607 . 122981
|
\START.PROCESSES 117350 . 117523) (\PROCESS.GO.TO.SLEEP 117525 . 121279) (\PROC.RESUME 121281 . 121655
|
||||||
) (\RUN.PROCESS 122983 . 126319) (\SUSPEND.PROCESS 126321 . 129382) (\UNQUEUE.TIMER 129384 . 130083) (
|
) (\RUN.PROCESS 121657 . 124993) (\SUSPEND.PROCESS 124995 . 128056) (\UNQUEUE.TIMER 128058 . 128757) (
|
||||||
\ENQUEUE.TIMER 130085 . 131992) (\GET.PRIORITY.QUEUE 131994 . 133019)) (136000 143222 (\PROCESS.INIT
|
\ENQUEUE.TIMER 128759 . 130666) (\GET.PRIORITY.QUEUE 130668 . 131693)) (134377 141599 (\PROCESS.INIT
|
||||||
136010 . 136636) (\PROCESS.EVENTFN 136638 . 138374) (\PROCESS.BEFORE.LOGOUT 138376 . 139895) (
|
134387 . 135013) (\PROCESS.EVENTFN 135015 . 136751) (\PROCESS.BEFORE.LOGOUT 136753 . 138272) (
|
||||||
\PROCESS.AFTER.EXIT 139897 . 140205) (\PROCESS.RESET.TIMERS 140207 . 141736) (\PROC.AFTER.WINDOWWORLD
|
\PROCESS.AFTER.EXIT 138274 . 138582) (\PROCESS.RESET.TIMERS 138584 . 140113) (\PROC.AFTER.WINDOWWORLD
|
||||||
141738 . 142423) (\TURN.ON.PROCESSES 142425 . 143220)) (143253 144482 (\PROC.CODEFORTFRAME 143263 .
|
140115 . 140800) (\TURN.ON.PROCESSES 140802 . 141597)) (141630 142859 (\PROC.CODEFORTFRAME 141640 .
|
||||||
144084) (\PROC.REPEATEDLYEVALQT 144086 . 144480)) (144516 151248 (BREAK.PROCESS 144526 . 144842) (
|
142461) (\PROC.REPEATEDLYEVALQT 142463 . 142857)) (142893 149625 (BREAK.PROCESS 142903 . 143219) (
|
||||||
\SELECTPROCESS 144844 . 147284) (\PROCESS.MAKEFRAME 147286 . 149337) (\PROCESS.MAKEFRAME0 149339 .
|
\SELECTPROCESS 143221 . 145661) (\PROCESS.MAKEFRAME 145663 . 147714) (\PROCESS.MAKEFRAME0 147716 .
|
||||||
151246)) (154009 155932 (\CHECK.PQUEUE 154019 . 155930)) (155933 174262 (PPROC 155943 . 157224) (
|
149623)) (151838 153761 (\CHECK.PQUEUE 151848 . 153759)) (153762 172091 (PPROC 153772 . 155053) (
|
||||||
PPROCWINDOW 157226 . 157717) (PPROCREPAINTFN 157719 . 158433) (PPROCRESHAPEFN 158435 . 158698) (
|
PPROCWINDOW 155055 . 155546) (PPROCREPAINTFN 155548 . 156262) (PPROCRESHAPEFN 156264 . 156527) (
|
||||||
PPROCEXTENT 158700 . 159184) (PPROC1 159186 . 161204) (PROCESS.STATUS.WINDOW 161206 . 165288) (
|
PPROCEXTENT 156529 . 157013) (PPROC1 157015 . 159033) (PROCESS.STATUS.WINDOW 159035 . 163117) (
|
||||||
\PSW.SELECTED 165290 . 165584) (\PSWOP.SELECTED 165586 . 169486) (PROCESS.BACKTRACE 169488 . 172679) (
|
\PSW.SELECTED 163119 . 163413) (\PSWOP.SELECTED 163415 . 167315) (PROCESS.BACKTRACE 167317 . 170508) (
|
||||||
\INVALIDATE.PROCESS.WINDOW 172681 . 173415) (\UPDATE.PROCESS.WINDOW 173417 . 174260)))))
|
\INVALIDATE.PROCESS.WINDOW 170510 . 171244) (\UPDATE.PROCESS.WINDOW 171246 . 172089)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
85
sources/SPP
85
sources/SPP
@@ -1,20 +1,17 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:44" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.;2 107386
|
(FILECREATED "19-Jan-93 11:20:29" {DSK}<python>lde>lispcore>sources>SPP.;3 107246
|
||||||
|
|
||||||
changes to%: (FNS \CREATE.SPP.DEVICE)
|
previous date%: " 5-Jan-93 02:24:51" {DSK}<python>lde>lispcore>sources>SPP.;2)
|
||||||
|
|
||||||
previous date%: "19-Jan-93 11:20:29"
|
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.;1)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
Copyright (c) 1983-1988, 1990-1991, 1993, 2021 by Xerox Corporation.
|
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1993 by Xerox Corporation. All rights reserved.
|
||||||
")
|
")
|
||||||
|
|
||||||
(PRETTYCOMPRINT SPPCOMS)
|
(PRETTYCOMPRINT SPPCOMS)
|
||||||
|
|
||||||
(RPAQQ SPPCOMS
|
(RPAQQ SPPCOMS
|
||||||
((COMS (* ; "Sequenced Packet Protocol.")
|
((COMS (* ; "Sequenced Packet Protocol.")
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
|
||||||
SPPDECLS)
|
SPPDECLS)
|
||||||
(MACROS RETRANSMITINDEX SEQ.ADD1 SEQ.GREATERP SEQ.GEQ)
|
(MACROS RETRANSMITINDEX SEQ.ADD1 SEQ.GREATERP SEQ.GEQ)
|
||||||
@@ -32,8 +29,8 @@ Copyright (c) 1983-1988, 1990-1991, 1993, 2021 by Xerox Corporation.
|
|||||||
(FNS \SPPWATCHER \SPP.HANDLE.INPUT \SPP.HANDLE.DATA \SPP.HANDLE.ATTN
|
(FNS \SPPWATCHER \SPP.HANDLE.INPUT \SPP.HANDLE.DATA \SPP.HANDLE.ATTN
|
||||||
\SPP.RELEASE.ACKED.PACKETS \SPP.NOT.RESPONDING \SPP.PROBE \SPP.RETRANSMIT.NEXT
|
\SPP.RELEASE.ACKED.PACKETS \SPP.NOT.RESPONDING \SPP.PROBE \SPP.RETRANSMIT.NEXT
|
||||||
\SPP.DUPLICATE.REQUEST \SPP.ESTABLISH \SPPGETERROR \SPPSENDERROR))
|
\SPP.DUPLICATE.REQUEST \SPP.ESTABLISH \SPPGETERROR \SPPSENDERROR))
|
||||||
[COMS (* ;
|
[COMS (* ;
|
||||||
"Stream interface to Sequenced Packet Protocol.")
|
"Stream interface to Sequenced Packet Protocol.")
|
||||||
(FNS \INITSPP \SPP.EVENTFN \CREATE.SPP.DEVICE SPP.OPEN \SPP.CREATE.STREAM
|
(FNS \INITSPP \SPP.EVENTFN \CREATE.SPP.DEVICE SPP.OPEN \SPP.CREATE.STREAM
|
||||||
SPP.DESTADDRESS SPPOUTPUTSTREAM SPP.OPENP \STREAM.FROM.PACKET SPP.FORCEOUTPUT
|
SPP.DESTADDRESS SPPOUTPUTSTREAM SPP.OPENP \STREAM.FROM.PACKET SPP.FORCEOUTPUT
|
||||||
SPP.FLUSH.TO.EOF SPP.SENDEOM SPP.CLEAREOM SPP.SENDATTENTION SPP.CLEARATTENTION
|
SPP.FLUSH.TO.EOF SPP.SENDEOM SPP.CLEAREOM SPP.SENDATTENTION SPP.CLEARATTENTION
|
||||||
@@ -43,7 +40,7 @@ Copyright (c) 1983-1988, 1990-1991, 1993, 2021 by Xerox Corporation.
|
|||||||
SPP.DSTYPE SPP.READP SPP.EOFP)
|
SPP.DSTYPE SPP.READP SPP.EOFP)
|
||||||
(FNS SPPSTREAMP)
|
(FNS SPPSTREAMP)
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INITSPP]
|
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INITSPP]
|
||||||
(COMS (* ; "Debugging")
|
(COMS (* ; "Debugging")
|
||||||
(ALISTS (XIPPRINTMACROS 5))
|
(ALISTS (XIPPRINTMACROS 5))
|
||||||
(FNS PPSPP \SPP.INFO.HOOK PPSPPSTREAM \SPP.CHECK.INPUT.QUEUE PRINTSPP)
|
(FNS PPSPP \SPP.INFO.HOOK PPSPPSTREAM \SPP.CHECK.INPUT.QUEUE PRINTSPP)
|
||||||
(INITVARS (PRINTSPPDATAFLG))
|
(INITVARS (PRINTSPPDATAFLG))
|
||||||
@@ -60,20 +57,20 @@ Copyright (c) 1983-1988, 1990-1991, 1993, 2021 by Xerox Corporation.
|
|||||||
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
(DECLARE%: EVAL@COMPILE
|
||||||
|
|
||||||
(PUTPROPS RETRANSMITINDEX MACRO ((SEQNO)
|
(PUTPROPS RETRANSMITINDEX MACRO ((SEQNO)
|
||||||
(IMOD SEQNO \SPP.RETRANSMITQ.SIZE)))
|
(IMOD SEQNO \SPP.RETRANSMITQ.SIZE)))
|
||||||
|
|
||||||
(PUTPROPS SEQ.ADD1 MACRO [(FORM INC)
|
[PUTPROPS SEQ.ADD1 MACRO ((FORM INC)
|
||||||
(\LOLOC (\ADDBASE FORM (OR INC 1])
|
(\LOLOC (\ADDBASE FORM (OR INC 1]
|
||||||
|
|
||||||
(PUTPROPS SEQ.GREATERP MACRO ((X Y)
|
(PUTPROPS SEQ.GREATERP MACRO ((X Y)
|
||||||
(ILESSP (\LOLOC (IDIFFERENCE (IDIFFERENCE X Y)
|
(ILESSP (\LOLOC (IDIFFERENCE (IDIFFERENCE X Y)
|
||||||
1))
|
1))
|
||||||
32768)))
|
32768)))
|
||||||
|
|
||||||
(PUTPROPS SEQ.GEQ MACRO ((X Y)
|
(PUTPROPS SEQ.GEQ MACRO ((X Y)
|
||||||
(ILESSP (\LOLOC (IDIFFERENCE X Y))
|
(ILESSP (\LOLOC (IDIFFERENCE X Y))
|
||||||
32768)))
|
32768)))
|
||||||
)
|
)
|
||||||
|
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||||
@@ -1892,27 +1889,27 @@ Copyright (c) 1983-1988, 1990-1991, 1993, 2021 by Xerox Corporation.
|
|||||||
|
|
||||||
(GLOBALVARS PRINTSPPDATAFLG)
|
(GLOBALVARS PRINTSPPDATAFLG)
|
||||||
)
|
)
|
||||||
(PUTPROPS SPP COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1991 1993 2021))
|
(PUTPROPS SPP COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1991 1993))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (8890 29259 (\SPPCONNECTION 8900 . 10083) (\SPP.CREATE.CON 10085 . 11032) (
|
(FILEMAP (NIL (8755 29124 (\SPPCONNECTION 8765 . 9948) (\SPP.CREATE.CON 9950 . 10897) (
|
||||||
\SPP.CREATE.STREAMS 11034 . 11920) (\SPP.CREATE.WATCHER 11922 . 12734) (\SPP.SENDPKT 12736 . 16331) (
|
\SPP.CREATE.STREAMS 10899 . 11785) (\SPP.CREATE.WATCHER 11787 . 12599) (\SPP.SENDPKT 12601 . 16196) (
|
||||||
\FILLINSPP 16333 . 17131) (\SPP.SYSPKT 17133 . 18083) (\GETSPP 18085 . 20394) (\SENDSPP 20396 . 23864)
|
\FILLINSPP 16198 . 16996) (\SPP.SYSPKT 16998 . 17948) (\GETSPP 17950 . 20259) (\SENDSPP 20261 . 23729)
|
||||||
(\SPP.SEND.ENDREPLY 23866 . 24294) (\TERMINATESPP 24296 . 26552) (\SPP.CLEANUP 26554 . 29257)) (29260
|
(\SPP.SEND.ENDREPLY 23731 . 24159) (\TERMINATESPP 24161 . 26417) (\SPP.CLEANUP 26419 . 29122)) (29125
|
||||||
64314 (\SPPWATCHER 29270 . 36551) (\SPP.HANDLE.INPUT 36553 . 45376) (\SPP.HANDLE.DATA 45378 . 50139)
|
64179 (\SPPWATCHER 29135 . 36416) (\SPP.HANDLE.INPUT 36418 . 45241) (\SPP.HANDLE.DATA 45243 . 50004)
|
||||||
(\SPP.HANDLE.ATTN 50141 . 51622) (\SPP.RELEASE.ACKED.PACKETS 51624 . 53157) (\SPP.NOT.RESPONDING 53159
|
(\SPP.HANDLE.ATTN 50006 . 51487) (\SPP.RELEASE.ACKED.PACKETS 51489 . 53022) (\SPP.NOT.RESPONDING 53024
|
||||||
. 55873) (\SPP.PROBE 55875 . 56144) (\SPP.RETRANSMIT.NEXT 56146 . 58266) (\SPP.DUPLICATE.REQUEST
|
. 55738) (\SPP.PROBE 55740 . 56009) (\SPP.RETRANSMIT.NEXT 56011 . 58131) (\SPP.DUPLICATE.REQUEST
|
||||||
58268 . 58860) (\SPP.ESTABLISH 58862 . 63497) (\SPPGETERROR 63499 . 63953) (\SPPSENDERROR 63955 .
|
58133 . 58725) (\SPP.ESTABLISH 58727 . 63362) (\SPPGETERROR 63364 . 63818) (\SPPSENDERROR 63820 .
|
||||||
64312)) (64378 96249 (\INITSPP 64388 . 65023) (\SPP.EVENTFN 65025 . 65595) (\CREATE.SPP.DEVICE 65597
|
64177)) (64243 96114 (\INITSPP 64253 . 64888) (\SPP.EVENTFN 64890 . 65460) (\CREATE.SPP.DEVICE 65462
|
||||||
. 66491) (SPP.OPEN 66493 . 72101) (\SPP.CREATE.STREAM 72103 . 72302) (SPP.DESTADDRESS 72304 . 72751)
|
. 66356) (SPP.OPEN 66358 . 71966) (\SPP.CREATE.STREAM 71968 . 72167) (SPP.DESTADDRESS 72169 . 72616)
|
||||||
(SPPOUTPUTSTREAM 72753 . 73043) (SPP.OPENP 73045 . 73361) (\STREAM.FROM.PACKET 73363 . 73899) (
|
(SPPOUTPUTSTREAM 72618 . 72908) (SPP.OPENP 72910 . 73226) (\STREAM.FROM.PACKET 73228 . 73764) (
|
||||||
SPP.FORCEOUTPUT 73901 . 75438) (SPP.FLUSH.TO.EOF 75440 . 76584) (SPP.SENDEOM 76586 . 77384) (
|
SPP.FORCEOUTPUT 73766 . 75303) (SPP.FLUSH.TO.EOF 75305 . 76449) (SPP.SENDEOM 76451 . 77249) (
|
||||||
SPP.CLEAREOM 77386 . 77991) (SPP.SENDATTENTION 77993 . 78619) (SPP.CLEARATTENTION 78621 . 79373) (
|
SPP.CLEAREOM 77251 . 77856) (SPP.SENDATTENTION 77858 . 78484) (SPP.CLEARATTENTION 78486 . 79238) (
|
||||||
SPP.CLOSE 79375 . 80441) (\SPP.CLOSE.IF.ERROR 80443 . 80615) (\SPP.RESETCLOSE 80617 . 80865) (
|
SPP.CLOSE 79240 . 80306) (\SPP.CLOSE.IF.ERROR 80308 . 80480) (\SPP.RESETCLOSE 80482 . 80730) (
|
||||||
SPP.BACKFILEPTR 80867 . 81168) (\SPP.GETFILEPTR 81170 . 81408) (\SPP.SETFILEPTR 81410 . 82121) (
|
SPP.BACKFILEPTR 80732 . 81033) (\SPP.GETFILEPTR 81035 . 81273) (\SPP.SETFILEPTR 81275 . 81986) (
|
||||||
\SPP.SKIPBYTES 82123 . 83162) (\SPP.BOUTS 83164 . 83925) (\SPP.OTHER.BOUT 83927 . 84282) (
|
\SPP.SKIPBYTES 81988 . 83027) (\SPP.BOUTS 83029 . 83790) (\SPP.OTHER.BOUT 83792 . 84147) (
|
||||||
\SPP.GETNEXTBUFFER 84284 . 86222) (\SPP.STREAM.LOST 86224 . 86382) (\SPP.DEFAULT.ERRORHANDLER 86384 .
|
\SPP.GETNEXTBUFFER 84149 . 86087) (\SPP.STREAM.LOST 86089 . 86247) (\SPP.DEFAULT.ERRORHANDLER 86249 .
|
||||||
87163) (\SPP.PREPARE.INPUT 87165 . 92016) (\SPP.PREPARE.OUTPUT 92018 . 93442) (SPP.DSTYPE 93444 .
|
87028) (\SPP.PREPARE.INPUT 87030 . 91881) (\SPP.PREPARE.OUTPUT 91883 . 93307) (SPP.DSTYPE 93309 .
|
||||||
94964) (SPP.READP 94966 . 95361) (SPP.EOFP 95363 . 96247)) (96250 96485 (SPPSTREAMP 96260 . 96483)) (
|
94829) (SPP.READP 94831 . 95226) (SPP.EOFP 95228 . 96112)) (96115 96350 (SPPSTREAMP 96125 . 96348)) (
|
||||||
96609 107169 (PPSPP 96619 . 101808) (\SPP.INFO.HOOK 101810 . 102683) (PPSPPSTREAM 102685 . 103054) (
|
96474 107034 (PPSPP 96484 . 101673) (\SPP.INFO.HOOK 101675 . 102548) (PPSPPSTREAM 102550 . 102919) (
|
||||||
\SPP.CHECK.INPUT.QUEUE 103056 . 104356) (PRINTSPP 104358 . 107167)))))
|
\SPP.CHECK.INPUT.QUEUE 102921 . 104221) (PRINTSPP 104223 . 107032)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
BIN
sources/SPP.LCOM
BIN
sources/SPP.LCOM
Binary file not shown.
2681
sources/TEXTOFD
2681
sources/TEXTOFD
File diff suppressed because it is too large
Load Diff
Binary file not shown.
126
sources/TTYIN
126
sources/TTYIN
@@ -1,11 +1,11 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:25"
|
(FILECREATED "27-Aug-2021 17:02:43"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;21 329100
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;19 329093
|
||||||
|
|
||||||
changes to%: (FNS TTYINBUFFERDEVICE)
|
changes to%: (VARS TTYINCOMS)
|
||||||
|
|
||||||
previous date%: "27-Aug-2021 17:02:43"
|
previous date%: "27-Aug-2021 16:49:59"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;20)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;18)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -6076,62 +6076,62 @@ DONTEVAL@LOAD EVAL@COMPILE
|
|||||||
(PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
(PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
|
||||||
2021))
|
2021))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (7803 207838 (TTYIN 7813 . 21046) (TTYIN.SETUP 21048 . 24124) (TTYIN.CLEANUP 24126 .
|
(FILEMAP (NIL (7796 207831 (TTYIN 7806 . 21039) (TTYIN.SETUP 21041 . 24117) (TTYIN.CLEANUP 24119 .
|
||||||
24954) (TTYIN1 24956 . 51840) (TTYIN1RESTART 51842 . 53106) (TTYIN.FINISH 53108 . 62525) (
|
24947) (TTYIN1 24949 . 51833) (TTYIN1RESTART 51835 . 53099) (TTYIN.FINISH 53101 . 62518) (
|
||||||
TTYIN.BALANCE 62527 . 63653) (ADDCHAR 63655 . 65841) (TTMAKECOMPLEXCHAR 65843 . 66317) (ADDNAKEDCHAR
|
TTYIN.BALANCE 62520 . 63646) (ADDCHAR 63648 . 65834) (TTMAKECOMPLEXCHAR 65836 . 66310) (ADDNAKEDCHAR
|
||||||
66319 . 67829) (TTADDTAB 67831 . 68766) (ADJUSTLINE 68768 . 82679) (ADJUSTLINE.AND.RESTORE 82681 .
|
66312 . 67822) (TTADDTAB 67824 . 68759) (ADJUSTLINE 68761 . 82672) (ADJUSTLINE.AND.RESTORE 82674 .
|
||||||
83119) (AT.END.OF.SCREEN 83121 . 83409) (AT.END.OF.TEXT 83411 . 83866) (AUTOCR? 83868 . 84342) (
|
83112) (AT.END.OF.SCREEN 83114 . 83402) (AT.END.OF.TEXT 83404 . 83859) (AUTOCR? 83861 . 84335) (
|
||||||
BACKSKREAD 84344 . 88929) (BACKWARD.DELETE.TO 88931 . 89113) (BREAKLINE 89115 . 91382) (BUFTAILP 91384
|
BACKSKREAD 84337 . 88922) (BACKWARD.DELETE.TO 88924 . 89106) (BREAKLINE 89108 . 91375) (BUFTAILP 91377
|
||||||
. 91702) (CHECK.MARGIN 91704 . 92327) (CLEAR.LINE? 92329 . 92622) (CURRENT.WORD 92624 . 95024) (
|
. 91695) (CHECK.MARGIN 91697 . 92320) (CLEAR.LINE? 92322 . 92615) (CURRENT.WORD 92617 . 95017) (
|
||||||
DELETE.TO.END 95026 . 95745) (DELETELINE 95747 . 98704) (DELETETO 98706 . 100528) (DELETETO1 100530 .
|
DELETE.TO.END 95019 . 95738) (DELETELINE 95740 . 98697) (DELETETO 98699 . 100521) (DELETETO1 100523 .
|
||||||
101873) (DO.EDIT.COMMAND 101875 . 119194) (DO.EDIT.PP 119196 . 121858) (TTDOTABS 121860 . 123230) (
|
101866) (DO.EDIT.COMMAND 101868 . 119187) (DO.EDIT.PP 119189 . 121851) (TTDOTABS 121853 . 123223) (
|
||||||
EDITCOLUMN 123232 . 123688) (EDITNUMBERP 123690 . 123921) (END.DELETE.MODE 123923 . 124440) (ENDREAD?
|
EDITCOLUMN 123225 . 123681) (EDITNUMBERP 123683 . 123914) (END.DELETE.MODE 123916 . 124433) (ENDREAD?
|
||||||
124442 . 126877) (FIND.LINE 126879 . 128415) (FIND.LINE.BREAK 128417 . 129087) (FIND.MATCHING.QUOTE
|
124435 . 126870) (FIND.LINE 126872 . 128408) (FIND.LINE.BREAK 128410 . 129080) (FIND.MATCHING.QUOTE
|
||||||
129089 . 129934) (FIND.NEXT.WORD 129936 . 131315) (FIND.NON.SPACE 131317 . 131590) (FIND.START.OF.WORD
|
129082 . 129927) (FIND.NEXT.WORD 129929 . 131308) (FIND.NON.SPACE 131310 . 131583) (FIND.START.OF.WORD
|
||||||
131592 . 131955) (FORWARD.DELETE.TO 131957 . 134179) (GO.TO.ADDRESSING 134181 . 135137) (
|
131585 . 131948) (FORWARD.DELETE.TO 131950 . 134172) (GO.TO.ADDRESSING 134174 . 135130) (
|
||||||
GO.TO.FREELINE 135139 . 135720) (GO.TO.RELATIVE 135722 . 136502) (INIT.CURSOR 136504 . 137401) (
|
GO.TO.FREELINE 135132 . 135713) (GO.TO.RELATIVE 135715 . 136495) (INIT.CURSOR 136497 . 137394) (
|
||||||
INSERT.NODE 137403 . 137925) (INSERTLINE 137927 . 139431) (KILL.LINES 139433 . 139971) (KILLSEGMENT
|
INSERT.NODE 137396 . 137918) (INSERTLINE 137920 . 139424) (KILL.LINES 139426 . 139964) (KILLSEGMENT
|
||||||
139973 . 141096) (L-CASECODE 141098 . 141259) (MOVE.BACK.TO 141261 . 141490) (MOVE.FORWARD.TO 141492
|
139966 . 141089) (L-CASECODE 141091 . 141252) (MOVE.BACK.TO 141254 . 141483) (MOVE.FORWARD.TO 141485
|
||||||
. 141913) (MOVE.TO.LINE 141915 . 142830) (MOVE.TO.NEXT.LINE 142832 . 143102) (MOVE.TO.START.OF.WORD
|
. 141906) (MOVE.TO.LINE 141908 . 142823) (MOVE.TO.NEXT.LINE 142825 . 143095) (MOVE.TO.START.OF.WORD
|
||||||
143104 . 143868) (MOVE.TO.WHEREVER 143870 . 144093) (NTH.COLUMN.OF 144095 . 144426) (
|
143097 . 143861) (MOVE.TO.WHEREVER 143863 . 144086) (NTH.COLUMN.OF 144088 . 144419) (
|
||||||
NTH.RELATIVE.COLUMN.OF 144428 . 145728) (OVERFLOW? 145730 . 146678) (OVERFLOWLINE? 146680 . 147006) (
|
NTH.RELATIVE.COLUMN.OF 144421 . 145721) (OVERFLOW? 145723 . 146671) (OVERFLOWLINE? 146673 . 146999) (
|
||||||
PREVLINE 147008 . 148188) (PREVWORD 148190 . 150331) (PROPERTAILP 150333 . 150540) (READFROMBUF 150542
|
PREVLINE 147001 . 148181) (PREVWORD 148183 . 150324) (PROPERTAILP 150326 . 150533) (READFROMBUF 150535
|
||||||
. 153131) (RENUMBER.LINES 153133 . 153526) (RESTORE.CURSOR 153528 . 153682) (RESTOREBUF 153684 .
|
. 153124) (RENUMBER.LINES 153126 . 153519) (RESTORE.CURSOR 153521 . 153675) (RESTOREBUF 153677 .
|
||||||
155868) (RETYPE.BUFFER 155870 . 158133) (SAVE.CURSOR 158135 . 158307) (SCANBACK 158309 . 159667) (
|
155861) (RETYPE.BUFFER 155863 . 158126) (SAVE.CURSOR 158128 . 158300) (SCANBACK 158302 . 159660) (
|
||||||
SCANFORWARD 159669 . 160537) (SCRATCHCONS 160539 . 161141) (SEGMENT.LENGTH 161143 . 161679) (
|
SCANFORWARD 159662 . 160530) (SCRATCHCONS 160532 . 161134) (SEGMENT.LENGTH 161136 . 161672) (
|
||||||
SEGMENT.BIT.LENGTH 161681 . 162288) (SETLASTC 162290 . 162587) (SETTAIL? 162589 . 163405) (
|
SEGMENT.BIT.LENGTH 161674 . 162281) (SETLASTC 162283 . 162580) (SETTAIL? 162582 . 163398) (
|
||||||
SHOW.MATCHING.PAREN 163407 . 165907) (SKIP/ZAP 165909 . 168388) (START.NEW.LINE 168390 . 168722) (
|
SHOW.MATCHING.PAREN 163400 . 165900) (SKIP/ZAP 165902 . 168381) (START.NEW.LINE 168383 . 168715) (
|
||||||
START.OF.PARAGRAPH? 168724 . 169105) (TTADJUSTWORD 169107 . 170281) (TTBIN 170283 . 171489) (
|
START.OF.PARAGRAPH? 168717 . 169098) (TTADJUSTWORD 169100 . 170274) (TTBIN 170276 . 171482) (
|
||||||
TTBITWIDTH 171491 . 171640) (TTCRLF 171642 . 171849) (TTCRLF.ACCOUNT 171851 . 172491) (TTDELETECHAR
|
TTBITWIDTH 171484 . 171633) (TTCRLF 171635 . 171842) (TTCRLF.ACCOUNT 171844 . 172484) (TTDELETECHAR
|
||||||
172493 . 173637) (TTDELETELINE 173639 . 175587) (TTDELETEWORD 175589 . 176257) (TTECHO.TO.FILE 176259
|
172486 . 173630) (TTDELETELINE 173632 . 175580) (TTDELETEWORD 175582 . 176250) (TTECHO.TO.FILE 176252
|
||||||
. 179818) (TTGIVEHELP 179820 . 181085) (TTGIVEHELP1 181087 . 181669) (TTGIVEHELP2 181671 . 182366) (
|
. 179811) (TTGIVEHELP 179813 . 181078) (TTGIVEHELP1 181080 . 181662) (TTGIVEHELP2 181664 . 182359) (
|
||||||
TTLASTLINE 182368 . 182736) (TTLOADBUF 182738 . 186232) (TTNEXTLINE 186234 . 186554) (TTNEXTNODE
|
TTLASTLINE 182361 . 182729) (TTLOADBUF 182731 . 186225) (TTNEXTLINE 186227 . 186547) (TTNEXTNODE
|
||||||
186556 . 186795) (TTNLEFT 186797 . 188024) (TTNTH 188026 . 188485) (TTNTHLINE 188487 . 189019) (
|
186549 . 186788) (TTNLEFT 186790 . 188017) (TTNTH 188019 . 188478) (TTNTHLINE 188480 . 189012) (
|
||||||
TTPRIN1 189021 . 192834) (TTPRINSPACE 192836 . 193229) (TTPRIN1COMMENT 193231 . 193555) (TTPRIN2
|
TTPRIN1 189014 . 192827) (TTPRINSPACE 192829 . 193222) (TTPRIN1COMMENT 193224 . 193548) (TTPRIN2
|
||||||
193557 . 195876) (TTPROMPTCHAR 195878 . 196774) (TTRUBOUT 196776 . 197739) (TTUNREADBUF 197741 .
|
193550 . 195869) (TTPROMPTCHAR 195871 . 196767) (TTRUBOUT 196769 . 197732) (TTUNREADBUF 197734 .
|
||||||
198150) (TTWAITFORINPUT 198152 . 202360) (TTYINSTRING 202362 . 203321) (TYPE.BUFFER 203323 . 205075) (
|
198143) (TTWAITFORINPUT 198145 . 202353) (TTYINSTRING 202355 . 203314) (TYPE.BUFFER 203316 . 205068) (
|
||||||
U-CASECODE 205077 . 205236) (U/L-CASE 205238 . 207836)) (207993 217352 (TTRATOM 208003 . 208447) (
|
U-CASECODE 205070 . 205229) (U/L-CASE 205231 . 207829)) (207986 217345 (TTRATOM 207996 . 208440) (
|
||||||
TTREADLIST 208449 . 208816) (TTSKIPSEPR 208818 . 209192) (TTSKREAD 209194 . 213834) (TTYIN.READ 213836
|
TTREADLIST 208442 . 208809) (TTSKIPSEPR 208811 . 209185) (TTSKREAD 209187 . 213827) (TTYIN.READ 213829
|
||||||
. 217350)) (217399 237443 (FIND.MATCHING.WORD 217409 . 217937) (TTCOMPLETEWORD 217939 . 232367) (
|
. 217343)) (217392 237436 (FIND.MATCHING.WORD 217402 . 217930) (TTCOMPLETEWORD 217932 . 232360) (
|
||||||
WORD.MATCHES.BUFFER 232369 . 233929) (TTYIN.SHOW.?ALTERNATIVES 233931 . 237441)) (237477 255787 (
|
WORD.MATCHES.BUFFER 232362 . 233922) (TTYIN.SHOW.?ALTERNATIVES 233924 . 237434)) (237470 255780 (
|
||||||
DO?CMD 237487 . 243389) (TTYIN.PRINTARGS 243391 . 254249) (TTYIN.READ?=ARGS 254251 . 255032) (
|
DO?CMD 237480 . 243382) (TTYIN.PRINTARGS 243384 . 254242) (TTYIN.READ?=ARGS 254244 . 255025) (
|
||||||
DO?CMD.ERRORHANDLER 255034 . 255785)) (255821 263894 (BEEP 255831 . 256006) (BITBLT.DELETE 256008 .
|
DO?CMD.ERRORHANDLER 255027 . 255778)) (255814 263887 (BEEP 255824 . 255999) (BITBLT.DELETE 256001 .
|
||||||
256655) (BITBLT.ERASE 256657 . 256842) (BITBLT.INSERT 256844 . 257155) (DO.CRLF 257157 . 257476) (
|
256648) (BITBLT.ERASE 256650 . 256835) (BITBLT.INSERT 256837 . 257148) (DO.CRLF 257150 . 257469) (
|
||||||
DO.DELETE.LINES 257478 . 258522) (DO.INSERT.LINE 258524 . 260458) (DO.LF 260460 . 260626) (
|
DO.DELETE.LINES 257471 . 258515) (DO.INSERT.LINE 258517 . 260451) (DO.LF 260453 . 260619) (
|
||||||
ERASE.TO.END.OF.LINE 260628 . 260953) (ERASE.TO.END.OF.PAGE 260955 . 261560) (INSERT.TEXT 261562 .
|
ERASE.TO.END.OF.LINE 260621 . 260946) (ERASE.TO.END.OF.PAGE 260948 . 261553) (INSERT.TEXT 261555 .
|
||||||
262066) (TTDELSECTION 262068 . 262366) (TTADJUSTWIDTH 262368 . 263232) (TTINSERTSECTION 263234 .
|
262059) (TTDELSECTION 262061 . 262359) (TTADJUSTWIDTH 262361 . 263225) (TTINSERTSECTION 263227 .
|
||||||
263573) (TTSETCURSOR 263575 . 263892)) (263929 268906 (TTYINBUFFERDEVICE 263939 . 265255) (
|
263566) (TTSETCURSOR 263568 . 263885)) (263922 268899 (TTYINBUFFERDEVICE 263932 . 265248) (
|
||||||
TTYINBUFFERSTREAM 265257 . 266019) (TTYINBUFFERBIN 266021 . 266557) (TTYINBUFFERPEEK 266559 . 267037)
|
TTYINBUFFERSTREAM 265250 . 266012) (TTYINBUFFERBIN 266014 . 266550) (TTYINBUFFERPEEK 266552 . 267030)
|
||||||
(TTYINBUFFERREADP 267039 . 267294) (TTYINBUFFEREOFP 267296 . 267548) (TTYINBUFFERBACKPTR 267550 .
|
(TTYINBUFFERREADP 267032 . 267287) (TTYINBUFFEREOFP 267289 . 267541) (TTYINBUFFERBACKPTR 267543 .
|
||||||
268102) (TTYINWORDRDTBL 268104 . 268904)) (269067 294624 (DO.MOUSE 269077 . 271834) (
|
268095) (TTYINWORDRDTBL 268097 . 268897)) (269060 294617 (DO.MOUSE 269070 . 271827) (
|
||||||
DO.SHIFTED.SELECTION 271836 . 282275) (COPY.SEGMENT 282277 . 282481) (DELETE.LONG.SEGMENT 282483 .
|
DO.SHIFTED.SELECTION 271829 . 282268) (COPY.SEGMENT 282270 . 282474) (DELETE.LONG.SEGMENT 282476 .
|
||||||
282842) (DELETE.LONG.SEGMENT1 282844 . 285320) (INVERT.LONG.SEGMENT 285322 . 286351) (INVERT.SEGMENT
|
282835) (DELETE.LONG.SEGMENT1 282837 . 285313) (INVERT.LONG.SEGMENT 285315 . 286344) (INVERT.SEGMENT
|
||||||
286353 . 287868) (BRACKET.CURRENT.WORD 287870 . 289404) (TTBEFOREPOS 289406 . 290136) (TTNEXTPOS
|
286346 . 287861) (BRACKET.CURRENT.WORD 287863 . 289397) (TTBEFOREPOS 289399 . 290129) (TTNEXTPOS
|
||||||
290138 . 290846) (TTRACKMOUSE 290848 . 294622)) (294768 300023 (SETREADFN 294778 . 295256) (
|
290131 . 290839) (TTRACKMOUSE 290841 . 294615)) (294761 300016 (SETREADFN 294771 . 295249) (
|
||||||
TTYINENTRYFN 295258 . 295683) (TTYINREADP 295685 . 296149) (TTYINREAD 296151 . 297545) (TTYINFIX
|
TTYINENTRYFN 295251 . 295676) (TTYINREADP 295678 . 296142) (TTYINREAD 296144 . 297538) (TTYINFIX
|
||||||
297547 . 298746) (CHARMACRO? 298748 . 299315) (TTYINMETA 299317 . 299445) (TTYIN.LASTINPUT 299447 .
|
297540 . 298739) (CHARMACRO? 298741 . 299308) (TTYINMETA 299310 . 299438) (TTYIN.LASTINPUT 299440 .
|
||||||
300021)) (300024 308293 (TTYINEDIT 300034 . 302151) (SIMPLETEXTEDIT 302153 . 305197) (
|
300014)) (300017 308286 (TTYINEDIT 300027 . 302144) (SIMPLETEXTEDIT 302146 . 305190) (
|
||||||
SET.TTYINEDIT.WINDOW 305199 . 306350) (TTYIN.PPTOFILE 306352 . 308291)) (308351 308528 (
|
SET.TTYINEDIT.WINDOW 305192 . 306343) (TTYIN.PPTOFILE 306345 . 308284)) (308344 308521 (
|
||||||
MAKE-TTSCRATCHFILE 308361 . 308526)) (308675 309808 (TTYIN.SCRATCHFILE 308685 . 309131) (\TTYIN.RPEOF
|
MAKE-TTSCRATCHFILE 308354 . 308519)) (308668 309801 (TTYIN.SCRATCHFILE 308678 . 309124) (\TTYIN.RPEOF
|
||||||
309133 . 309806)) (310020 313653 (TTYINPROMPTFORWORD 310030 . 313651)))))
|
309126 . 309799)) (310013 313646 (TTYINPROMPTFORWORD 310023 . 313644)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
46
sources/UFS
46
sources/UFS
@@ -1,10 +1,10 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:20" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;2 69282
|
(FILECREATED "21-Apr-2021 11:36:54" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;5 69271
|
||||||
|
|
||||||
changes to%: (FNS \UFS.CREATE.DEVICE)
|
changes to%: (FNS \UFSeol)
|
||||||
|
|
||||||
previous date%: "21-Apr-2021 11:36:54"
|
previous date%: "20-Apr-2021 12:11:36"
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;1)
|
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;4)
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
(* ; "
|
||||||
@@ -876,23 +876,23 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
|
|||||||
(PUTPROPS UFS COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1991 1992 1993 1994 1995 2000 2021
|
(PUTPROPS UFS COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1991 1992 1993 1994 1995 2000 2021
|
||||||
))
|
))
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (8259 9812 (\UFSCreateDevice 8269 . 8634) (\UFS.CREATE.DEVICE 8636 . 9492) (
|
(FILEMAP (NIL (8248 9801 (\UFSCreateDevice 8258 . 8623) (\UFS.CREATE.DEVICE 8625 . 9481) (
|
||||||
\UFSOpenDevice 9494 . 9671) (\UFSCloseDevice 9673 . 9810)) (13973 41883 (\UFSOpenFile 13983 . 17277) (
|
\UFSOpenDevice 9483 . 9660) (\UFSCloseDevice 9662 . 9799)) (13962 41872 (\UFSOpenFile 13972 . 17266) (
|
||||||
\UFS.OPENP 17279 . 17776) (\UFS.RECOGNIZE.FILE 17778 . 18531) (\UFS.DIRECTORY.NAME 18533 . 19276) (
|
\UFS.OPENP 17268 . 17765) (\UFS.RECOGNIZE.FILE 17767 . 18520) (\UFS.DIRECTORY.NAME 18522 . 19265) (
|
||||||
\UFSCloseFile 19278 . 20254) (\UFSGetFileName 20256 . 20455) (\UFSDeleteFile 20457 . 20997) (
|
\UFSCloseFile 19267 . 20243) (\UFSGetFileName 20245 . 20444) (\UFSDeleteFile 20446 . 20986) (
|
||||||
\UFSRenameFile 20999 . 22164) (\UFSReadPages 22166 . 23301) (\UFSWritePages 23303 . 24523) (
|
\UFSRenameFile 20988 . 22153) (\UFSReadPages 22155 . 23290) (\UFSWritePages 23292 . 24512) (
|
||||||
\UFSTruncateFile 24525 . 26022) (\UFSDirectoryNameP 26024 . 27078) (\UFSEventFn 27080 . 27742) (
|
\UFSTruncateFile 24514 . 26011) (\UFSDirectoryNameP 26013 . 27067) (\UFSEventFn 27069 . 27731) (
|
||||||
\UFSGetFileInfo 27744 . 30026) (\UFS.CREATE.PROPS 30028 . 30381) (\UFSSetFileInfo 30383 . 31612) (
|
\UFSGetFileInfo 27733 . 30015) (\UFS.CREATE.PROPS 30017 . 30370) (\UFSSetFileInfo 30372 . 31601) (
|
||||||
\UFSGenerateFiles 31614 . 34326) (\UFS.NEXTFILEFN 34328 . 38471) (\UFS.FILEINFOFN 38473 . 39922) (
|
\UFSGenerateFiles 31603 . 34315) (\UFS.NEXTFILEFN 34317 . 38460) (\UFS.FILEINFOFN 38462 . 39911) (
|
||||||
\UFS.VALID.PROPP 39924 . 40216) (\UFS.REGISTER.GFS 40218 . 40473) (\UFS.UNREGISTER.GFS 40475 . 41058)
|
\UFS.VALID.PROPP 39913 . 40205) (\UFS.REGISTER.GFS 40207 . 40462) (\UFS.UNREGISTER.GFS 40464 . 41047)
|
||||||
(\UFS.ABORT.DIRECTORY 41060 . 41408) (\UFS.ABORT.CL-DIRECTORY 41410 . 41697) (\UFS.CLEANUP.GFS.TABLE
|
(\UFS.ABORT.DIRECTORY 41049 . 41397) (\UFS.ABORT.CL-DIRECTORY 41399 . 41686) (\UFS.CLEANUP.GFS.TABLE
|
||||||
41699 . 41881)) (41918 48602 (\UFSMakeUnixFormatName 41928 . 42949) (\UFSParseNameString 42951 . 43325
|
41688 . 41870)) (41907 48591 (\UFSMakeUnixFormatName 41917 . 42938) (\UFSParseNameString 42940 . 43314
|
||||||
) (\UFSParse-Directory 43327 . 43868) (\UFS.PARSE.BODY 43870 . 44415) (\UFS.ADJUST.HOST 44417 . 44576)
|
) (\UFSParse-Directory 43316 . 43857) (\UFS.PARSE.BODY 43859 . 44404) (\UFS.ADJUST.HOST 44406 . 44565)
|
||||||
(\UFS.FULLNAME 44578 . 45786) (\UFS.ADD.HOST.FIELD 45788 . 46148) (\UFS.REMOVE.HOST.FIELD 46150 .
|
(\UFS.FULLNAME 44567 . 45775) (\UFS.ADD.HOST.FIELD 45777 . 46137) (\UFS.REMOVE.HOST.FIELD 46139 .
|
||||||
47820) (\UFS.HANDLE.RELATIVEDIRECTORY 47822 . 48600)) (49418 50031 (CHDIR 49428 . 50029)) (50103 51089
|
47809) (\UFS.HANDLE.RELATIVEDIRECTORY 47811 . 48589)) (49407 50020 (CHDIR 49417 . 50018)) (50092 51078
|
||||||
(\DEVICEFILE.EOSERROR 50113 . 51087)) (51162 52399 (\UNVISIBLE.PAGED.REVALIDATEFILELST 51172 . 52017)
|
(\DEVICEFILE.EOSERROR 50102 . 51076)) (51151 52388 (\UNVISIBLE.PAGED.REVALIDATEFILELST 51161 . 52006)
|
||||||
(\UNVISIBLE.FLUSH.OPEN.STREAMS 52019 . 52397)) (52432 54058 (\UFSError 52442 . 54056)) (54102 56349 (
|
(\UNVISIBLE.FLUSH.OPEN.STREAMS 52008 . 52386)) (52421 54047 (\UFSError 52431 . 54045)) (54091 56338 (
|
||||||
\UFSGetFileType 54112 . 54713) (\UFSSetFileType 54715 . 55144) (\UFSeol 55146 . 56347)) (65961 67085 (
|
\UFSGetFileType 54101 . 54702) (\UFSSetFileType 54704 . 55133) (\UFSeol 55135 . 56336)) (65950 67074 (
|
||||||
\UFSGetPrintFileType 65971 . 66383) (\UFSGetFileTypeConfirm 66385 . 66833) (\UFSPrintTypeMenu 66835 .
|
\UFSGetPrintFileType 65960 . 66372) (\UFSGetFileTypeConfirm 66374 . 66822) (\UFSPrintTypeMenu 66824 .
|
||||||
67083)) (67115 68863 (\UFStoOtherCopyMess 67125 . 68116) (\UFStoOtherRenameMess 68118 . 68861)))))
|
67072)) (67104 68852 (\UFStoOtherCopyMess 67114 . 68105) (\UFStoOtherRenameMess 68107 . 68850)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
BIN
sources/UFS.LCOM
BIN
sources/UFS.LCOM
Binary file not shown.
457
sources/UNIXCOMM
457
sources/UNIXCOMM
@@ -1,457 +0,0 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
|
||||||
(FILECREATED " 5-Sep-2021 08:25:13"
|
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNIXCOMM.;1 19779
|
|
||||||
|
|
||||||
changes to%: (FNS INITIALIZE-NEW-SHELL-DEVICE INITIALIZE-SHELL-DEVICE)
|
|
||||||
|
|
||||||
previous date%: "25-Apr-2018 07:31:56"
|
|
||||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;1)
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "
|
|
||||||
Copyright (c) 1988-1990, 2018, 2021 by Venue & Xerox Corporation.
|
|
||||||
")
|
|
||||||
|
|
||||||
(PRETTYCOMPRINT UNIXCOMMCOMS)
|
|
||||||
|
|
||||||
(RPAQQ UNIXCOMMCOMS
|
|
||||||
[
|
|
||||||
(* ;; "streams to UNIX processes & pseudo terminals")
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "this stuff should really be implemented in terms of {SHELL} and {PTY} devices")
|
|
||||||
|
|
||||||
(COMS (* ; "Forking stuff")
|
|
||||||
(FNS FORK-SHELL FORK-UNIX UNIX-KILL UNIX-WRITE CREATE-SHELL-STREAM
|
|
||||||
CREATE-PROCESS-STREAM UNIXCOMM-AROUNDEXITFN))
|
|
||||||
[COMS (* ; "Operations on the shell device")
|
|
||||||
(FNS INITIALIZE-NEW-SHELL-DEVICE UNIX-GET-NEXT-BUFFER UNIX-BACKFILEPTR-NEW
|
|
||||||
UNIX-STREAM-EOFP-NEW UNIX-STREAM-OUT UNIX-STREAM-CLOSE)
|
|
||||||
(GLOBALVARS *NEW-SHELL-DEVICE*)
|
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-NEW-SHELL-DEVICE))
|
|
||||||
(ADDVARS (AROUNDEXITFNS UNIXCOMM-AROUNDEXITFN]
|
|
||||||
(COMS (* ;
|
|
||||||
"Stuff for direct manipulation of Unix sockets")
|
|
||||||
(FNS CREATE-UNIX-SOCKET-STREAM ACCEPT-UNIX-SOCKET-STREAM))
|
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-CHANNEL)
|
|
||||||
(P (CHECKIMPORTS '(FILEIO LLSUBRS)
|
|
||||||
T)))
|
|
||||||
[COMS
|
|
||||||
(* ;; "Obsolete stuff. This is for pre-Medley1.2, where there wasn't support for buffered input on the shell device")
|
|
||||||
|
|
||||||
(FNS UNIX-BACKFILEPTR UNIX-READ INITIALIZE-SHELL-DEVICE UNIX-STREAM-IN UNIX-STREAM-EOFP
|
|
||||||
UNIX-STREAM-PEEK)
|
|
||||||
(GLOBALVARS *SHELL-DEVICE*)
|
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-PEEKEDCHAR UNIX-LASTCHAR))
|
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-SHELL-DEVICE]
|
|
||||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
|
|
||||||
(NLAML)
|
|
||||||
(LAMA])
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "streams to UNIX processes & pseudo terminals")
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* ;; "this stuff should really be implemented in terms of {SHELL} and {PTY} devices")
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "Forking stuff")
|
|
||||||
|
|
||||||
(DEFINEQ
|
|
||||||
|
|
||||||
(FORK-SHELL
|
|
||||||
[LAMBDA (TERMTYPE COMMAND) (* ; "Edited 14-Feb-90 14:27 by bvm")
|
|
||||||
(if (SUBRCALL UNIX-HANDLECOMM 8)
|
|
||||||
then (* ;
|
|
||||||
"Yes, lde supports this new version")
|
|
||||||
[SUBRCALL UNIX-HANDLECOMM 11 (if (NULL TERMTYPE)
|
|
||||||
then ""
|
|
||||||
elseif (TYPEP TERMTYPE 'ONED-ARRAY)
|
|
||||||
then TERMTYPE
|
|
||||||
else (\DTEST (LISP-TO-UNIX-TERMTYPE TERMTYPE)
|
|
||||||
'ONED-ARRAY))
|
|
||||||
(if (NULL COMMAND)
|
|
||||||
then ""
|
|
||||||
else (\DTEST COMMAND 'ONED-ARRAY]
|
|
||||||
elseif COMMAND
|
|
||||||
then (* ;
|
|
||||||
"have to use a different old call")
|
|
||||||
(FORK-UNIX COMMAND)
|
|
||||||
else (SUBRCALL UNIX-HANDLECOMM 4])
|
|
||||||
|
|
||||||
(FORK-UNIX
|
|
||||||
[LAMBDA (STR) (* ; "Edited 25-May-88 15:47 by drc:")
|
|
||||||
(SUBRCALL UNIX-HANDLECOMM 0 (\DTEST STR 'ONED-ARRAY])
|
|
||||||
|
|
||||||
(UNIX-KILL
|
|
||||||
[LAMBDA (CONN) (* ; "Edited 25-May-88 16:04 by drc:")
|
|
||||||
(if CONN
|
|
||||||
then (SUBRCALL UNIX-HANDLECOMM 3 CONN 0])
|
|
||||||
|
|
||||||
(UNIX-WRITE
|
|
||||||
[LAMBDA (CONN VAL) (* ; "Edited 24-Sep-90 11:27 by jds")
|
|
||||||
|
|
||||||
(* ;; "Write a byte (VAL) to the outgoing pipe connection CONN. If the write fails for non-fatal reasons (i.e., would block), loop unitl it succeeds. If the write returns NIL (meaning total failure), pass that along to the caller.")
|
|
||||||
|
|
||||||
(PROG (LENGTH-WRITTEN)
|
|
||||||
WRITE-LOOP
|
|
||||||
[SETQ LENGTH-WRITTEN (SUBRCALL UNIX-HANDLECOMM 1 (\DTEST CONN 'SMALLP)
|
|
||||||
(\DTEST VAL 'SMALLP]
|
|
||||||
(COND
|
|
||||||
((AND LENGTH-WRITTEN (IEQP 0 LENGTH-WRITTEN))
|
|
||||||
(BLOCK)
|
|
||||||
(GO WRITE-LOOP)))
|
|
||||||
(RETURN LENGTH-WRITTEN])
|
|
||||||
|
|
||||||
(CREATE-SHELL-STREAM
|
|
||||||
[LAMBDA (TERMTYPE COMMAND) (* ; "Edited 21-May-90 15:39 by jrb:")
|
|
||||||
(LET ((CHAN (FORK-SHELL TERMTYPE COMMAND))
|
|
||||||
(SHELL-DEV (if (SUBRCALL UNIX-HANDLECOMM 8)
|
|
||||||
then (* ;
|
|
||||||
"SUBRCALL tests that this is supported")
|
|
||||||
*NEW-SHELL-DEVICE*
|
|
||||||
else *SHELL-DEVICE*)))
|
|
||||||
(COND
|
|
||||||
(CHAN (LET ((STR (create STREAM
|
|
||||||
ACCESS _ 'BOTH
|
|
||||||
DEVICE _ SHELL-DEV)))
|
|
||||||
(CL:SETF (UNIX-CHANNEL STR)
|
|
||||||
CHAN)
|
|
||||||
|
|
||||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
|
||||||
|
|
||||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
|
||||||
STR)
|
|
||||||
(STREAMPROP STR 'SENDSCREENPARAMS (FUNCTION UNIX.SENDSCREENPARAMS))
|
|
||||||
(STREAMPROP STR 'SETDISPLAYTYPE (FUNCTION UNIX.SETDISPLAYTYPE))
|
|
||||||
STR])
|
|
||||||
|
|
||||||
(CREATE-PROCESS-STREAM
|
|
||||||
[LAMBDA (COMM) (* ; "Edited 21-May-90 15:39 by jrb:")
|
|
||||||
(LET* ((SHELL-DEV (if (SUBRCALL UNIX-HANDLECOMM 8)
|
|
||||||
then (* ;
|
|
||||||
"SUBRCALL tests that this is supported")
|
|
||||||
*NEW-SHELL-DEVICE*
|
|
||||||
else *SHELL-DEVICE*))
|
|
||||||
(STR (create STREAM
|
|
||||||
ACCESS _ 'BOTH
|
|
||||||
DEVICE _ SHELL-DEV
|
|
||||||
EOLCONVENTION _ LF.EOLC))
|
|
||||||
(CHAN (FORK-UNIX COMM)))
|
|
||||||
(if CHAN
|
|
||||||
then (CL:SETF (UNIX-CHANNEL STR)
|
|
||||||
CHAN)
|
|
||||||
|
|
||||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
|
||||||
|
|
||||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
|
||||||
STR)
|
|
||||||
STR
|
|
||||||
else NIL])
|
|
||||||
|
|
||||||
(UNIXCOMM-AROUNDEXITFN
|
|
||||||
[LAMBDA (EVENT) (* ; "Edited 2-Jul-90 16:35 by jrb:")
|
|
||||||
(CASE EVENT
|
|
||||||
((AFTERLOGOUT AFTERMAKESYS AFTERSAVEVM AFTERSYSOUT) (for STREAM
|
|
||||||
in (fetch (FDEV OPENFILELST)
|
|
||||||
of *SHELL-DEVICE*)
|
|
||||||
do (CLOSEF STREAM)))
|
|
||||||
((BEFORELOGOUT BEFOREMAKESYS BEFORESYSOUT)
|
|
||||||
|
|
||||||
(* ;;
|
|
||||||
"Make sure any Unix sockets get closed here, so their file system handles get closed as well")
|
|
||||||
|
|
||||||
(for STREAM in (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
|
||||||
when (EQ -3 (SUBRCALL UNIX-HANDLECOMM 14 (UNIX-CHANNEL STREAM)))
|
|
||||||
do (CLOSEF STREAM))))])
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "Operations on the shell device")
|
|
||||||
|
|
||||||
(DEFINEQ
|
|
||||||
|
|
||||||
(INITIALIZE-NEW-SHELL-DEVICE
|
|
||||||
[LAMBDA NIL (* ; "Edited 12-Feb-90 17:00 by bvm")
|
|
||||||
(SETQ *NEW-SHELL-DEVICE* (create FDEV
|
|
||||||
FDBINABLE _ T
|
|
||||||
NODIRECTORIES _ T
|
|
||||||
DEVICENAME _ (FUNCTION UNIX-PTY-NEW)
|
|
||||||
BIN _ (FUNCTION \BUFFERED.BIN)
|
|
||||||
BOUT _ (FUNCTION UNIX-STREAM-OUT)
|
|
||||||
PEEKBIN _ (FUNCTION \BUFFERED.PEEKBIN)
|
|
||||||
CLOSEFILE _ (FUNCTION UNIX-STREAM-CLOSE)
|
|
||||||
GETFILEINFO _ (FUNCTION NILL)
|
|
||||||
SETFILEINFO _ (FUNCTION NILL)
|
|
||||||
EOFP _ (FUNCTION UNIX-STREAM-EOFP-NEW)
|
|
||||||
BACKFILEPTR _ (FUNCTION UNIX-BACKFILEPTR-NEW)
|
|
||||||
GETNEXTBUFFER _ (FUNCTION UNIX-GET-NEXT-BUFFER)
|
|
||||||
BLOCKIN _ (FUNCTION \BUFFERED.BINS])
|
|
||||||
|
|
||||||
(UNIX-GET-NEXT-BUFFER
|
|
||||||
[LAMBDA (STREAM WHATFOR NOERRORFLG) (* ;
|
|
||||||
"Edited 13-Jun-90 01:07 by mitani")
|
|
||||||
(CASE WHATFOR
|
|
||||||
(READ [PROG ([BUF (ffetch (STREAM CBUFPTR) of (\DTEST STREAM 'STREAM]
|
|
||||||
(CONN (UNIX-CHANNEL STREAM))
|
|
||||||
LEN)
|
|
||||||
RETRY
|
|
||||||
(BLOCK) (* ;
|
|
||||||
"Just so other procs get to run when someone is pounding output at Chat")
|
|
||||||
(if [AND CONN (SETQ LEN (SUBRCALL UNIX-HANDLECOMM 9 (\DTEST CONN 'SMALLP)
|
|
||||||
(OR BUF (replace (STREAM CBUFPTR)
|
|
||||||
of STREAM
|
|
||||||
with (SETQ BUF
|
|
||||||
(NCREATE 'VMEMPAGEP]
|
|
||||||
then (if (EQ LEN T)
|
|
||||||
then (* ;
|
|
||||||
" no input available, but still alive")
|
|
||||||
(if NOERRORFLG
|
|
||||||
then (RETURN NIL)
|
|
||||||
else (* ;
|
|
||||||
"Called from BIN--wait and try again")
|
|
||||||
(GO RETRY))
|
|
||||||
else (UNINTERRUPTABLY
|
|
||||||
(replace (STREAM COFFSET) of STREAM
|
|
||||||
with 0)
|
|
||||||
(replace (STREAM CBUFSIZE) of STREAM
|
|
||||||
with LEN))
|
|
||||||
(RETURN T))
|
|
||||||
else (RETURN (AND (NOT NOERRORFLG)
|
|
||||||
(\EOF.ACTION STREAM])
|
|
||||||
(T (SHOULDNT)))])
|
|
||||||
|
|
||||||
(UNIX-BACKFILEPTR-NEW
|
|
||||||
[LAMBDA (STREAM) (* ;
|
|
||||||
"Edited 13-Jun-90 01:07 by mitani")
|
|
||||||
(COND
|
|
||||||
((AND (fetch (STREAM CBUFPTR) of STREAM)
|
|
||||||
(> (fetch (STREAM COFFSET) of STREAM)
|
|
||||||
0))
|
|
||||||
(add (fetch (STREAM COFFSET) of STREAM)
|
|
||||||
-1))
|
|
||||||
(T (ERROR "Can't back up this unix Stream" STREAM])
|
|
||||||
|
|
||||||
(UNIX-STREAM-EOFP-NEW
|
|
||||||
[LAMBDA (STREAM) (* ;
|
|
||||||
"Edited 13-Jun-90 01:07 by mitani")
|
|
||||||
|
|
||||||
(* ;;; "true if bsp STREAM is at end of file, i.e. is at a mark")
|
|
||||||
|
|
||||||
(COND
|
|
||||||
((AND (ffetch (STREAM CBUFPTR) of (\DTEST STREAM 'STREAM))
|
|
||||||
(< (ffetch (STREAM COFFSET) of STREAM)
|
|
||||||
(ffetch (STREAM CBUFSIZE) of STREAM)))
|
|
||||||
NIL)
|
|
||||||
(T (NOT (UNIX-GET-NEXT-BUFFER STREAM 'READ T])
|
|
||||||
|
|
||||||
(UNIX-STREAM-OUT
|
|
||||||
[LAMBDA (STREAM CHAR) (* ; "Edited 12-Jun-90 12:58 by jrb:")
|
|
||||||
(OR (UNIX-WRITE (UNIX-CHANNEL STREAM)
|
|
||||||
(\DTEST CHAR 'SMALLP))
|
|
||||||
(CL:ERROR 'XCL:STREAM-NOT-OPEN STREAM])
|
|
||||||
|
|
||||||
(UNIX-STREAM-CLOSE
|
|
||||||
[LAMBDA (STREAM) (* ; "Edited 12-Aug-88 13:24 by drc:")
|
|
||||||
(PROG1 (UNIX-KILL (UNIX-CHANNEL STREAM))
|
|
||||||
(CL:SETF (UNIX-CHANNEL STREAM)
|
|
||||||
NIL)
|
|
||||||
(CL:SETF (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
|
||||||
(REMOVE STREAM (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*))))])
|
|
||||||
)
|
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
|
||||||
|
|
||||||
(GLOBALVARS *NEW-SHELL-DEVICE*)
|
|
||||||
)
|
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
|
||||||
|
|
||||||
(INITIALIZE-NEW-SHELL-DEVICE)
|
|
||||||
|
|
||||||
|
|
||||||
(ADDTOVAR AROUNDEXITFNS UNIXCOMM-AROUNDEXITFN)
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* ; "Stuff for direct manipulation of Unix sockets")
|
|
||||||
|
|
||||||
(DEFINEQ
|
|
||||||
|
|
||||||
(CREATE-UNIX-SOCKET-STREAM
|
|
||||||
[LAMBDA (PATHNAME) (* ; "Edited 29-May-90 16:23 by jrb:")
|
|
||||||
(LET [(STR (create STREAM
|
|
||||||
ACCESS _ 'BOTH
|
|
||||||
DEVICE _ *NEW-SHELL-DEVICE*
|
|
||||||
EOLCONVENTION _ LF.EOLC))
|
|
||||||
(CHAN (SUBRCALL UNIX-HANDLECOMM 12 (\DTEST PATHNAME 'ONED-ARRAY]
|
|
||||||
(if CHAN
|
|
||||||
then (CL:SETF (UNIX-CHANNEL STR)
|
|
||||||
CHAN)
|
|
||||||
|
|
||||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
|
||||||
|
|
||||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
|
||||||
STR)
|
|
||||||
STR
|
|
||||||
else NIL])
|
|
||||||
|
|
||||||
(ACCEPT-UNIX-SOCKET-STREAM
|
|
||||||
[LAMBDA (SOCKSTREAM) (* ; "Edited 29-May-90 16:31 by jrb:")
|
|
||||||
(LET ((CHAN (UNIX-CHANNEL SOCKSTREAM))
|
|
||||||
NEWCHAN)
|
|
||||||
(SELECTQ (SETQ NEWCHAN (SUBRCALL UNIX-HANDLECOMM 13 CHAN))
|
|
||||||
((-1 NIL)
|
|
||||||
NEWCHAN)
|
|
||||||
(LET ((NEWSTREAM (create STREAM
|
|
||||||
ACCESS _ 'BOTH
|
|
||||||
DEVICE _ *NEW-SHELL-DEVICE*
|
|
||||||
EOLCONVENTION _ LF.EOLC)))
|
|
||||||
(CL:SETF (UNIX-CHANNEL NEWSTREAM)
|
|
||||||
NEWCHAN)
|
|
||||||
|
|
||||||
(* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.")
|
|
||||||
|
|
||||||
(push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*)
|
|
||||||
NEWSTREAM)
|
|
||||||
NEWSTREAM])
|
|
||||||
)
|
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
|
||||||
|
|
||||||
(PUTPROPS UNIX-CHANNEL MACRO ((STR)
|
|
||||||
(fetch (STREAM F1) of STR)))
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
(CHECKIMPORTS '(FILEIO LLSUBRS)
|
|
||||||
T)
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* ;;
|
|
||||||
"Obsolete stuff. This is for pre-Medley1.2, where there wasn't support for buffered input on the shell device"
|
|
||||||
)
|
|
||||||
|
|
||||||
(DEFINEQ
|
|
||||||
|
|
||||||
(UNIX-BACKFILEPTR
|
|
||||||
[LAMBDA (STREAM) (* ; "Edited 14-Dec-88 09:52 by bane")
|
|
||||||
|
|
||||||
(* ;; "The trick here is to use the existing mechanisms for UNIX-PEEKCHAR")
|
|
||||||
|
|
||||||
(COND
|
|
||||||
((UNIX-PEEKEDCHAR STREAM)
|
|
||||||
(ERROR "Can only back up one character" STREAM))
|
|
||||||
((NOT (UNIX-LASTCHAR STREAM))
|
|
||||||
(ERROR "Can't back up past beginning of stream" STREAM))
|
|
||||||
(T (CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
|
||||||
(UNIX-LASTCHAR STREAM])
|
|
||||||
|
|
||||||
(UNIX-READ
|
|
||||||
[LAMBDA (STREAM NO-ERROR) (* ; "Edited 14-Dec-88 09:18 by bane")
|
|
||||||
(LET* [(CONN (UNIX-CHANNEL STREAM))
|
|
||||||
(CH (AND CONN (SUBRCALL UNIX-HANDLECOMM 2 (\DTEST CONN 'SMALLP)
|
|
||||||
0]
|
|
||||||
(COND
|
|
||||||
((EQ CH T)
|
|
||||||
NIL)
|
|
||||||
[(EQ CH NIL)
|
|
||||||
(COND
|
|
||||||
(NO-ERROR NIL)
|
|
||||||
(T (\EOF.ACTION STREAM]
|
|
||||||
(T (CL:SETF (UNIX-LASTCHAR STREAM)
|
|
||||||
CH])
|
|
||||||
|
|
||||||
(INITIALIZE-SHELL-DEVICE
|
|
||||||
[LAMBDA NIL (* ; "Edited 14-Dec-88 10:45 by bane")
|
|
||||||
(SETQ *SHELL-DEVICE* (create FDEV
|
|
||||||
NODIRECTORIES _ T
|
|
||||||
DEVICENAME _ 'UNIX-PTY
|
|
||||||
BIN _ 'UNIX-STREAM-IN
|
|
||||||
BOUT _ 'UNIX-STREAM-OUT
|
|
||||||
PEEKBIN _ 'UNIX-STREAM-PEEK
|
|
||||||
CLOSEFILE _ 'UNIX-STREAM-CLOSE
|
|
||||||
GETFILEINFO _ 'NILL
|
|
||||||
SETFILEINFO _ 'NILL
|
|
||||||
EOFP _ 'UNIX-STREAM-EOFP
|
|
||||||
BACKFILEPTR _ 'UNIX-BACKFILEPTR])
|
|
||||||
|
|
||||||
(UNIX-STREAM-IN
|
|
||||||
[LAMBDA (STREAM) (* ; "Edited 9-May-88 15:05 by ")
|
|
||||||
(LET (CH)
|
|
||||||
(if (SETQ CH (UNIX-PEEKEDCHAR STREAM))
|
|
||||||
then (CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
|
||||||
NIL)
|
|
||||||
else (while (NOT (SETQ CH (UNIX-READ STREAM))) do (BLOCK)))
|
|
||||||
CH])
|
|
||||||
|
|
||||||
(UNIX-STREAM-EOFP
|
|
||||||
[LAMBDA (STREAM) (* ; "Edited 2-Apr-90 11:51 by jds")
|
|
||||||
|
|
||||||
(* ;; "EOFP method for unix-shell streams. Notices when there are chars yet to read and doesn't set EOFP.")
|
|
||||||
|
|
||||||
(AND (NOT (UNIX-PEEKEDCHAR STREAM))
|
|
||||||
(LET* [(CONN (UNIX-CHANNEL STREAM))
|
|
||||||
(CH (AND CONN (SUBRCALL UNIX-HANDLECOMM 2 (\DTEST CONN 'SMALLP)
|
|
||||||
0]
|
|
||||||
(COND
|
|
||||||
((EQ CH T)
|
|
||||||
NIL)
|
|
||||||
((EQ CH NIL)
|
|
||||||
T)
|
|
||||||
(T (CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
|
||||||
CH)
|
|
||||||
(CL:SETF (UNIX-LASTCHAR STREAM)
|
|
||||||
CH)
|
|
||||||
NIL])
|
|
||||||
|
|
||||||
(UNIX-STREAM-PEEK
|
|
||||||
[LAMBDA (STREAM NO-ERROR) (* ; "Edited 24-Jun-88 15:07 by drc:")
|
|
||||||
(OR (UNIX-PEEKEDCHAR STREAM)
|
|
||||||
(CL:SETF (UNIX-PEEKEDCHAR STREAM)
|
|
||||||
(UNIX-READ STREAM NO-ERROR])
|
|
||||||
)
|
|
||||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
|
||||||
|
|
||||||
(GLOBALVARS *SHELL-DEVICE*)
|
|
||||||
)
|
|
||||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
|
||||||
(DECLARE%: EVAL@COMPILE
|
|
||||||
|
|
||||||
(PUTPROPS UNIX-PEEKEDCHAR MACRO ((STR)
|
|
||||||
(FETCH (STREAM F2) OF STR)))
|
|
||||||
|
|
||||||
(PUTPROPS UNIX-LASTCHAR MACRO ((STR)
|
|
||||||
(FETCH (STREAM F3) OF STR)))
|
|
||||||
)
|
|
||||||
)
|
|
||||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
|
||||||
|
|
||||||
(INITIALIZE-SHELL-DEVICE)
|
|
||||||
)
|
|
||||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
|
||||||
|
|
||||||
(ADDTOVAR NLAMA )
|
|
||||||
|
|
||||||
(ADDTOVAR NLAML )
|
|
||||||
|
|
||||||
(ADDTOVAR LAMA )
|
|
||||||
)
|
|
||||||
(PUTPROPS UNIXCOMM COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 2018 2021))
|
|
||||||
(DECLARE%: DONTCOPY
|
|
||||||
(FILEMAP (NIL (2730 8402 (FORK-SHELL 2740 . 3937) (FORK-UNIX 3939 . 4115) (UNIX-KILL 4117 . 4306) (
|
|
||||||
UNIX-WRITE 4308 . 5019) (CREATE-SHELL-STREAM 5021 . 6337) (CREATE-PROCESS-STREAM 6339 . 7499) (
|
|
||||||
UNIXCOMM-AROUNDEXITFN 7501 . 8400)) (8450 13438 (INITIALIZE-NEW-SHELL-DEVICE 8460 . 9553) (
|
|
||||||
UNIX-GET-NEXT-BUFFER 9555 . 11755) (UNIX-BACKFILEPTR-NEW 11757 . 12236) (UNIX-STREAM-EOFP-NEW 12238 .
|
|
||||||
12784) (UNIX-STREAM-OUT 12786 . 13042) (UNIX-STREAM-CLOSE 13044 . 13436)) (13694 15559 (
|
|
||||||
CREATE-UNIX-SOCKET-STREAM 13704 . 14565) (ACCEPT-UNIX-SOCKET-STREAM 14567 . 15557)) (15916 19095 (
|
|
||||||
UNIX-BACKFILEPTR 15926 . 16424) (UNIX-READ 16426 . 16948) (INITIALIZE-SHELL-DEVICE 16950 . 17689) (
|
|
||||||
UNIX-STREAM-IN 17691 . 18067) (UNIX-STREAM-EOFP 18069 . 18843) (UNIX-STREAM-PEEK 18845 . 19093)))))
|
|
||||||
STOP
|
|
||||||
Binary file not shown.
@@ -1,14 +1,13 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||||
(FILECREATED " 5-Sep-2021 08:25:24"
|
(FILECREATED "17-May-90 16:13:16" |{DSK}<usr>local>lde>lispcore>sources>VANILLADISK.;2| 5292
|
||||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;2| 5318
|
|
||||||
|
|
||||||
|changes| |to:| (FNS \\VANILLADISKINIT)
|
|changes| |to:| (VARS VANILLADISKCOMS)
|
||||||
|
|
||||||
|previous| |date:| "17-May-90 16:13:16"
|
|previous| |date:| " 7-Apr-88 17:53:38" |{DSK}<usr>local>lde>lispcore>sources>VANILLADISK.;1|
|
||||||
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;1|)
|
)
|
||||||
|
|
||||||
|
|
||||||
; Copyright (c) 1985-1986, 1988, 1990, 2021 by Venue & Xerox Corporation.
|
; Copyright (c) 1985, 1986, 1988, 1990 by Venue & Xerox Corporation. All rights reserved.
|
||||||
|
|
||||||
(PRETTYCOMPRINT VANILLADISKCOMS)
|
(PRETTYCOMPRINT VANILLADISKCOMS)
|
||||||
|
|
||||||
@@ -116,8 +115,8 @@
|
|||||||
|
|
||||||
(LOCALVARS . T)
|
(LOCALVARS . T)
|
||||||
)
|
)
|
||||||
(PUTPROPS VANILLADISK COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1988 1990 2021))
|
(PUTPROPS VANILLADISK COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1988 1990))
|
||||||
(DECLARE\: DONTCOPY
|
(DECLARE\: DONTCOPY
|
||||||
(FILEMAP (NIL (805 4991 (\\VANILLADISKINIT 815 . 2922) (\\VANILLAHOSTNAMEP 2924 . 4568) (
|
(FILEMAP (NIL (784 4970 (\\VANILLADISKINIT 794 . 2901) (\\VANILLAHOSTNAMEP 2903 . 4547) (
|
||||||
\\VANILLAEVENTFN 4570 . 4989)))))
|
\\VANILLAEVENTFN 4549 . 4968)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
Reference in New Issue
Block a user