From c35a92db112c94111c9991b6951e74a84e9dc0ae Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Fri, 25 Feb 2022 20:07:49 -0800 Subject: [PATCH] Loading VTCHAT should set it as default (#696) --- library/VTCHAT | 107 +++++++++++++++++++++++--------------------- library/VTCHAT.LCOM | Bin 8571 -> 8582 bytes 2 files changed, 57 insertions(+), 50 deletions(-) diff --git a/library/VTCHAT b/library/VTCHAT index 7f14664c..0107b106 100644 --- a/library/VTCHAT +++ b/library/VTCHAT @@ -1,13 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "30-Sep-2021 17:41:51" {DSK}briggs>Projects>medley>library>VTCHAT.;4 21924 - changes to%: (FNS VTCHAT.STATUS) +(FILECREATED "20-Feb-2022 11:10:55" {DSK}larry>medley>library>VTCHAT.;2 21881 - previous date%: "20-Jan-93 15:06:01" {DSK}briggs>Projects>medley>library>VTCHAT.;3) + :CHANGES-TO (VARS VTCHATCOMS) + + :PREVIOUS-DATE "30-Sep-2021 17:41:51" {DSK}larry>medley>library>VTCHAT.;1) (* ; " -Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation. +Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT VTCHATCOMS) @@ -31,7 +32,13 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation. (SYSRECORDS VT100.STATE) (DECLARE%: DONTEVAL@LOAD DOCOPY (FILES (SYSLOAD) VT100KP) - (ADDVARS (CHAT.DISPLAYTYPES ("Replace this string with NIL to prefer vt100" NIL VT100]) + + (* ;; "lmm 2/20/22:") + + + (* ;; "(CAAR CHAT.DISPLAYTYPES) had %"replace this string with NIL to prefer VT100 for chat%", now replaced") + + (ADDVARS (CHAT.DISPLAYTYPES (NIL NIL VT100]) @@ -147,27 +154,27 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation. (RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET)) (DATATYPE VT100.STATE ((DINGED FLAG) - (EATLF FLAG) - (EATCRLF FLAG) - (EATTOCRLF FLAG) - (AUTOLF FLAG) - (BLINKMODE FLAG) - (BRIGHTMODE FLAG) - (SMOOTHSCROLL FLAG) - (SIFONT POINTER) - (KEYPADMODE FLAG) - (CURSORMODE FLAG) - (CHARSET0 FLAG) - (CHARSET1 FLAG) - (SOFONT POINTER) - (PARAMCOUNT WORD) - (ADDRESSING WORD) - ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM) - VT100MEM _ (create VT100SAVE - CURSORPOS _ (create POSITION - XCOORD _ 1 - YCOORD _ 1)) - PARAMARRAY _ (ARRAY 12 'SMALLP 0 1)) + (EATLF FLAG) + (EATCRLF FLAG) + (EATTOCRLF FLAG) + (AUTOLF FLAG) + (BLINKMODE FLAG) + (BRIGHTMODE FLAG) + (SMOOTHSCROLL FLAG) + (SIFONT POINTER) + (KEYPADMODE FLAG) + (CURSORMODE FLAG) + (CHARSET0 FLAG) + (CHARSET1 FLAG) + (SOFONT POINTER) + (PARAMCOUNT WORD) + (ADDRESSING WORD) + ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM) + VT100MEM _ (create VT100SAVE + CURSORPOS _ (create POSITION + XCOORD _ 1 + YCOORD _ 1)) + PARAMARRAY _ (ARRAY 12 'SMALLP 0 1)) ) (/DECLAREDATATYPE 'VT100.STATE @@ -227,22 +234,22 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation. (ADDTOVAR SYSTEMRECLST (DATATYPE VT100.STATE ((DINGED FLAG) - (EATLF FLAG) - (EATCRLF FLAG) - (EATTOCRLF FLAG) - (AUTOLF FLAG) - (BLINKMODE FLAG) - (BRIGHTMODE FLAG) - (SMOOTHSCROLL FLAG) - (SIFONT POINTER) - (KEYPADMODE FLAG) - (CURSORMODE FLAG) - (CHARSET0 FLAG) - (CHARSET1 FLAG) - (SOFONT POINTER) - (PARAMCOUNT WORD) - (ADDRESSING WORD) - ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM)) + (EATLF FLAG) + (EATCRLF FLAG) + (EATTOCRLF FLAG) + (AUTOLF FLAG) + (BLINKMODE FLAG) + (BRIGHTMODE FLAG) + (SMOOTHSCROLL FLAG) + (SIFONT POINTER) + (KEYPADMODE FLAG) + (CURSORMODE FLAG) + (CHARSET0 FLAG) + (CHARSET1 FLAG) + (SOFONT POINTER) + (PARAMCOUNT WORD) + (ADDRESSING WORD) + ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM)) ) (DECLARE%: DONTEVAL@LOAD DOCOPY @@ -250,14 +257,14 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation. VT100KP) -(ADDTOVAR CHAT.DISPLAYTYPES ("Replace this string with NIL to prefer vt100" NIL VT100)) +(ADDTOVAR CHAT.DISPLAYTYPES (NIL NIL VT100)) ) -(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993)) +(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1532 9598 (VTCHAT.STATE 1542 . 2052) (VTCHAT.HANDLECHARACTER 2054 . 4628) ( -VTCHAT.SEQUENCE 4630 . 6173) (VTCHAT.DOCOMMAND 6175 . 9596)) (9599 17110 (VTCHAT.ADDRESS 9609 . 10127) - (VTCHAT.REVERSE.INDEX 10129 . 10698) (VTCHAT.ATTRIBUTES 10700 . 11086) (VTCHAT.DECLFONT 11088 . 11357 -) (VTCHAT.CLEARMODES 11359 . 11862) (VTCHAT.SAVE 11864 . 12603) (VTCHAT.RESTORE 12605 . 13312) ( -VTCHAT.SETMODE 13314 . 14386) (VTCHAT.SETMARGINS 14388 . 14979) (VTCHAT.REPORT 14981 . 15741) ( -VTCHAT.STATUS 15743 . 17108))))) + (FILEMAP (NIL (1675 9741 (VTCHAT.STATE 1685 . 2195) (VTCHAT.HANDLECHARACTER 2197 . 4771) ( +VTCHAT.SEQUENCE 4773 . 6316) (VTCHAT.DOCOMMAND 6318 . 9739)) (9742 17253 (VTCHAT.ADDRESS 9752 . 10270) + (VTCHAT.REVERSE.INDEX 10272 . 10841) (VTCHAT.ATTRIBUTES 10843 . 11229) (VTCHAT.DECLFONT 11231 . 11500 +) (VTCHAT.CLEARMODES 11502 . 12005) (VTCHAT.SAVE 12007 . 12746) (VTCHAT.RESTORE 12748 . 13455) ( +VTCHAT.SETMODE 13457 . 14529) (VTCHAT.SETMARGINS 14531 . 15122) (VTCHAT.REPORT 15124 . 15884) ( +VTCHAT.STATUS 15886 . 17251))))) STOP diff --git a/library/VTCHAT.LCOM b/library/VTCHAT.LCOM index 05bb61f03bd836b084c6f63a3430dd62ea573f18..ea1ed75ddb5df788ffaa7177284ca7535378ec5c 100644 GIT binary patch delta 549 zcmaiw%}N4M6vv?mVrbbSYSHO}F%!*r?={P=B}_A84oxb~D7YM*n+o$GlMoW&u65vJ zwDfh_)N8cqYKs!2;4IELi~q;(^Xl1nsZ1ofY&(|GuyoHd0a2`$c}Jy~QXqth!5D#z zx=Az~ggk&G1_Y0$d-HVBPa<9l{WKkyA|8Z%TnY!B)E8&VGb*~L6{!N!k|aK7dBSoz z1f7)6H75(vZr_i4{651VPDcGf+=GFzDK{Mleh1Pt4ME_KM2wZPr%3sy4rclMQvAu^ z`GJx`fdCVAs@ImQdNq(+dcy_jyP{FMbroRshSjobO;Mx_mf?NPwKN6Cz44 zx&D}Lub@U|Yil1nmq$=60t%xDXqMtEr3@(`FTN6z4P9@*g0gA5bw_V|?Ybqh^!)%b zD4o8+A+$V#G2A672*9HZIu>{zAmzi*@A3di)A!x|^{Va6vU{%^^JThu5N-+Nlq!lO GZs`jSu9;W> delta 402 zcmZp3{_QluBS6E=)5q00$kj2#)kQ(c*g!WpwLsU%z{pU+(A>(z(8|3`RLooUX|>Q7|&JG%`_0&PdElPc7zBD9Kl~QqXYo3syjJi>5+BQEFLcerYk- zZlD?^BLiKp#5`R~V+BJ~D+4nt17K(n@;#&R=9`R