Google
 

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