(FILECREATED " 4-Sep-85 17:13:07" {ERIS}<LISPCORE>LIBRARY>CHATDECLS.;2
 2763   

      changes to:  (VARS CHATDECLSCOMS))


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

(PRETTYCOMPRINT CHATDECLSCOMS)

(RPAQQ CHATDECLSCOMS
 ((* Declarations used by various CHAT files)
		      (RECORDS CHAT.STATE CHATDISPLAYTYPE CHATUSERSTATE)))



(* Declarations used by various CHAT files)


[DECLARE: EVAL@COMPILE 

(DATATYPE CHAT.STATE
 ((HELD FLAG)
		      (CHATINEMACS FLAG)
		      (UNDERLINEMODE FLAG)
		      (ROLLMODE FLAG)
		      (NIL BITS 3)
		      (RUNNING? POINTER)
		      (WINDOW POINTER)
		      (DSP POINTER)
		      (OUTSTREAM POINTER)
		      (INSTREAM POINTER)
		      (
TEXTSTREAM
 POINTER)
		      (TTYWIDTH WORD)
		      (TTYHEIGHT WORD)
		      (XPOS WORD)
		      (YPOS WORD)
		      (FONTWIDTH WORD)
		      (
FONTHEIGHT
 WORD)
		      (
FONTDESCENT
 WORD)
		      (TOPMARGIN WORD)
		      (BOTTOMMARGIN WORD)
		      CARETSTATE TYPEOUTPROC TERM.TAB.STOPS TERM.IDENTITY.STRING TERM.NORMAL.FONT 
		      TERM.BOLD.FONT TERM.STATE FONT PLAINFONT CHATBOLDFONT HOMEPOS TYPESCRIPTSTREAM)
		     XPOS ← 0 YPOS ← 0 BOTTOMMARGIN ← 0 ROLLMODE ← T)

(RECORD CHATDISPLAYTYPE
 (HOST DPYCODE DPYNAME))

(RECORD CHATUSERSTATE
 (HELD RUNNING? INSTREAM OUTSTREAM CARETSTATE TYPESCRIPTOFD TYPEOUTPROC 
			    CHATINEMACS))
]
(/DECLAREDATATYPE (QUOTE CHAT.STATE)
		  (QUOTE (FLAG FLAG FLAG FLAG (BITS 3)
			       POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD 
			       WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER 
			       POINTER POINTER POINTER POINTER POINTER POINTER POINTER))
		  (QUOTE ((CHAT.STATE 0 (FLAGBITS . 0))
			  (CHAT.STATE 0 (FLAGBITS . 16))
			  (CHAT.STATE 0 (FLAGBITS . 32))
			  (CHAT.STATE 0 (FLAGBITS . 48))
			  (CHAT.STATE 0 (BITS . 66))
			  (CHAT.STATE 0 POINTER)
			  (CHAT.STATE 2 POINTER)
			  (CHAT.STATE 4 POINTER)
			  (CHAT.STATE 6 POINTER)
			  (CHAT.STATE 8 POINTER)
			  (CHAT.STATE 10 POINTER)
			  (CHAT.STATE 12 (BITS . 15))
			  (CHAT.STATE 13 (BITS . 15))
			  (CHAT.STATE 14 (BITS . 15))
			  (CHAT.STATE 15 (BITS . 15))
			  (CHAT.STATE 16 (BITS . 15))
			  (CHAT.STATE 17 (BITS . 15))
			  (CHAT.STATE 18 (BITS . 15))
			  (CHAT.STATE 19 (BITS . 15))
			  (CHAT.STATE 20 (BITS . 15))
			  (CHAT.STATE 22 POINTER)
			  (CHAT.STATE 24 POINTER)
			  (CHAT.STATE 26 POINTER)
			  (CHAT.STATE 28 POINTER)
			  (CHAT.STATE 30 POINTER)
			  (CHAT.STATE 32 POINTER)
			  (CHAT.STATE 34 POINTER)
			  (CHAT.STATE 36 POINTER)
			  (CHAT.STATE 38 POINTER)
			  (CHAT.STATE 40 POINTER)
			  (CHAT.STATE 42 POINTER)
			  (CHAT.STATE 44 POINTER)))
		  (QUOTE 46))
(PUTPROPS CHATDECLS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP