(FILECREATED "13-Feb-86 15:06:00" {ERIS}<PROLOGCORE>DEMO>PARSER.;5
 4696   

      changes to:  (VARS PARSERCOMS PARTIAL-PARSE-WINDOW-REGION FULL-PARSE-WINDOW-REGION 
			 SENTENCE-WINDOW-REGION)
		   (FNS CREATE.WINDOWS GET.SENTENCE WAIT.FOR.STEP DISPLAY.SENTENCE GRAPH.STRUCTURES 
			MAKE-MENU ADDSP MAKSTR RUN.FOREVER SET.STEP.TYPE)

      previous date: "13-Feb-86 13:57:53" {ERIS}<PROLOGCORE>DEMO>PARSER.;1)


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

(PRETTYCOMPRINT PARSERCOMS)

(RPAQQ PARSERCOMS
 ((FILES GRAPHER)
		     (VARS (PARTIAL-PARSE-WINDOW)
			   (PARTIAL-PARSE-WINDOW-REGION (CREATEREGION 550 0 460 425))
			   (FULL-PARSE-WINDOW)
			   (FULL-PARSE-WINDOW-REGION (CREATEREGION 80 0 460 425))
			   (SENTENCE-WINDOW)
			   (SENTENCE-WINDOW-REGION (CREATEREGION 291 453 560 80))
			   (PARSER-FONT))
		     (FNS ADDSP CREATE.WINDOWS DISPLAY.SENTENCE GET.SENTENCE GRAPH.STRUCTURES 
			  MAKE-MENU MAKSTR SET.STEP.TYPE WAIT.FOR.STEP)))
(FILESLOAD GRAPHER)

(RPAQQ PARTIAL-PARSE-WINDOW
 NIL)

(RPAQ PARTIAL-PARSE-WINDOW-REGION
 (CREATEREGION 550 0 460 425))

(RPAQQ FULL-PARSE-WINDOW
 NIL)

(RPAQ FULL-PARSE-WINDOW-REGION
 (CREATEREGION 80 0 460 425))

(RPAQQ SENTENCE-WINDOW
 NIL)

(RPAQ SENTENCE-WINDOW-REGION
 (CREATEREGION 291 453 560 80))

(RPAQQ PARSER-FONT
 NIL)
(DEFINEQ

(ADDSP

  [LAMBDA (LST)                                              (* hdj "13-Feb-86 13:53")

    (
CONCAT
 (
CAR
 LST)
	      " "])

(CREATE.WINDOWS

  [LAMBDA NIL                                                (* hdj "13-Feb-86 15:04")

    (DECLARE
 (
GLOBALVARS
 PARTIAL-PARSE-WINDOW PARTIAL-PARSE-WINDOW-REGION FULL-PARSE-WINDOW 
			     FULL-PARSE-WINDOW-REGION SENTENCE-WINDOW SENTENCE-WINDOW-REGION 
			     PARSER-FONT))
    (
OR
 PARTIAL-PARSE-WINDOW (
SETQ
 PARTIAL-PARSE-WINDOW (
CREATEW
 PARTIAL-PARSE-WINDOW-REGION 
								       "Current sub-tree")))
    (
OR
 FULL-PARSE-WINDOW (
SETQ
 FULL-PARSE-WINDOW (
CREATEW
 FULL-PARSE-WINDOW-REGION 
								 "Full parse tree")))
    [
OR
 PARSER-FONT (
SETQ
 PARSER-FONT (
FONTCREATE
 (
QUOTE
 (HELVETICA 18 STANDARD]
    (
OR
 SENTENCE-WINDOW (
PROGN
 (
SETQ
 SENTENCE-WINDOW (
CREATEW
 SENTENCE-WINDOW-REGION 
								      "Sentence being parsed"))
				   (
DSPFONT
 PARSER-FONT SENTENCE-WINDOW])

(DISPLAY.SENTENCE

  [LAMBDA (LST)                                              (* hdj "13-Feb-86 14:02")

    (DECLARE
 (
GLOBALVARS
 SENTENCE-WINDOW))
    (
CLEARW
 SENTENCE-WINDOW)
    (
CENTERPRINTINREGION
 (MAKSTR
 LST)
			   NIL SENTENCE-WINDOW])

(GET.SENTENCE

  [LAMBDA NIL                                                (* hdj "13-Feb-86 15:00")

    (PRINTOUT T "Type a sentence, finish with '<space><period>'" T)
    (
APPEND
 (
RATOMS
 (
QUOTE
 %.))
	      (
LIST
 (
QUOTE
 %.])

(GRAPH.STRUCTURES

  [LAMBDA (STRUCTURE.LIST1 STRUCTURE.LIST2)                  (* hdj "13-Feb-86 14:14")

    (DECLARE
 (
GLOBALVARS
 PARSER-FONT PARTIAL-PARSE-WINDOW FULL-PARSE-WINDOW))
    (
SHOWGRAPH
 (
LAYOUTSEXPR
 STRUCTURE.LIST1 (
QUOTE
 (VERTICAL (MARK)))
				NIL PARSER-FONT)
		 PARTIAL-PARSE-WINDOW NIL NIL T)
    (
SHOWGRAPH
 (
LAYOUTSEXPR
 STRUCTURE.LIST2 (
QUOTE
 (VERTICAL (MARK)))
				NIL PARSER-FONT)
		 FULL-PARSE-WINDOW NIL NIL T])

(MAKE-MENU

  [LAMBDA NIL                                                (* hdj "13-Feb-86 14:03")

    (
SETQ
 PROLOG.INPUT.MENU1 (create
 MENU
					 ITEMS ←[
QUOTE
 (("The intelligent customer requires... "
							     (
QUOTE
 (the intelligent customer 
									   requires intelligent 
									   workstations %.)))
							   ("Xerox produces intelligent... "
							     (
QUOTE
 (xerox produces intelligent 
									     workstations %.)))
							   ("Xerox workstations run... "
							     (
QUOTE
 (xerox workstations run quintus 
									     prolog %.]
					 MENUFONT ← PARSER-FONT])

(MAKSTR

  [LAMBDA (LST)                                              (* hdj "13-Feb-86 13:51")

    (
CONCATLIST
 (
MAPLIST
 LST (
QUOTE
 ADDSP])

(SET.STEP.TYPE

  [LAMBDA (STEPTYPE)                                         (* hdj "13-Feb-86 13:44")

    (DECLARE
 (
GLOBALVARS
 STEP.SWITCH))
    (
SETQ
 STEP.SWITCH STEPTYPE])

(WAIT.FOR.STEP

  [LAMBDA NIL                                                (* hdj "13-Feb-86 14:56")

    (DECLARE
 (
GLOBALVARS
 STEP.SWITCH))
    (
SELECTQ
 STEP.SWITCH
	       (one.second (
BLOCK
 1000))
	       (mouse.button (UNTILMOUSESTATE LEFT))
	       NIL])
)
(PUTPROPS PARSER COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1336 4619 (ADDSP 1346 . 1490) (CREATE.WINDOWS 1492 . 2357) (DISPLAY.SENTENCE 2359 . 
2629) (GET.SENTENCE 2631 . 2884) (GRAPH.STRUCTURES 2886 . 3358) (MAKE-MENU 3360 . 3977) (MAKSTR 3979
 . 4137) (SET.STEP.TYPE 4139 . 4332) (WAIT.FOR.STEP 4334 . 4617)))))
STOP