(FILECREATED "12-Jul-84 18:27:03" {ERIS}<SPEECH>LOADSPEECH.FPKG;8
 3567   

      changes to:  (FNS LOADSPEECH)

      previous date: "11-Jul-84 20:44:14" {ERIS}<SPEECH>LOADSPEECH.FPKG;7)


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LOADSPEECHCOMS)

(RPAQQ LOADSPEECHCOMS
 ((INITVARS (SPEECH.FILES %'
					       (AUDIO COEWAVE FFT PARCOE PLOT SCOPE USER HANDSY 
						      SCALEDWINDOW SYNTH BUFFER PHONTOPV)))
		       (FNS EMACS LOADSPEECH UPDATESPEECH)))

(RPAQ? SPEECH.FILES
 %' (AUDIO COEWAVE FFT PARCOE PLOT SCOPE USER HANDSY SCALEDWINDOW SYNTH BUFFER 
			      PHONTOPV))
(DEFINEQ

(EMACS

  [LAMBDA NIL                                                (* pkh: " 8-Jun-84 19:17")

    (QUOTE FOO])

(LOADSPEECH

  [LAMBDA (FILES EXT EMACSFLG)                               (* hdj "12-Jul-84 17:47")

                                                             (* Loads the files necessary to run the synthesizer)

                                                             (* Parameters added to allow specification of whether or

							     not you want EMACS loaded)

    (PROGN (COND
	     ((NULL FILES)
	       (SETQ FILES SPEECH.FILES)))
	   [COND
	     ([OR (NULL EXT)
		  (EQ (EVALV EXT 'NOBIND]
	       (SETQ EXT 'DCOM]
	   (LOAD? '{ERIS}<LISP>LIBRARY>SAMEDIR.DCOM)
	   (LOAD? '{ERIS}<LISP>LIBRARY>COMPILEBANG.DCOM)
	   (LOAD? 'DATABASEFNS.DCOM)
	   (MOVD 'COMPILE! 'COMPILE)
	   (SETQ SAVEDBFLG 'YES)
	   (SETQ LOADDBFLG 'YES)
	   (LOAD? '{ERIS}<LISPUSERS>BQUOTE.DCOM)
	   [COND
	     ((NULL (GETD 'SETF.HELPER))
	       (LOAD '{ERIS}<LISPUSERS>SETF.DCOM]
	   [COND
	     [EMACSFLG (PUTD 'EMACS NIL)
		       (COND
			 ((NULL (GETD 'DEFHELPER))
			   (LOAD '{ERIS}<LISPUSERS>EMACSUSER.DCOM]
	     (T (LOAD '{ERIS}<LISPUSERS>EMACSUSER.DCOM]
	   (LOAD? '{ERIS}<ROACH>LISP>UTI3.DCOM)
	   (COND
	     ((NOT (EQ FILES 'NONE))
	       (for
 X in
 FILES do
 (LOAD? (PACKFILENAME 'NAME X 'EXTENSION EXT)))
	       (LOAD? 'PHONEMES])

(UPDATESPEECH

  [LAMBDA (DCOMUPDATE WORKDIR EXT)                           (* pkh: "11-Jul-84 20:43")

    (PROG (FILES FILE)
          [SETQ FILES (for
 X in
 SPEECH.FILES
			 join
 (COND
				([SETQ FILE
				    (COND
				      [WORKDIR (OR (INFILEP (PACKFILENAME 'DIRECTORY WORKDIR 'NAME X 
									  'EXTENSION
									  (SELECTQ EXT
										   (DCOM 'DCOM)
										   (FPKG 'FPKG)
										   NIL)))
						   (INFILEP (PACKFILENAME 'NAME X 'EXTENSION
									  (SELECTQ EXT
										   (DCOM 'DCOM)
										   (FPKG 'FPKG)
										   NIL)))
						   (INFILEP (PACKFILENAME 'DIRECTORY WORKDIR 'NAME X 
									  'EXTENSION NIL))
						   (INFILEP (PACKFILENAME 'NAME X 'EXTENSION NIL]
				      (T (OR (INFILEP (PACKFILENAME 'NAME X 'EXTENSION
								    (SELECTQ EXT
									     (DCOM 'DCOM)
									     (FPKG 'FPKG)
									     NIL)))
					     (INFILEP (PACKFILENAME 'NAME X 'EXTENSION NIL]
				  (LIST FILE))
				(T NIL]
          (RETURN (COND
		    [DCOMUPDATE (for
 X in
 FILES join
 (COND
						       ((IGREATERP (IDATE (GETFILEINFO X 'WRITEDATE))
								   (IDATE MAKESYSDATE))
							 (LIST (LOAD X]
		    (T (for
 X in
 FILES join
 (COND
					      ((IGREATERP (IDATE (GETFILEINFO X 'WRITEDATE))
							  (IDATE (GETFILEINFO (PACKFILENAME
										'NAME
										(FILENAMEFIELD X 
											    'NAME)
										'EXTENSION 'DCOM)
									      'WRITEDATE)))
						(LIST (LOAD X])
)
(PUTPROPS LOADSPEECH.FPKG COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (630 3481 (EMACS 640 . 759) (LOADSPEECH 761 . 2023) (UPDATESPEECH 2025 . 3479)))))
STOP