(FILECREATED "16-Feb-86 13:19:55" ("compiled on " {QV}<IDL>SOURCES>IDLDECLS.;1) "12-Nov-85 14:59:23" 
tcompl'd in "INTERLISP-D  7-Feb-86 ..." dated " 7-Feb-86 11:43:05")
(FILECREATED "16-Feb-86 13:08:42" {QV}<IDL>SOURCES>IDLDECLS.;1 4667 changes to: (VARS IDLDECLSCOMS) (
DECLTYPES GORDER TTELT))
(PRETTYCOMPRINT IDLDECLSCOMS)
(RPAQQ IDLDECLSCOMS ((* * For GLOBAL) (DECLTYPES ARRAY (ARRAY COERCION) VECTOR MATRIX) (DECLTYPES 
ARITH FLOATING IJK IJKDELTA INTEGER POSINT SCALAR VSCALARP (FIXP COERCION) (FLOATP COERCION) (NUMBERP 
COERCION) (NIL COERCION)) (DECLTYPES FORMATCODE) (* * For GENERATORS) (DECLTYPES GORDER) (* * For 
SELECTOR) (DECLTYPES TTELT) (* * For PRINT) (DECLTYPES STREAM OUTPUTSTREAM) (* * For ROWS) (DECLTYPES 
(ROWSCALAR COERCION) (ROWFLOAT COERCION) (ROWINT COERCION) RELTPTR) (* * For LABELS) (DECLTYPES LABEL 
TITLE USERTITLE) (* * For IDLPLOT) (DECLTYPES COMPOUNDOBJECT CURVEOBJECT FILLEDRECTANGLEOBJECT 
LINEOBJECT POINTOBJECT POLYGONOBJECT TEXTOBJECT WINDOW)))
(DECLTYPES (ARRAY (SYNONYM ARRAYFRAME) COERCION (CONV.ARRAY)) (ARRAY ARRAY COERCION (CONV.ARRAY)) (
VECTOR (SUBTYPE ARRAY) TESTFN (LAMBDA (VALUE) (ARRAYTYPEP VALUE (QUOTE VECTOR))) COERCION (CONV.VECTOR
)) (MATRIX (SUBTYPE ARRAY) TESTFN (LAMBDA (VALUE) (ARRAYTYPEP VALUE (QUOTE MATRIX))) COERCION (
CONV.ARRAY (ARRAYTYPEP UARG (QUOTE MATRIX)))))
(DECLTYPES (ARITH (SYNONYM NUMBERP)) (FLOATING (SYNONYM FLOATP)) (IJK (SUBTYPE CARDINAL)) (IJKDELTA (
SUBTYPE FIXP)) (INTEGER (SYNONYM FIXP)) (POSINT (INTEGER (SATISFIES (IGREATERP VALUE 0)))) (SCALAR (
ONEOF ARITH NIL) COERCION (CONV.SCALAR)) (VSCALARP (SUBTYPE ANY) TESTFN VSCALARP) (FIXP FIXP COERCION 
((FIXR (CONV.ARITH UARG)))) (FLOATP FLOATP COERCION ((FLOAT (CONV.ARITH UARG)))) (NUMBERP NUMBERP 
COERCION (CONV.ARITH)) (NIL NIL COERCION (CONV.SCALAR NULL)))
(DECLTYPE FORMATCODE (MEMQ FULL SYMMETRIC) COERCION ((OR (MISSPELLED? UARG 80 (QUOTE (FULL SYMMETRIC))
) (UERROR "Invalid format specification:  " .P2 UARG))))
(DECLTYPE GORDER (MEMQ ROWMAJOR COLMAJOR SYMMETRIC DONTCARE))
(DECLTYPE TTELT (ONEOF (MEMQ ALL) IJK (SIMARRAY (SATISFIES (EQ (fetch AELTTYPE of VALUE) (QUOTE 
INTEGER))))))
(DECLTYPES (STREAM (SUBTYPE ANY) TESTFN STREAMP) (OUTPUTSTREAM (SUBTYPE STREAM) TESTFN (LAMBDA (S) (
AND (STREAMP S) (\GETSTREAM S (QUOTE OUTPUT) T))) COERCION ((AND (LITATOM UARG) (OR (\GETSTREAM UARG (
QUOTE OUTPUT) T) (OPENSTREAM UARG (QUOTE OUTPUT)))))))
(DECLTYPES (ROWSCALAR ROWSCALAR COERCION NIL) (ROWFLOAT ROWFLOAT COERCION NIL) (ROWINT ROWINT COERCION
 NIL) (RELTPTR (SUBTYPE ANY)))
(DECLTYPES (LABEL (SUBTYPE LITATOM)) (TITLE (ONEOF LISTP STRINGP)) (USERTITLE (ONEOF STRINGP NIL) 
COERCION ((OR (STRINGP UARG) (AND UARG (LITATOM UARG) (MKSTRING UARG)) (UERROR "Invalid title:  " .P2 
UARG)))))
(DECLTYPES (COMPOUNDOBJECT (PLOTOBJECT (SATISFIES (OBJECTSUBTYPE? COMPOUND VALUE)))) (CURVEOBJECT (
PLOTOBJECT (SATISFIES (OBJECTSUBTYPE? CURVE VALUE)))) (FILLEDRECTANGLEOBJECT (PLOTOBJECT (SATISFIES (
OBJECTSUBTYPE? FILLEDRECTANGLE VALUE)))) (LINEOBJECT (PLOTOBJECT (SATISFIES (OBJECTSUBTYPE? LINE VALUE
)))) (POINTOBJECT (PLOTOBJECT (SATISFIES (OBJECTSUBTYPE? POINT VALUE)))) (POLYGONOBJECT (PLOTOBJECT (
SATISFIES (OBJECTSUBTYPE? POLYGON VALUE)))) (TEXTOBJECT (PLOTOBJECT (SATISFIES (OBJECTSUBTYPE? TEXT 
VALUE)))) (WINDOW (SUBTYPE STREAM) TESTFN WINDOWP))
(PUTPROPS IDLDECLS COPYRIGHT ("Xerox Corporation" 1986))
NIL