github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-13 03:34:18 +00:00
Code Issues Projects Releases Wiki Activity

obsolete many lispusers (#702)

Browse Source 
* obsolete many lispusers

* NSDISPLAYSIZES isn't obsolete
This commit is contained in:
Larry Masinter
2022-02-25 14:40:37 -08:00
committed by GitHub
parent 200b73c39d
commit 601bc94fb7
50 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
obsolete/lispusers/NSCOPYFILE Normal file
View File

@@ -0,0 +1,37 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "10-Dec-87 11:40:53" {ERIS}<VANMELLE>LISP>NSCOPYFILE.;3 2187
changes to%: (FNS NSCOPYFILE)
previous date%: " 9-Oct-87 17:35:59" {ERIS}<VANMELLE>LISP>NSCOPYFILE.;2)
(* "
Copyright (c) 1987 by Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT NSCOPYFILECOMS)
(RPAQQ NSCOPYFILECOMS ((FNS NSCOPYFILE) (PROP FILETYPE NSCOPYFILE) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE COPYFILE) (QUOTE \GENERIC.COPYFILE)) (AND (EQ MAKESYSNAME :LYRIC) (FILESLOAD (SYSLOAD) NSRANDOM)) (AND (CCODEP (QUOTE \NSFILING.COPYFILE)) (CCODEP (QUOTE NSCOPYFILE)) (MOVD (QUOTE NSCOPYFILE) (QUOTE COPYFILE) NIL T)))))
)
(DEFINEQ
(NSCOPYFILE
(LAMBDA (FROMFILE TOFILE DESTPARAMETERS) (* ; "Edited 10-Dec-87 11:40 by bvm:") (* ;; "Special version of COPYFILE that lets NS servers do efficient or information-preserving copy. Perhaps COPYFILE will be a device method some day.") (LET ((*UPPER-CASE-FILE-NAMES* NIL) FROMDEV TODEV) (if (AND (NULL DESTPARAMETERS) (NOT (NULL TOFILE)) (NEQ TOFILE T) (SETQ FROMDEV (\GETDEVICEFROMNAME (SETQ FROMFILE (\ADD.CONNECTED.DIR (if (TYPEP FROMFILE (QUOTE PATHNAME)) then (\CONVERT-PATHNAME FROMFILE) else FROMFILE))))) (EQ (fetch (FDEV OPENFILE) of FROMDEV) (FUNCTION \NSFILING.OPENFILE)) (SETQ TODEV (\GETDEVICEFROMNAME (SETQ TOFILE (\ADD.CONNECTED.DIR (if (TYPEP TOFILE (QUOTE PATHNAME)) then (\CONVERT-PATHNAME TOFILE) else TOFILE))))) (EQ (fetch (FDEV OPENFILE) of TODEV) (FUNCTION \NSFILING.OPENFILE))) then (* ; "Both source and destination are NS servers.") (\NSFILING.COPYFILE FROMDEV FROMFILE TODEV TOFILE) else (\GENERIC.COPYFILE FROMFILE TOFILE DESTPARAMETERS))))
)
)
(PUTPROPS NSCOPYFILE FILETYPE :COMPILE-FILE)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(LOCALVARS . T)
)
(DECLARE%: DONTEVAL@LOAD DOCOPY
(MOVD? (QUOTE COPYFILE) (QUOTE \GENERIC.COPYFILE))
(AND (EQ MAKESYSNAME :LYRIC) (FILESLOAD (SYSLOAD) NSRANDOM))
(AND (CCODEP (QUOTE \NSFILING.COPYFILE)) (CCODEP (QUOTE NSCOPYFILE)) (MOVD (QUOTE NSCOPYFILE) (QUOTE COPYFILE) NIL T))
)
(PUTPROPS NSCOPYFILE COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (738 1735 (NSCOPYFILE 748 . 1733)))))
STOP