(FILECREATED "27-Apr-85 13:38:01" {ERIS}<LISPCORE>LIBRARY>TCPNAMES.;2 25353
changes to: (VARS TCPNAMESCOMS)
(FNS REPACKFILENAME.STRING REPACKFILENAME.STRING.3600
\REPACKFILENAME.NEW.TRANSLATION REPACKFILENAME.STRING.VMS
\REPACKFILENAME.NEW.TRANSLATIONS)
previous date: "15-Apr-85 17:17:26" {ERIS}<LISPCORE>LIBRARY>TCPNAMES.;1)
(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT TCPNAMESCOMS)
(RPAQQ TCPNAMESCOMS ((FNS REPACKFILENAME.STRING REPACKFILENAME.STRING.D REPACKFILENAME.STRING.VMS
REPACKFILENAME.STRING.3600 REPACKFILENAME.STRING.TOPS20
REPACKFILENAME.STRING.UNIX \REPACKFILENAME.NEW.TRANSLATION
\REPACKFILENAME.NEW.TRANSLATIONS)
(INITVARS (\REPACKFILENAME.OSTYPE.TABLE (HASHARRAY 30 1.1)))
(GLOBALVARS \REPACKFILENAME.OSTYPE.TABLE)
(P (\REPACKFILENAME.NEW.TRANSLATIONS (D IFS)
REPACKFILENAME.STRING.D
(TOPS20 TOPS-20)
REPACKFILENAME.STRING.TOPS20
(3600 LISPM SYMBOLICS)
REPACKFILENAME.STRING.3600 VMS
REPACKFILENAME.STRING.VMS UNIX
REPACKFILENAME.STRING.UNIX))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDVARS (NLAMA)
(NLAML)
(LAMA REPACKFILENAME.STRING.UNIX REPACKFILENAME.STRING.TOPS20
REPACKFILENAME.STRING.3600 REPACKFILENAME.STRING.D)))))
(DEFINEQ
(REPACKFILENAME.STRING
(LAMBDA (NAME FOROSTYPE) (* ejs: "27-Apr-85 13:29")
(DECLARE (GLOBALVARS \REPACKFILENAME.OSTYPE.TABLE))
(LET ((NAMELST (UNPACKFILENAME.STRING NAME))
(REPACKFUNCTION (GETHASH FOROSTYPE \REPACKFILENAME.OSTYPE.TABLE)))
(COND
((NULL REPACKFUNCTION)
NAME)
(T (APPLY REPACKFUNCTION NAMELST))))))
(REPACKFILENAME.STRING.D
[LAMBDA N (* ejs: " 9-Mar-85 16:02")
(* * Convert file names to native format)
(if (AND (EQ N 1)
(LISTP (ARG N 1)))
then (* spread argument list)
(APPLY (FUNCTION REPACKFILENAME.STRING.D)
(ARG N 1))
else (PROG ((BLIP "")
(I 1)
HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION PACKLIST VAR VAL TEMP)
(DECLARE (SPECVARS HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION))
LP (COND
((NOT (IGREATERP I N))
(COND
((LISTP (SETQ VAR (ARG N I)))
(SETQ VAL (CDR VAR))
(SETQ VAR (CAR VAR)))
((NOT (IGREATERP (SETQ I (ADD1 I))
N))
(SETQ VAL (ARG N I)))
(T (SETQ VAL)))
(OR (STRINGP VAL)
(ATOM VAL)
(ERRORX (LIST 27 VAL))) (* fields must be atom)
(SELECTQ VAR
(BODY (MAP (UNPACKFILENAME.STRING (COND
((LISTP VAL)
(* PACKFILENAME.STRING for error checking of fields)
(REPACKFILENAME.STRING.D VAL))
(T VAL)))
[FUNCTION (LAMBDA (X)
(* NIL => not yet seen, BLIP => seen as NIL.)
(OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP]
(FUNCTION CDDR)))
[HOST (OR HOST (SETQ HOST
(if VAL
then (SELCHARQ (CHCON1 VAL)
(({ %[ %()
(SUBSTRING VAL 2
(SELCHARQ (NTHCHARCODE
VAL -1)
((} %] %))
-2)
-1)))
VAL)
else BLIP]
[DIRECTORY (* DIRECTORY really is treated as
{Host}device:<directory>)
(for X on (UNPACKFILENAME.STRING VAL NIL T)
by (CDDR X) do (OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP]
[(DEVICE HOST NAME EXTENSION VERSION)
(OR (EVALV VAR)
(SET VAR (OR VAL BLIP]
(\ILLEGAL.ARG VAR))
(SETQ I (ADD1 I))
(GO LP)))
(RETURN (CONCATLIST
(NCONC (AND HOST (NEQ HOST BLIP)
(LIST "{" HOST "}"))
[AND DEVICE (NEQ DEVICE BLIP)
(SELCHARQ (NTHCHARCODE DEVICE -1)
(: (LIST DEVICE))
(LIST DEVICE (QUOTE :]
(AND DIRECTORY (NEQ DIRECTORY BLIP)
(PROGN (SETQ DIRECTORY (CONCAT DIRECTORY))
[for C from 1 to (NCHARS DIRECTORY)
do (COND
([FMEMB (NTHCHARCODE DIRECTORY C)
(CONSTANT (LIST (CHARCODE %.]
(RPLCHARCODE DIRECTORY C (CHARCODE >]
(LIST "<" DIRECTORY ">")))
(AND NAME (NEQ NAME BLIP)
(LIST NAME))
(AND (OR (AND EXTENSION (NEQ EXTENSION BLIP))
(AND VERSION (NEQ VERSION BLIP)))
(LIST (COND
((AND EXTENSION (EQ (CHCON1 EXTENSION)
(CHARCODE %.)))
BLIP)
(T (QUOTE %.)))
(OR EXTENSION BLIP)))
(AND VERSION (NEQ VERSION BLIP)
(COND
((FIXP VERSION)
(LIST (QUOTE ;)
VERSION))
(T (SELCHARQ (CHCON1 VERSION)
(; (LIST VERSION))
((%. !)
(LIST (QUOTE ;)
(SUBSTRING VERSION 2 -1)))
(LIST (QUOTE ;)
VERSION])
(REPACKFILENAME.STRING.VMS
(LAMBDA N (* ejs: "27-Apr-85 13:16")
(if (AND (EQ N 1)
(LISTP (ARG N 1)))
then (* spread argument list)
(APPLY (FUNCTION REPACKFILENAME.STRING.VMS)
(ARG N 1))
else (PROG ((BLIP "")
(I 1)
HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION TEMPORARY PROTECTION ACCOUNT
PACKLIST VAR VAL TEMP)
(DECLARE (SPECVARS HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION TEMPORARY
PROTECTION ACCOUNT))
LP (COND
((NOT (IGREATERP I N))
(COND
((LISTP (SETQ VAR (ARG N I)))
(SETQ VAL (CDR VAR))
(SETQ VAR (CAR VAR)))
((NOT (IGREATERP (SETQ I (ADD1 I))
N))
(SETQ VAL (ARG N I)))
(T (SETQ VAL)))
(OR (STRINGP VAL)
(ATOM VAL)
(ERRORX (LIST 27 VAL))) (* fields must be atom)
(SELECTQ VAR
(BODY (MAP (UNPACKFILENAME.STRING (COND
((LISTP VAL)
(* PACKFILENAME.STRING for error checking of fields)
(REPACKFILENAME.STRING.VMS VAL))
(T VAL)))
(FUNCTION (LAMBDA (X)
(* NIL => not yet seen, BLIP => seen as NIL.)
(OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP)))))
(FUNCTION CDDR)))
(HOST (OR HOST (SETQ HOST
(if VAL
then (SELCHARQ (CHCON1 VAL)
(({ %[ %()
(SUBSTRING VAL 2
(SELCHARQ (NTHCHARCODE
VAL -1)
((} %] %))
-2)
-1)))
VAL)
else BLIP))))
(DIRECTORY (* DIRECTORY really is treated as
{Host}device:<directory>)
(for X on (UNPACKFILENAME.STRING VAL NIL T)
by (CDDR X) do (OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP)))))
((DEVICE HOST NAME EXTENSION VERSION TEMPORARY)
(OR (EVALV VAR)
(SET VAR (OR VAL BLIP))))
(\ILLEGAL.ARG VAR))
(SETQ I (ADD1 I))
(GO LP)))
(RETURN (CONCATLIST
(NCONC (AND HOST (NEQ HOST BLIP)
(LIST "{" HOST "}"))
(AND DEVICE (NEQ DEVICE BLIP)
(SELCHARQ (NTHCHARCODE DEVICE -1)
(: (LIST DEVICE))
(LIST DEVICE (QUOTE :))))
(AND DIRECTORY (NEQ DIRECTORY BLIP)
(PROGN (SETQ DIRECTORY (CONCAT DIRECTORY))
(for C from 1 to (NCHARS DIRECTORY)
do (COND
((FMEMB (NTHCHARCODE DIRECTORY C)
(CONSTANT (LIST (CHARCODE /)
(CHARCODE >))))
(RPLCHARCODE DIRECTORY C (CHARCODE %.)))))
(LIST "[" DIRECTORY "]")))
(AND NAME (NEQ NAME BLIP)
(LIST NAME))
(AND (OR (AND EXTENSION (NEQ EXTENSION BLIP))
(AND VERSION (NEQ VERSION BLIP)))
(LIST (COND
((AND EXTENSION (EQ (CHCON1 EXTENSION)
(CHARCODE %.)))
BLIP)
(T (QUOTE %.)))
(OR EXTENSION BLIP)))
(AND VERSION (NEQ VERSION BLIP)
(COND
((FIXP VERSION)
(LIST (QUOTE ;)
VERSION))
(T (SELCHARQ (CHCON1 VERSION)
(; (LIST VERSION))
((%. !)
(LIST (QUOTE ;)
(SUBSTRING VERSION 2 -1)))
(LIST (QUOTE ;)
VERSION))))))))))))
(REPACKFILENAME.STRING.3600
(LAMBDA N (* ejs: "23-Feb-85 17:19")
(* * Can you believe this???)
(if (AND (EQ N 1)
(LISTP (ARG N 1)))
then (* spread argument list)
(APPLY (FUNCTION REPACKFILENAME.STRING.3600)
(ARG N 1))
else (PROG ((BLIP "")
(I 1)
HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION PACKLIST VAR VAL TEMP)
(DECLARE (SPECVARS HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION))
LP (COND
((NOT (IGREATERP I N))
(COND
((LISTP (SETQ VAR (ARG N I)))
(SETQ VAL (CDR VAR))
(SETQ VAR (CAR VAR)))
((NOT (IGREATERP (SETQ I (ADD1 I))
N))
(SETQ VAL (ARG N I)))
(T (SETQ VAL)))
(OR (STRINGP VAL)
(ATOM VAL)
(ERRORX (LIST 27 VAL))) (* fields must be atom)
(SELECTQ VAR
(BODY (MAP (UNPACKFILENAME.STRING (COND
((LISTP VAL)
(* PACKFILENAME.STRING for error checking of fields)
(REPACKFILENAME.STRING.3600
VAL))
(T VAL)))
(FUNCTION (LAMBDA (X)
(* NIL => not yet seen, BLIP => seen as NIL.)
(OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP)))))
(FUNCTION CDDR)))
(HOST (OR HOST (SETQ HOST
(if VAL
then (SELCHARQ (CHCON1 VAL)
(({ %[ %()
(SUBSTRING VAL 2
(SELCHARQ (NTHCHARCODE
VAL -1)
((} %] %))
-2)
-1)))
VAL)
else BLIP))))
(DIRECTORY (* DIRECTORY really is treated as
{Host}device:<directory>)
(for X on (UNPACKFILENAME.STRING VAL NIL T)
by (CDDR X) do (OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP)))))
((DEVICE HOST NAME EXTENSION VERSION)
(OR (EVALV VAR)
(SET VAR (OR VAL BLIP))))
(\ILLEGAL.ARG VAR))
(SETQ I (ADD1 I))
(GO LP)))
(RETURN (CONCATLIST
(NCONC (AND HOST (NEQ HOST BLIP)
(LIST "{" HOST "}"))
(AND DEVICE (NEQ DEVICE BLIP)
(SELCHARQ (NTHCHARCODE DEVICE -1)
(: (LIST DEVICE))
(LIST DEVICE (QUOTE :))))
(AND DIRECTORY (NEQ DIRECTORY BLIP)
(PROGN (SETQ DIRECTORY (CONCAT DIRECTORY))
(for C from 1 to (NCHARS DIRECTORY)
do (COND
((FMEMB (NTHCHARCODE DIRECTORY C)
(CONSTANT (LIST (CHARCODE /)
(CHARCODE %.))))
(RPLCHARCODE DIRECTORY C (CHARCODE >)))))
(LIST ">" DIRECTORY ">")))
(AND NAME (NEQ NAME BLIP)
(LIST NAME))
(AND (OR (AND EXTENSION (NEQ EXTENSION BLIP))
(AND VERSION (NEQ VERSION BLIP)))
(LIST (COND
((AND EXTENSION (EQ (CHCON1 EXTENSION)
(CHARCODE %.)))
BLIP)
(T (QUOTE %.)))
(OR EXTENSION BLIP)))
(AND VERSION (NEQ VERSION BLIP)
(COND
((FIXP VERSION)
(LIST (QUOTE %.)
VERSION))
(T (SELCHARQ (CHCON1 VERSION)
(; (LIST VERSION))
((%. !)
(LIST (QUOTE %.)
(SUBSTRING VERSION 2 -1)))
(LIST (QUOTE %.)
VERSION))))))))))))
(REPACKFILENAME.STRING.TOPS20
[LAMBDA N (* ejs: "23-Feb-85 17:20")
(if (AND (EQ N 1)
(LISTP (ARG N 1)))
then (* spread argument list)
(APPLY (FUNCTION REPACKFILENAME.STRING.TOPS20)
(ARG N 1))
else (PROG ((BLIP "")
(I 1)
HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION TEMPORARY PROTECTION ACCOUNT
PACKLIST VAR VAL TEMP)
(DECLARE (SPECVARS HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION TEMPORARY
PROTECTION ACCOUNT))
LP (COND
((NOT (IGREATERP I N))
(COND
((LISTP (SETQ VAR (ARG N I)))
(SETQ VAL (CDR VAR))
(SETQ VAR (CAR VAR)))
((NOT (IGREATERP (SETQ I (ADD1 I))
N))
(SETQ VAL (ARG N I)))
(T (SETQ VAL)))
(OR (STRINGP VAL)
(ATOM VAL)
(ERRORX (LIST 27 VAL))) (* fields must be atom)
(SELECTQ VAR
(BODY (MAP (UNPACKFILENAME.STRING (COND
((LISTP VAL)
(* PACKFILENAME.STRING for error checking of fields)
(REPACKFILENAME.STRING.TOPS20
VAL))
(T VAL)))
[FUNCTION (LAMBDA (X)
(* NIL => not yet seen, BLIP => seen as NIL.)
(OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP]
(FUNCTION CDDR)))
[HOST (OR HOST (SETQ HOST
(if VAL
then (SELCHARQ (CHCON1 VAL)
(({ %[ %()
(SUBSTRING VAL 2
(SELCHARQ (NTHCHARCODE
VAL -1)
((} %] %))
-2)
-1)))
VAL)
else BLIP]
[DIRECTORY (* DIRECTORY really is treated as
{Host}device:<directory>)
(for X on (UNPACKFILENAME.STRING VAL NIL T)
by (CDDR X) do (OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP]
[(DEVICE HOST NAME EXTENSION VERSION TEMPORARY)
(OR (EVALV VAR)
(SET VAR (OR VAL BLIP]
(\ILLEGAL.ARG VAR))
(SETQ I (ADD1 I))
(GO LP)))
(SELECTQ TEMPORARY
[(T S ;S) (* hack for Interlisp-D!)
(OR HOST DEVICE (PROGN (SETQ HOST (QUOTE CORE))
(SETQ TEMPORARY]
NIL)
(RETURN (CONCATLIST
(NCONC (AND HOST (NEQ HOST BLIP)
(LIST "{" HOST "}"))
[AND DEVICE (NEQ DEVICE BLIP)
(SELCHARQ (NTHCHARCODE DEVICE -1)
(: (LIST DEVICE))
(LIST DEVICE (QUOTE :]
(AND DIRECTORY (NEQ DIRECTORY BLIP)
(PROGN (SETQ DIRECTORY (CONCAT DIRECTORY))
[for C from 1 to (NCHARS DIRECTORY)
do (COND
([FMEMB (NTHCHARCODE DIRECTORY C)
(CONSTANT (LIST (CHARCODE /)
(CHARCODE >]
(RPLCHARCODE DIRECTORY C (CHARCODE %.]
(LIST "<" DIRECTORY ">")))
(AND NAME (NEQ NAME BLIP)
(LIST NAME))
(AND (OR (AND EXTENSION (NEQ EXTENSION BLIP))
(AND VERSION (NEQ VERSION BLIP)))
(LIST (COND
((AND EXTENSION (EQ (CHCON1 EXTENSION)
(CHARCODE %.)))
BLIP)
(T (QUOTE %.)))
(OR EXTENSION BLIP)))
[AND VERSION (NEQ VERSION BLIP)
(COND
((FIXP VERSION)
(LIST (QUOTE %.)
VERSION))
(T (SELCHARQ (CHCON1 VERSION)
(; (LIST VERSION))
((%. !)
(LIST (QUOTE %.)
(SUBSTRING VERSION 2 -1)))
(LIST (QUOTE %.)
VERSION]
(AND TEMPORARY (NEQ TEMPORARY BLIP)
(LIST (QUOTE ;)
(SELECTQ TEMPORARY
((S ;S)
(QUOTE S))
T])
(REPACKFILENAME.STRING.UNIX
[LAMBDA N (* ejs: "23-Feb-85 17:20")
(if (AND (EQ N 1)
(LISTP (ARG N 1)))
then (* spread argument list)
(APPLY (FUNCTION REPACKFILENAME.STRING.UNIX)
(ARG N 1))
else (PROG ((BLIP "")
(I 1)
HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION PACKLIST VAR VAL TEMP)
(DECLARE (SPECVARS HOST DEVICE STRUCTURE DIRECTORY NAME EXTENSION VERSION))
LP (COND
((NOT (IGREATERP I N))
(COND
((LISTP (SETQ VAR (ARG N I)))
(SETQ VAL (CDR VAR))
(SETQ VAR (CAR VAR)))
((NOT (IGREATERP (SETQ I (ADD1 I))
N))
(SETQ VAL (ARG N I)))
(T (SETQ VAL)))
(OR (STRINGP VAL)
(ATOM VAL)
(ERRORX (LIST 27 VAL))) (* fields must be atom)
(SELECTQ VAR
(BODY (MAP (UNPACKFILENAME.STRING (COND
((LISTP VAL)
(* PACKFILENAME.STRING for error checking of fields)
(REPACKFILENAME.STRING.UNIX
VAL))
(T VAL)))
[FUNCTION (LAMBDA (X)
(* NIL => not yet seen, BLIP => seen as NIL.)
(OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP]
(FUNCTION CDDR)))
[HOST (OR HOST (SETQ HOST
(if VAL
then (SELCHARQ (CHCON1 VAL)
(({ %[ %()
(SUBSTRING VAL 2
(SELCHARQ (NTHCHARCODE
VAL -1)
((} %] %))
-2)
-1)))
VAL)
else BLIP]
[DIRECTORY (* DIRECTORY really is treated as
{Host}device:<directory>)
(for X on (UNPACKFILENAME.STRING VAL NIL T)
by (CDDR X) do (OR (EVALV (CAR X))
(SET (CAR X)
(OR (CADR X)
BLIP]
[(DEVICE HOST NAME EXTENSION VERSION)
(OR (EVALV VAR)
(SET VAR (OR VAL BLIP]
(\ILLEGAL.ARG VAR))
(SETQ I (ADD1 I))
(GO LP)))
(RETURN (CONCATLIST
(NCONC (AND HOST (NEQ HOST BLIP)
(LIST "{" HOST "}"))
(AND DEVICE (NEQ DEVICE BLIP)
(LIST "/" DEVICE))
(AND DIRECTORY (NEQ DIRECTORY BLIP)
(PROGN (SETQ DIRECTORY (CONCAT DIRECTORY))
[for C from 1 to (NCHARS DIRECTORY)
do (COND
([FMEMB (NTHCHARCODE DIRECTORY C)
(CONSTANT (LIST (CHARCODE >)
(CHARCODE %.]
(RPLCHARCODE DIRECTORY C (CHARCODE /]
(LIST "/" DIRECTORY "/"))
(LIST "/" DIRECTORY "/"))
(AND NAME (NEQ NAME BLIP)
(LIST NAME))
(AND (OR (AND EXTENSION (NEQ EXTENSION BLIP))
(AND VERSION (NEQ VERSION BLIP)))
(LIST (COND
((OR (AND EXTENSION (EQ (CHCON1 EXTENSION)
(CHARCODE %.)))
(OR (NULL EXTENSION)
(EQ EXTENSION BLIP)
(STREQUAL EXTENSION "")))
BLIP)
(T (QUOTE %.)))
(OR EXTENSION BLIP)))
(AND VERSION (NEQ VERSION BLIP)
(COND
((FIXP VERSION)
(LIST (QUOTE ;)
VERSION))
(T (SELCHARQ (CHCON1 VERSION)
(; (LIST VERSION))
((%. !)
(LIST (QUOTE ;)
(SUBSTRING VERSION 2 -1)))
(LIST (QUOTE ;)
VERSION])
(\REPACKFILENAME.NEW.TRANSLATION
(LAMBDA (OSTYPE FUNCTION)
(DECLARE (GLOBALVARS \REPACKFILENAME.OSTYPE.TABLE)) (* ejs: "27-Apr-85 13:36")
(PUTHASH OSTYPE FUNCTION \REPACKFILENAME.OSTYPE.TABLE)))
(\REPACKFILENAME.NEW.TRANSLATIONS
(NLAMBDA NAMES (* ejs: "27-Apr-85 13:36")
(* * Supply a property-list format argument of ostypes and translating functions to be added to ostype table)
(for TAIL on NAMES by (CDDR TAIL) do (for OSTYPE inside (CAR TAIL) do (
\REPACKFILENAME.NEW.TRANSLATION OSTYPE (CADR TAIL))))))
)
(RPAQ? \REPACKFILENAME.OSTYPE.TABLE (HASHARRAY 30 1.1))
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS \REPACKFILENAME.OSTYPE.TABLE)
)
(\REPACKFILENAME.NEW.TRANSLATIONS (D IFS)
REPACKFILENAME.STRING.D
(TOPS20 TOPS-20)
REPACKFILENAME.STRING.TOPS20
(3600 LISPM SYMBOLICS)
REPACKFILENAME.STRING.3600 VMS REPACKFILENAME.STRING.VMS UNIX
REPACKFILENAME.STRING.UNIX)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA )
(ADDTOVAR NLAML )
(ADDTOVAR LAMA REPACKFILENAME.STRING.UNIX REPACKFILENAME.STRING.TOPS20 REPACKFILENAME.STRING.3600
REPACKFILENAME.STRING.D)
)
(PRETTYCOMPRINT TCPNAMESCOMS)
(RPAQQ TCPNAMESCOMS ((FNS REPACKFILENAME.STRING REPACKFILENAME.STRING.D REPACKFILENAME.STRING.VMS
REPACKFILENAME.STRING.3600 REPACKFILENAME.STRING.TOPS20
REPACKFILENAME.STRING.UNIX \REPACKFILENAME.NEW.TRANSLATION
\REPACKFILENAME.NEW.TRANSLATIONS)
(INITVARS (\REPACKFILENAME.OSTYPE.TABLE (HASHARRAY 30 1.1)))
(GLOBALVARS \REPACKFILENAME.OSTYPE.TABLE)
(P (\REPACKFILENAME.NEW.TRANSLATIONS (D IFS)
REPACKFILENAME.STRING.D
(TOPS20 TOPS-20)
REPACKFILENAME.STRING.TOPS20
(3600 LISPM SYMBOLICS)
REPACKFILENAME.STRING.3600 VMS
REPACKFILENAME.STRING.VMS UNIX
REPACKFILENAME.STRING.UNIX))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDVARS (NLAMA \REPACKFILENAME.NEW.TRANSLATIONS)
(NLAML)
(LAMA REPACKFILENAME.STRING.UNIX REPACKFILENAME.STRING.TOPS20
REPACKFILENAME.STRING.3600 REPACKFILENAME.STRING.VMS
REPACKFILENAME.STRING.D)))))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA \REPACKFILENAME.NEW.TRANSLATIONS)
(ADDTOVAR NLAML )
(ADDTOVAR LAMA REPACKFILENAME.STRING.UNIX REPACKFILENAME.STRING.TOPS20 REPACKFILENAME.STRING.3600
REPACKFILENAME.STRING.VMS REPACKFILENAME.STRING.D)
)
(PUTPROPS TCPNAMES COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (1393 23290 (REPACKFILENAME.STRING 1403 . 1813) (REPACKFILENAME.STRING.D 1815 . 5831) (
REPACKFILENAME.STRING.VMS 5833 . 9944) (REPACKFILENAME.STRING.3600 9946 . 14042) (
REPACKFILENAME.STRING.TOPS20 14044 . 18536) (REPACKFILENAME.STRING.UNIX 18538 . 22623) (
\REPACKFILENAME.NEW.TRANSLATION 22625 . 22854) (\REPACKFILENAME.NEW.TRANSLATIONS 22856 . 23288)))))
STOP