(FILECREATED " 9-Nov-84 11:27:27" {ERIS}<SPEECH>LEXICON>SEARCH.UTIL;4
 1809   

      changes to:  (FNS FINDMATCH FINDCLITIC)
		   (VARS SEARCHCOMS)

      previous date: "17-Aug-84 17:56:21" {ERIS}<SPEECH>LEXICON>SEARCH.UTIL;2)


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT SEARCHCOMS)

(RPAQQ SEARCHCOMS
 ((FNS FINDCLITIC FINDMATCH)))
(DEFINEQ

(FINDCLITIC

  [LAMBDA (
ARRAY
 OUTFILE PATTERN)                            (* mmw: " 9-Nov-84 11:10")

    (
PROG
 [(OUTSTREAM (
OPENSTREAM
 OUTFILE (
QUOTE
 OUTPUT]
          (for
 I TRANSCRIPTION from
 1 to
 (
ARRAYSIZE
 ARRAY) do
 ((
SETQ
 TRANSCRIPTION
								 (
CONS
 (
CADR
 (
ELT
 ARRAY I))
								       (
QUOTE
 x)))
							       (if
 (
STRPOS
 PATTERN TRANSCRIPTION)
								   then
 (
PRIN1
 TRANSCRIPTION 
									       OUTSTREAM)
									(
TERPRI
 OUTSTREAM))
							       (if
 (
EQ
 (
IREMAINDER
 I 250)
								       0)
								   then
 (
PRIN1
 (
QUOTE
 chomp)
									       T)))
	     finally
 (
RETURN
 (
CLOSEF
 OUTSTREAM])

(FINDMATCH

  [LAMBDA (
ARRAY
 OUTFILE PATTERN)                            (* mmw: " 9-Nov-84 11:15")

    (
PROG
 [(OUTSTREAM (
OPENSTREAM
 OUTFILE (
QUOTE
 OUTPUT]
          (for
 I TRANSCRIPTION from
 1 to
 (
ARRAYSIZE
 ARRAY) do
 ((
SETQ
 TRANSCRIPTION
								 (
CADR
 (
ELT
 ARRAY I)))
							       (if
 (
STRPOS
 PATTERN TRANSCRIPTION)
								   then
 (
PRIN1
 TRANSCRIPTION 
									       OUTSTREAM)
									(
TERPRI
 OUTSTREAM))
							       (if
 (
EQ
 (
IREMAINDER
 I 250)
								       0)
								   then
 (
PRIN1
 (
QUOTE
 chomp)
									       T)))
	     finally
 (
RETURN
 (
CLOSEF
 OUTSTREAM])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (366 1787 (FINDCLITIC 376 . 1100) (FINDMATCH 1102 . 1785)))))
STOP