github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-24 19:40:36 +00:00
Code Issues Projects Releases Wiki Activity

All source files converted to LF (#315)

Browse Source 
* All source files converted to LF

Also, HPRINT:  EQUALALL knows about CL arrays
FILEIO:  STREAM record with fields for external format functions

* Delete makeinit.dribble

* Converted CR to LF on internal/library and docs/Documentation Tools
This commit is contained in:
rmkaplan
2021-04-28 15:36:03 -07:00
committed by GitHub
parent 179325c528
commit f0ad3c5f60
736 changed files with 532174 additions and 5581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
library/CHATDECLS
View File

@@ -1 +1,100 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "20-Jan-93 13:47:40" {DSK}<python>lde>lispcore>library>CHATDECLS.;2 3757
changes to%: (RECORDS CHAT.STATE CHATDISPLAYTYPE CHATUSERSTATE)
previous date%: "11-Jun-90 14:39:02" {DSK}<python>lde>lispcore>library>CHATDECLS.;1)
(* ; "
Copyright (c) 1985, 1986, 1990, 1993 by Venue & 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)
(WRAPMODE FLAG)
(LOCALECHO FLAG)
(NIL BITS 1)
(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)
CLEARMODEFN TYPEOUTPROC TERM.TAB.STOPS TERM.IDENTITY.STRING
TERM.NORMAL.FONT ITALICFONT 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 'CHAT.STATE
'(FLAG FLAG FLAG FLAG FLAG FLAG (BITS 1)
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)
'((CHAT.STATE 0 (FLAGBITS . 0))
(CHAT.STATE 0 (FLAGBITS . 16))
(CHAT.STATE 0 (FLAGBITS . 32))
(CHAT.STATE 0 (FLAGBITS . 48))
(CHAT.STATE 0 (FLAGBITS . 64))
(CHAT.STATE 0 (FLAGBITS . 80))
(CHAT.STATE 0 (BITS . 96))
(CHAT.STATE 2 POINTER)
(CHAT.STATE 4 POINTER)
(CHAT.STATE 6 POINTER)
(CHAT.STATE 8 POINTER)
(CHAT.STATE 10 POINTER)
(CHAT.STATE 12 POINTER)
(CHAT.STATE 1 (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 21 (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))
'46)
(PUTPROPS CHATDECLS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1990 1993))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP