(FILECREATED " 7-Aug-84 23:25:33" {ERIS}<SPEECH>LEXICON>KEEP>PARSE-TEST.;1
 2870   

      changes to:  (FNS CHECK.PARSER)

      previous date: " 7-Aug-84 22:36:04" {ERIS}<SPEECH>LEXICON>PARSE-TEST.;1)


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

(PRETTYCOMPRINT PARSE-TESTCOMS)

(RPAQQ PARSE-TESTCOMS
 ((VARS FACITARRAY)
		       (FNS CHECK.PARSER MAKE.FACIT.ARRAY TEMP)))

(RPAQ FACITARRAY (READARRAY 100 (QUOTE POINTER) 1))
(x
x-bIs1
@k-tI1<nIk
@d1-\vEnt2
x-glu1<tN-\et
@l2<kx-\lI1<nE<ti
@1<mx-\to2<ri
x<n@1<tx-mi
@n1<Txm
x-pE1<lxnt
ar2<kx-\pE1<lx-\go2
art1*lxs
x-stra1<lx-Ji
c1<gyU<ri
cl1
b@nd1
be1<sN
bi1*\hYv2
bEt1
bYt1
blu1-IG
but1
brx-vU1<rx
bru-\ha1-\ha2
bR1<g%|n<di
kek1
ke1<\nYn2
kar2<b%|<\ne1<S%|n
k@s1<\tret2
CE1<l%|st
C@n1<sL-X-i
CEk1
ko1<r%|s
sI1<vL
klo1<ZX
kag1*\hwil2
ka2<mxn-\dIr1
kam1-\r@d2
kxn-fyuz1
kan1<sx<\met2
kan1-\vO2
kor1<t%|-\zon2
kO1-\pu2
krIsp1
kyum1-yU<l%|<tIv
di1<mxn
dE2<b%|<\n@r1
dE2<grx-\de1<S%|n
dEn-tI1<S%|n
dI-tR2<mx<\ne1<S%|n
dY1-\JEst2
dI<skcr1<dNt
dI2<\str↑st1
do1-X
drog1
dwcrvz1
i2<go*\sEn1<trIk
Em1<bX
En2-J%|<\nIr1
E1<kwx-bL
ET2-nx-\la1<JIk
Ek2<skx-\myu1<nx-\ket2
Iks-pWnd1
f@1<ri
fez1
fi1-\at
fIs1<tI-\k↑fs2
flu1<zi
fok1<sL
fr@k1-S%|n
frY1
ge1<lx
gx-vat1
g@st1-li
gl↑m1
gren1
gro1<sX
JIm-ka1<nx
h@G1
hip1
hE1<rL-dri
hI2<px-\pa1<tx-mxs
hX-Y1<zN
hyu-\mI1<dx-\fY2
Y1
Im-bro1<li-\o2
Im1<px<t%|s
IG1<kx
In2-\kyU2<rx-\bI1<lx<ti
I2<nIg-\z@kt1
In-h@1<b%|<t%|nt
In2<\sI2<nyU-\e1<S%|n
In2<tX-\k↑l1<CX-L
In2<trx<\mIt1
I2<\rE2<gyU<\l@1<rx<ti
Jc1
J↑1<gL-X
kIn1<dX*\gar2<tN
lx-ka1<nIk
l@C1
NIL
)
(DEFINEQ

(CHECK.PARSER

  [LAMBDA (ARRAY FACITARRAY)                                 (* edited: " 7-Aug-84 23:25")

    (for
 X RESULT from
 1 to
 (ARRAYSIZE ARRAY) unless
 (EQUAL (SETQ RESULT (PARSE-1-WORD (ELT ARRAY X)))
							    (ELT FACITARRAY X))
       collect
 (printout
 T "Failed on: " X " " (ELT FACITARRAY X)
			 " vs. incorrect " RESULT T)
	       (ELT FACITARRAY X)
       finally
 (if
 (NULL $$VAL)
		   then
 (printout
 T "Success! No errors" T))
	       (RETURN $$VAL])

(MAKE.FACIT.ARRAY

  [LAMBDA NIL                                                (* mmw: " 7-Aug-84 22:13")

    (for
 X from
 1 to
 100 do
 (SETA FACITARRAY X (PARSE-1-WORD (ELT SMALLLEX X])

(TEMP

  [LAMBDA (SYLLABLE)                                         (* mmw: " 7-Aug-84 18:01")


          (* Returns the rest of the syllable starting with a long-vowel (VV's have to be treated separately) or starting 

	  with the VCC sequence if the syllables isn't long returns NIL)



    (OR (SOME SYLLABLE (QUOTE LONG-VOWEL?))
	(SOME (CDR (SOME (CDR (SOME (CDR (SOME SYLLABLE (QUOTE VOWEL?)))
				    (QUOTE CONSONANT?)))
			 (QUOTE CONSONANT?)))
	      (QUOTE CONSONANT?])
)
(PUTPROPS PARSE-TEST COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1559 2789 (CHECK.PARSER 1569 . 2083) (MAKE.FACIT.ARRAY 2085 . 2293) (TEMP 2295 . 2787))
)))
STOP