(lisp-set-implementation "Interleaf Lisp" "1.0")


;; Created By William Wagner 15-AUG-1990   AiResearch Tucson Division

;; This LISP calls the Archive select procedure passing a time in seconds,
;; which is the time since modified, of documents you wish to select.
;;
;; Place this lisp in the Custom No Selection Cabinet. Then move the cursor
;; inside a container (i.e. Cabinet, Folder, Drawer) and use the pull down
;; menu to select  Custom > Select_file. You will be prompted to enter the
;; number of days since the documents you wish to be selected have been
;; modified.

;; Begin

;; If archive select function is not loaded
(if (not (fboundp 'archive-select))
	 ;; load it
         (leafw-load "archive_select")
)

	 ;; this statement will look for the archive select lisp
	 ;; in the Leafware library cabinet. If you do not have leafware,
	 ;; place the archive select lisp in any directory
	 ;; and change the previous line to 
	 ;; (load "ddcu:[directory]archive_select")

;; prompt for days since modified
(psetq opt (display-stickup "Enter days since modified
Default is 90 days" :input 5))

;; if enter is selected (if cancel is selected, procedure exits at this point)
(if opt 

        ;; and if nothing is entered
	(if (=(string-compare opt "")0)

	    ;; then call archive select function
	    ;; using 90 days (in seconds) as default
            (archive-select 7776000)

	    ;; else take the input string and convert it to
	    ;; and internal stream. integer form
            (progn (psetq opt (make-string-stream opt :input))

		   ;; set base equal to number of days times seconds in
		   ;; 1 day to get total time in seconds
                   (psetq base (* (read opt) 86400))

		   ;; close stream
                   (close opt)

		   ;; call archive select function
		   ;; passing time in seconds since modified
                   (archive-select base)
            )
        )
)