Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED "12-MAY-78 00:38:46" <LISPUSERS>WHATS.;7 4483
changes to: FILETYPE
previous date: "17-MAR-78 04:16:02" <LISPUSERS>WHATS.;6)
(PRETTYCOMPRINT WHATSCOMS)
(RPAQQ WHATSCOMS ((FNS FILETYPE READASCIZ)
(DECLARE: EVAL@COMPILE DONTCOPY
(P (OR (GETP (QUOTE JS)
(QUOTE MACRO))
(LOAD (QUOTE <LISPUSERS>CJSYS.COM)
(QUOTE SYSLOAD)))))
(LISPXMACROS WHATS)))
(DEFINEQ
(FILETYPE
(LAMBDA (FILE) (* lmm "12-MAY-78 00:36")
(RESETLST
(PROG (BYTESIZE JFN LENGTH TEM)
(OR (NLSETQ (SETQ FILE
(OPENFILE FILE (QUOTE INPUT)
NIL NIL
(QUOTE (THAWED DON'T.CHANGE.DATE))))
)
(AND (INFILEP FILE)
(NLSETQ (SETQ FILE
(OPENFILE FILE (QUOTE INPUT)
NIL NIL
(QUOTE (DON'T.CHANGE.DATE))))))
(RETURN (LIST (ERRORSTRING (CAR (ERRORN))))))
(SETQ JFN (OPNJFN FILE))
(RESETSAVE NIL (LIST (QUOTE CLOSEF?)
FILE))
(SETQ BYTESIZE (LOGAND (LRSH (JS GTFDB JFN (XWD 1 9)
1 1)
24)
63))
(AND (NEQ BYTESIZE 0)
(JS SFBSZ JFN BYTESIZE))
(SETQ LENGTH (JS GTFDB JFN (XWD 1 10)
1 1))
(SETQ SIZE (JS SIZEF JFN NIL NIL 3))
(RETURN
(OR
(COND
((ZEROP SIZE)
(QUOTE (EMPTY)))
(T
(SELECTQ
BYTESIZE
(7
(COND
((AND (IGREATERP LENGTH 40)
(FILEPOS "(FILECREATED" FILE 0 20))
(READ FILE FILERDTBL))
((AND
(IGREATERP LENGTH 100)
(AND (FILEPOS "XX-XXX-XX XX:XX:XX" FILE 0
18 (QUOTE X)
T)
(SELECTQ (READC FILE)
(, T)
(-(RPTQ 3 (READC FILE))
(EQ (READC FILE)
(QUOTE ,)))
NIL)))
(QUOTE (MESSAGE)))
((AND (IGREATERP LENGTH 200)
(FILEPOS "(PROGN (PRIN1" FILE 0 30)
(FILEPOS "(READATABASE)" FILE 30 300))
(SETFILEPTR FILE 0)
(SKREAD FILE)
(CONS (QUOTE DATABASE)
(READ FILE FILERDTBL)))
((AND (IGREATERP LENGTH 40)
(FILEPOS "" FILE (IDIFFERENCE LENGTH
40)
LENGTH NIL T))
(QUOTE (BRAVO ?)))
(T (QUOTE (TEXT ?)))))
(36
(COND
((IEQP (SETQ TEM
(LRSH (JS BIN JFN NIL NIL 2)
18))
512)
(COND
((AND (IGREATERP SIZE 75)
(IEQP (JS RIN JFN NIL 3 2)
(CONSTANT
(SIXBIT (QUOTE SYSOUT)))))
(LIST (QUOTE SYSOUT)
(QUOTE ON)
(GDATE (JS BIN JFN NIL NIL 2))
(READASCIZ JFN)))
((AND (IGREATERP SIZE 100)
(IEQP (JS RIN JFN NIL 3 2)
(CONSTANT
(SIXBIT (QUOTE MAKSYS)))))
(LIST (QUOTE MAKESYS)
(GDATE (JS BIN JFN NIL NIL 2))))
((AND (OR (EQ SIZE 3)
(EQ SIZE 2))
(IEQP (JS RIN JFN NIL 0 2)
134217729)
(IEQP (JS RIN JFN NIL 2 2)
266240)
(IEQP (JS RIN JFN NIL 1027 2)
9126805520))
(JS SFPTR JFN 1166)
(LIST (QUOTE INDIRECT)
(READASCIZ JFN)))
(T (QUOTE (SAV)))))
((OR (EQ TEM 4)
(EQ TEM 12))
(QUOTE (REL ?)))
((ILESSP (IMINUS (LOGOR -262144 TEM))
LENGTH)
(QUOTE (SAVE FILE ?)))))
(8 (AND (EQ BYTESIZE 8)
(OR (FILEPOS "DOCULIST" FILE 0 10)
(FILEPOS "doculist" FILE 0 10))
(QUOTE (EARS))))
NIL)))
(LIST BYTESIZE (QUOTE BIT)
(QUOTE FILE))))))))
(READASCIZ
(LAMBDA (JFN) (* lmm "17-MAR-78 02:14")
(ASSEMBLE NIL
(CQ MACSCRATCHSTRING)
(FASTCALL UPATM)
(CQ JFN)
(SUBI 1 , ASZ)
(MOVEI 2 , 7)
(JS SFBSZ)
(MOVE 2 , 3)
(MOVEI 3 , -2 (4))
(MOVEI 4 , 0)
(JS SIN)
(IDPB 2 , 4)
(CQ (MKATOM (STRCONC0))))))
)
(DECLARE: EVAL@COMPILE DONTCOPY
(OR (GETP (QUOTE JS)
(QUOTE MACRO))
(LOAD (QUOTE <LISPUSERS>CJSYS.COM)
(QUOTE SYSLOAD)))
)
(ADDTOVAR LISPXHISTORYMACROS )
(ADDTOVAR LISPXMACROS (WHATS
(DIRECTORY (CAR LISPXLINE)
(APPEND (AND (NOT (FMEMB (QUOTE P)
(CDR LISPXLINE)))
(QUOTE (P)))
(CDR LISPXLINE)
(QUOTE (PRINT " " @
(LAMBDA
(J FILENAME)
(SPACES 1)
(PRIN2 (FILETYPE
FILENAME)
T)))))
(QUOTE *)
-3)))
(DECLARE: DONTCOPY
(FILEMAP (NIL (430 3885 (FILETYPE 442 . 3494) (READASCIZ 3498 . 3882))))
)
STOP