;; AUTODF J.  T.  Galkowski 1975-09-30
;; Updated to work with NEWIO by DTS 5/28/79
;;;
;;This file contains autoload properties for major functions in most files in the LIBLSP library. 
;;; NO OR INCOMPLETE AUTOLOAD PROPERTIES FOR FOLLOWING FILES
;;; name         reason
;;; "MACRO       contains readmacros
;;; %READ        contains readmacros
;;; ERT          not compiled
;;; FUNVAL       not compiled
;;; GC&VAR	 better to load from lisp init file
;;; PRFONT       many externally callable functions
;;; PROP!        many independent functions
;;; SMURF        better to load from your INIT file

(DEFPROP %PRINT (%PRINT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP %PRIN1 (%PRINT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP LAND (BBOOLE FASL DSK LIBLSP) AUTOLOAD)

(DEFPROP LOR (BBOOLE FASL DSK LIBLSP) AUTOLOAD)

(DEFPROP LCOM (BBOOLE FASL DSK LIBLSP) AUTOLOAD)

(DEFPROP LNOT (BBOOLE FASL DSK LIBLSP) AUTOLOAD)

(DEFPROP LXOR (BBOOLE FASL DSK LIBLSP) AUTOLOAD)

(DEFPROP DEBUG (DEBUG FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP DIREAD (DIREAD FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP FILE+ (FILE+ FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP LOGG (LOG FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP XGP (PRFONT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP GET! (PROP! FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP PUTPROP! (PROP! FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP ADDPROP! (PROP! FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP INCRPROP! (PROP! FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP SELECTQ (SELECT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP STEP (STEPR FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP STEPMM (STEPPMM FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP SUBLOAD (SUBLOA FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP DEFVAR (PPAK FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP DV (PPAK FASL DSK LIBLSP) AUTOLOAD)

(DEFPROP PPRIN1 (PPRINT FASL DSK LIBLSP) AUTOLOAD)

(DEFPROP PPRINT (PPRINT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP PFFF (FORMAT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP PFPF (FORMAT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP PFFX (FORMAT FASL DSK LIBLSP) AUTOLOAD) 

(DEFPROP PICTURE (LFTV FASL DSK LIBLSP) AUTOLOAD) 

(DEFUN LIBLSP-AUTODF-CALL-UPDATE NIL 
       (PROG (N TIME-LAST-ACCESS ACCESS-RATE V0 V1 OIBASE OBASE) 
	     (SETQ OIBASE IBASE OBASE BASE)
	     (SETQ IBASE 10. BASE 10.)
	     (setq / ())
	     (setq tinfile (open '((dsk libdoc)usage autodf)))
	     (setq / ())
	     (SETQ N (CAR (READ tinfile)) 
		   TIME-LAST-ACCESS (READ tinfile) 
		   ACCESS-RATE (CAR (READ tinfile)))
	     (setq / ())
	     (SETQ 
	      V0
	      (+$
	       (*$ (FLOAT (CAR TIME-LAST-ACCESS)) (*$ 365.0 24.0))
	       (+$
		(*$ (FLOAT (CADR TIME-LAST-ACCESS)) (*$ 31.0 24.0))
		(+$
		 (*$ (FLOAT (CADDR TIME-LAST-ACCESS)) 24.0)
		 (+$ (FLOAT (CAR (CDDDR TIME-LAST-ACCESS)))
		     (+$ (//$ (FLOAT (CADR (CDDDR TIME-LAST-ACCESS)))
			      24.0)
			 (//$ (FLOAT (CADDR (CDDDR TIME-LAST-ACCESS)))
			      3600.0)))))))
	     (SETQ TIME-LAST-ACCESS (APPEND (STATUS DATE)
					    (STATUS DAYTIME)))
	     (SETQ 
	      V1
	      (+$
	       (*$ (FLOAT (CAR TIME-LAST-ACCESS)) (*$ 365.0 24.0))
	       (+$
		(*$ (FLOAT (CADR TIME-LAST-ACCESS)) (*$ 31.0 24.0))
		(+$
		 (*$ (FLOAT (CADDR TIME-LAST-ACCESS)) 24.0)
		 (+$ (FLOAT (CAR (CDDDR TIME-LAST-ACCESS)))
		     (+$ (//$ (FLOAT (CADR (CDDDR TIME-LAST-ACCESS)))
			      24.0)
			 (//$ (FLOAT (CADDR (CDDDR TIME-LAST-ACCESS)))
			      3600.0)))))))
	     (SETQ ACCESS-RATE
		   (//$ (FLOAT (1+ N))
			(+$ (//$ (FLOAT N) ACCESS-RATE) (-$ V1 V0))))
	     (setq outfile (open '((dsk libdoc)usage autodf)'(out)))
	     (setq / ())
	     (PRINT (LIST (1+ N)) outfile)
	     (PRINT TIME-LAST-ACCESS outfile)
	     (PRINT (LIST ACCESS-RATE) outfile)
	     (close outfile)
	     (close tinfile)
	     (setq / ())<
	     (REMOB 'LIBLSP-AUTODF-CALL-UPDATE)
	     (SETQ BASE OBASE IBASE OIBASE)
	     (RETURN '--NOTED--))) 

((lambda (/ / /)
	 (clear-output (setq / t))
	 (liblsp-autodf-call-update))
 ()()())