(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10)

(FILECREATED "26-Sep-87 15:33:37" {DSK}<OST>ANSICHATDECLS.;10
 7178   

      previous date%: "22-Sep-87 11:10:54" {DSK}<OST>ANSICHATDECLS.;9)


(PRETTYCOMPRINT ANSICHATDECLSCOMS)

(RPAQQ ANSICHATDECLSCOMS
 ((PROP MAKEFILE-ENVIRONMENT ANSICHATDECLS)
                          (RECORDS ANSI-STATE ANSI-Cursor-and-Attributes EMACSCOMMANDS)))

(PUTPROPS ANSICHATDECLS MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10))
(DECLARE%: EVAL@COMPILE

(DATATYPE ANSI-STATE
 ((Dinged FLAG)
                      (KeyPad FLAG)
                      (ANSI/VT52 FLAG)
                      (AutoRepeat FLAG)
                      (Cursor FLAG)
                      (CursorKey FLAG)
                      (KeyClick FLAG)
                      (Line/Local FLAG)
                      (MarginBell FLAG)
                      (NewLine FLAG)
                      (Screen FLAG)
                      (Scroll FLAG)
                      (Wraparound FLAG)
                      (Origin FLAG)
                      (Bold FLAG)
                      (Underscore FLAG)
                      (Blink FLAG)
                      (Negative FLAG)
                      (Level FLAG)
                      (EightBit FLAG)
                      (Single FLAG)
                      (KeyboardAction FLAG)
                      (Insert/Replace FLAG)
                      (Send/Receive FLAG)
                      (NotEraseable FLAG)
                      (TextCursor FLAG)
                      (EscapeSequence FLAG)
                      (ControlSequence FLAG)
                      (AtRightMargin FLAG)
                      (DisplayControls FLAG)
                      (Debug FLAG)
                      (NumericParameter FLAG)
                      (Sequence FLAG)
                      (DoubleWide FLAG)
                      (DoubleWideFonts FLAG)
                      (LineCursor FLAG)
                      (Flag0 FLAG)
                      (Flag1 FLAG)
                      (Flag2 FLAG)
                      (Flag3 FLAG)
                      (ParameterCount WORD)
                      (RightMargin WORD)
                      (BottomLine WORD)
                      (CursorColumn WORD)
                      (CursorLine WORD)
                      (TopMargin WORD)
                      (BottomMargin WORD)
                      (LineAttribute WORD)
                      (Attributes WORD)
                      (SelectionType WORD)
                      (SelectionLine WORD)
                      (SelectionStartColumn WORD)
                      (SelectionEndColumn WORD)
                      (ExtendedSelectionLine WORD)
                      (ExtendedSelectionStartColumn WORD)
                      (ExtendedSelectionEndColumn WORD)
                      (Word0 WORD)
                      (Word1 WORD)
                      (Word2 WORD)
                      (Word3 WORD)
                      (IntermediateCharacter POINTER)
                      (NonNumericParameter POINTER)
                      (CharacterSet POINTER)
                      (CursorMemory POINTER)
                      (CharacterSets POINTER)
                      (FontDescriptors POINTER)
                      (Parameters POINTER)
                      (LineAttributes POINTER)
                      (Characters POINTER)
                      (CharacterAttributes POINTER)
                      (Aux0 POINTER)
                      (Aux1 POINTER)
                      (Aux2 POINTER)
                      (Aux3 POINTER)))

(RECORD ANSI-Cursor-and-Attributes
 (CursorPosition SavedCharacterAttributes StateFlags 
                                          CharacterSetShift))

(RECORD EMACSCOMMANDS
 (EMARG EMUP EMDOWN EMFORWARD EMCOL0))
)
(/DECLAREDATATYPE 'ANSI-STATE
       '(FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG 
              FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG 
              FLAG FLAG FLAG FLAG FLAG WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD 
              WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER 
              POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)
       '((ANSI-STATE 0 (FLAGBITS . 0))
         (ANSI-STATE 0 (FLAGBITS . 16))
         (ANSI-STATE 0 (FLAGBITS . 32))
         (ANSI-STATE 0 (FLAGBITS . 48))
         (ANSI-STATE 0 (FLAGBITS . 64))
         (ANSI-STATE 0 (FLAGBITS . 80))
         (ANSI-STATE 0 (FLAGBITS . 96))
         (ANSI-STATE 0 (FLAGBITS . 112))
         (ANSI-STATE 0 (FLAGBITS . 128))
         (ANSI-STATE 0 (FLAGBITS . 144))
         (ANSI-STATE 0 (FLAGBITS . 160))
         (ANSI-STATE 0 (FLAGBITS . 176))
         (ANSI-STATE 0 (FLAGBITS . 192))
         (ANSI-STATE 0 (FLAGBITS . 208))
         (ANSI-STATE 0 (FLAGBITS . 224))
         (ANSI-STATE 0 (FLAGBITS . 240))
         (ANSI-STATE 1 (FLAGBITS . 0))
         (ANSI-STATE 1 (FLAGBITS . 16))
         (ANSI-STATE 1 (FLAGBITS . 32))
         (ANSI-STATE 1 (FLAGBITS . 48))
         (ANSI-STATE 1 (FLAGBITS . 64))
         (ANSI-STATE 1 (FLAGBITS . 80))
         (ANSI-STATE 1 (FLAGBITS . 96))
         (ANSI-STATE 1 (FLAGBITS . 112))
         (ANSI-STATE 1 (FLAGBITS . 128))
         (ANSI-STATE 1 (FLAGBITS . 144))
         (ANSI-STATE 1 (FLAGBITS . 160))
         (ANSI-STATE 1 (FLAGBITS . 176))
         (ANSI-STATE 1 (FLAGBITS . 192))
         (ANSI-STATE 1 (FLAGBITS . 208))
         (ANSI-STATE 1 (FLAGBITS . 224))
         (ANSI-STATE 1 (FLAGBITS . 240))
         (ANSI-STATE 2 (FLAGBITS . 0))
         (ANSI-STATE 2 (FLAGBITS . 16))
         (ANSI-STATE 2 (FLAGBITS . 32))
         (ANSI-STATE 2 (FLAGBITS . 48))
         (ANSI-STATE 2 (FLAGBITS . 64))
         (ANSI-STATE 2 (FLAGBITS . 80))
         (ANSI-STATE 2 (FLAGBITS . 96))
         (ANSI-STATE 2 (FLAGBITS . 112))
         (ANSI-STATE 3 (BITS . 15))
         (ANSI-STATE 4 (BITS . 15))
         (ANSI-STATE 5 (BITS . 15))
         (ANSI-STATE 6 (BITS . 15))
         (ANSI-STATE 7 (BITS . 15))
         (ANSI-STATE 8 (BITS . 15))
         (ANSI-STATE 9 (BITS . 15))
         (ANSI-STATE 10 (BITS . 15))
         (ANSI-STATE 11 (BITS . 15))
         (ANSI-STATE 12 (BITS . 15))
         (ANSI-STATE 13 (BITS . 15))
         (ANSI-STATE 14 (BITS . 15))
         (ANSI-STATE 15 (BITS . 15))
         (ANSI-STATE 16 (BITS . 15))
         (ANSI-STATE 17 (BITS . 15))
         (ANSI-STATE 18 (BITS . 15))
         (ANSI-STATE 19 (BITS . 15))
         (ANSI-STATE 20 (BITS . 15))
         (ANSI-STATE 21 (BITS . 15))
         (ANSI-STATE 22 (BITS . 15))
         (ANSI-STATE 24 POINTER)
         (ANSI-STATE 26 POINTER)
         (ANSI-STATE 28 POINTER)
         (ANSI-STATE 30 POINTER)
         (ANSI-STATE 32 POINTER)
         (ANSI-STATE 34 POINTER)
         (ANSI-STATE 36 POINTER)
         (ANSI-STATE 38 POINTER)
         (ANSI-STATE 40 POINTER)
         (ANSI-STATE 42 POINTER)
         (ANSI-STATE 44 POINTER)
         (ANSI-STATE 46 POINTER)
         (ANSI-STATE 48 POINTER)
         (ANSI-STATE 50 POINTER))
       '52)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP