(FILECREATED "27-Apr-84 17:53:59" {PHYLUM}<SPEECH>SPEECHUTIL.;2
 2800   

      changes to:  (VARS SPEECHUTILCOMS SEGMENTS)
		   (FNS MAKE.PARAM FIND.SEGMENTS)

      previous date: "27-Apr-84 17:29:04" {PHYLUM}<SPEECH>SPEECHUTIL.;1)


(PRETTYCOMPRINT SPEECHUTILCOMS)

(RPAQQ SPEECHUTILCOMS
 ((FNS FIND.SEGMENTS MAKE.PARAM MAKE.ALL.PARAMS)
		       (VARS SEGMENTS)))
(DEFINEQ

(FIND.SEGMENTS

  [LAMBDA (FILE)                                             (* pkh: "27-Apr-84 17:25")


          (* * comment)



    (for
 SEGMENTS INSTREAM first
 (SETQ INSTREAM (OPENSTREAM FILE 'INPUT))
       while
 (NOT (PROGN (SKIPSEPRS INSTREAM)
			 (EOFP INSTREAM)))
       do
 [COND
	    ((EQ (RATOM INSTREAM)
		 'DEFVAR)
	      (push
 SEGMENTS (RATOM INSTREAM]
       finally
 (RETURN (PROGN (CLOSEF INSTREAM)
			      SEGMENTS])

(MAKE.PARAM

  [LAMBDA (SEGMENT)                                          (* pkh: "27-Apr-84 17:01")


          (* * Reads segment specs from a file and creates a PARAMETER)



    (PROG (P PNAMEPROPSLIST)
          (SETQ P (create
 PARAM))
          (SETQ PNAMEPROPSLIST (CDDDR SEGMENT))
          (for
 PNAMEPROPS in
 PNAMEPROPSLIST do
 (USER.SETPARAM (CAR PNAMEPROPS)
							      (CDR PNAMEPROPS)
							      P))
          (RETURN P])

(MAKE.ALL.PARAMS

  [LAMBDA (SEGMENTLIST)                                      (* pkh: "27-Apr-84 17:53")

    (for
 SEGMENT in
 SEGMENTLIST do
 (MAKE.PARAM
 SEGMENT])
)

(RPAQQ SEGMENTS
 (SPEECH.YU SPEECH.ER SPEECH.UW SPEECH.UH SPEECH.OY SPEECH.OW SPEECH.AO SPEECH.AH 
			   SPEECH.AW SPEECH.AA SPEECH.AY SPEECH.AE SPEECH.EH SPEECH.EY SPEECH.IH 
			   SPEECH.IY SPEECH.TT.AEXCEPTIONS SPEECH.TT.AANY SPEECH.SI.AANY 
			   SPEECH.HH.BANY SPEECH.LL.BANY SPEECH.RR.BANY SPEECH.YY.BANY SPEECH.WW.BANY 
			   SPEECH.NN.BROUNDED SPEECH.NN.BBACKUNROUNDED SPEECH.NN.BFRONT 
			   SPEECH.MM.BBACK SPEECH.MM.BFRONT SPEECH.GG.BROUNDED 
			   SPEECH.GG.BBACKUNROUNDED SPEECH.GG.BFRONT SPEECH.KK.BROUNDED 
			   SPEECH.KK.BBACKUNROUNDED SPEECH.KK.BFRONT SPEECH.DD.BROUNDED 
			   SPEECH.DD.BBACKUNROUNDED SPEECH.DD.BFRONT SPEECH.TT.BROUNDED 
			   SPEECH.TT.BBACKUNROUNDED SPEECH.TT.BFRONT SPEECH.BB.BBACK SPEECH.BB.BFRONT 
			   SPEECH.PP.BBACK SPEECH.PP.BFRONT SPEECH.JH.BROUNDED 
			   SPEECH.JH.BBACKUNROUNDED SPEECH.JH.BFRONT SPEECH.CH.BROUNDED 
			   SPEECH.CH.BFRONT SPEECH.SH.BROUNDED SPEECH.CH.BBACKUNROUNDED 
			   SPEECH.SH.BBACK.UNROUNDED SPEECH.SH.BFRONT SPEECH.ZZ.BROUNDED 
			   SPEECH.ZZ.BBACK.UNROUNDED SPEECH.ZZ.BFRONT SPEECH.SS.BROUNDED 
			   SPEECH.SS.BBACK.UNROUNDED SPEECH.SS.BFRONT SPEECH.DH.BBACK 
			   SPEECH.DH.BFRONT SPEECH.TH.BBACK SPEECH.TH.BFRONT SPEECH.VV.BBACK 
			   SPEECH.VV.BFRONT SPEECH.FF.BBACK SPEECH.FF.BFRONT))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (373 1504 (FIND.SEGMENTS 383 . 852) (MAKE.PARAM 854 . 1315) (MAKE.ALL.PARAMS 1317 . 1502
)))))
STOP