(FILECREATED "27-Jun-85 17:08:10" {EROS}<SPEECH>MAILREADER>CALLTEXT>PROSE-LOAD.;8 4177   

      changes to:  (FNS P.LOADFILES)

      previous date: "22-May-85 18:10:11" {EROS}<SPEECH>MAILREADER>CALLTEXT>PROSE-LOAD.;7)


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

(PRETTYCOMPRINT PROSE-LOADCOMS)

(RPAQQ PROSE-LOADCOMS ((VARS LOADDFLG (P.FILES (QUOTE (PROSE-PHONE PROSE-LAFITE PROSE-CONTROLLER 
								   PROSE-UTIL TALK MAIL-READER-USERS 
								   PROSE-YIELD)))
			     (PROSEDEBUG NIL))
		       (FNS P.LOADFILES P.MODIFY.LAFITE P.RESTORE.LAFITE P.RESTORE.RS232.DEFS)))

(RPAQQ LOADDFLG ALWAYS)

(RPAQQ P.FILES (PROSE-PHONE PROSE-LAFITE PROSE-CONTROLLER PROSE-UTIL TALK MAIL-READER-USERS 
			    PROSE-YIELD))

(RPAQQ PROSEDEBUG NIL)
(DEFINEQ

(P.LOADFILES
  [LAMBDA (DIRLIST SYMBOLICFLG)                              (* BBB "27-Jun-85 17:07")

          (* * Loads the files necessary to drive the PROSE synthesizer)



          (* * Since ERIS is down we will do without LOADFILES but we need RS232 so we get it from our own directory)


    (pushnew DIRECTORIES (QUOTE {ERIS}<LISPCORE>LIBRARY>))
    (LOAD? (QUOTE {ERIS}<LISPUSERS>LOADFILES.DCOM)
	   (QUOTE SYSLOAD))
    (LOAD? (QUOTE (QUOTE RS232.DCOM))
	   (QUOTE SYSLOAD))                                  (* Setting baud rate to 1200 
							     (for unknown reasonl; 9600 ought to be just as good))
                                                             (* RS232BACKGROUND (QUOTE ON))
    [LOADFILES (OR DIRLIST (QUOTE ({EROS}<SPEECH>MAILREADER>CALLTEXT>)))
	       P.FILES
	       (COND
		 (SYMBOLICFLG NIL)
		 (T (QUOTE COM]
    (P.RS232.INIT T)
    (P.MODIFY.LAFITE)
    (LOAD (QUOTE PROSE-LAFITE-MESSAGES.DCOM))
    (START.PROSE.PROCESSES])

(P.MODIFY.LAFITE
  [LAMBDA NIL                                                (* pkh: "18-Jan-85 15:36")
                                                             (* Modifies LAFITE for use with the mail reader)
                                                             (* \LAFITE.BROWSE must be supplied with a menu item)
    (MOVD (QUOTE \LAFITE.BROWSE)
	  (QUOTE ORIGINAL.LAFITE.BROWSE))
    (MOVD (QUOTE PROSE.LAFITE.BROWSE)
	  (QUOTE \LAFITE.BROWSE))                            (* \LAFITE.PREPARE.BROWSER must have automatic confirm)
    (MOVD (QUOTE \LAFITE.PREPARE.BROWSER)
	  (QUOTE ORIGINAL.LAFITE.PREPARE.BROWSER))
    (MOVD (QUOTE PROSE.LAFITE.PREPARE.BROWSER)
	  (QUOTE \LAFITE.PREPARE.BROWSER))
    (MOVD (QUOTE \LAFITE.WRITE.PROFILE)
	  (QUOTE ORIGINAL.LAFITE.WRITE.PROFILE))
    (MOVD (QUOTE PROSE.LAFITE.WRITE.PROFILE)
	  (QUOTE \LAFITE.WRITE.PROFILE])

(P.RESTORE.LAFITE
  [LAMBDA (args...)                                          (* pkh: " 4-Jan-85 12:08")

          (* * Restores original definitions for LAFITE functions)


    (MOVD (QUOTE ORIGINAL.LAFITE.BROWSE)
	  (QUOTE \LAFITE.BROWSE))
    (MOVD (QUOTE ORIGINAL.LAFITE.PREPARE.BROWSER)
	  (QUOTE \LAFITE.PREPARE.BROWSER))
    (MOVD (QUOTE ORIGINAL.LAFITE.QUIT)
	  (QUOTE \LAFITE.QUIT))
    (MOVD (QUOTE ORIGINAL.LAFITE.WRITE.PROFILE)
	  (QUOTE \LAFITE.WRITE.PROFILE])

(P.RESTORE.RS232.DEFS
  [LAMBDA (args...)                                          (* pkh: " 4-Jan-85 12:17")

          (* * comment)


    (MOVD (QUOTE ORIGINAL.RS232FORCEOUTPUT)
	  (QUOTE RS232FORCEOUTPUT))
    (MOVD (QUOTE ORIGINAL.RS232CLEARBUFFER)
	  (QUOTE RS232CLEARBUFFER))
    (MOVD (QUOTE ORIGINAL.RS232WRITEBYTE)
	  (QUOTE RS232WRITEBYTE))
    (MOVD (QUOTE ORIGINAL.RS232WRITECHARS)
	  (QUOTE RS232WRITECHARS))
    (MOVD (QUOTE ORIGINAL.RS232WRITESTRING)
	  (QUOTE RS232WRITESTRING))
    (MOVD (QUOTE ORIGINAL.RS232READBYTE)
	  (QUOTE RS232READBYTE))
    (printout T "RS232 function definitions have been restored. " T])
)
(PUTPROPS PROSE-LOAD COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (793 4091 (P.LOADFILES 803 . 1862) (P.MODIFY.LAFITE 1864 . 2830) (P.RESTORE.LAFITE 2832
 . 3367) (P.RESTORE.RS232.DEFS 3369 . 4089)))))
STOP