From 7e185cc496d1556cb63c84f3868ba51dac32c610 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 16 Jul 2025 12:25:27 -0700 Subject: [PATCH] These files were moved to lispusers/talk/ but never deleted --- lispusers/SKETCHTALK | 404 ---------------------------------- lispusers/TALK.TEDIT | Bin 49882 -> 0 bytes lispusers/TALKGAP | 244 --------------------- lispusers/TEDITTALK | 509 ------------------------------------------- lispusers/TTYTALK | 133 ----------- 5 files changed, 1290 deletions(-) delete mode 100644 lispusers/SKETCHTALK delete mode 100644 lispusers/TALK.TEDIT delete mode 100644 lispusers/TALKGAP delete mode 100644 lispusers/TEDITTALK delete mode 100644 lispusers/TTYTALK diff --git a/lispusers/SKETCHTALK b/lispusers/SKETCHTALK deleted file mode 100644 index 1bffd428e..000000000 --- a/lispusers/SKETCHTALK +++ /dev/null @@ -1,404 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Jul-88 15:32:46" |{MCS:MCS:STANFORD}SKETCHTALK.;26| 20834 - - previous date%: "13-Jun-88 16:34:08" |{MCS:MCS:STANFORD}SKETCHTALK.;25|) - - -(* " -Copyright (c) 1987, 1988 by Stanford University. All rights reserved. -") - -(PRETTYCOMPRINT SKETCHTALKCOMS) - -(RPAQQ SKETCHTALKCOMS ((* TALK Sketch Service) - (LOCALVARS . T) - (FNS TALK.SKETCH.DISPLAY TALK.SKETCH.LISTEN) - (FNS TALK.SKETCH.FIND.ELEMENT TALK.SKETCH.FIND.SYMBOLS) - (* Sketch Viewer Control Properties) - (FNS TALK.SKETCH.WHENADDEDFN TALK.SKETCH.WHENCHANGEDFN - TALK.SKETCH.WHENDELETEDFN TALK.SKETCH.WHENMOVEDFN - TALK.SKETCH.PREMOVEFN) - (FNS TALK.SKETCH.WHENGROUPEDFN TALK.SKETCH.WHENUNGROUPEDFN) - (VARS TALK.TO.SKETCH.PROPS TALK.SKETCH.REDISPLAY.PROPS) - (* TALK Sketch Actions) - (FNS TALK.SKETCH.ADD.ELEMENT TALK.SKETCH.CHANGE.ELEMENT - TALK.SKETCH.DELETE.ELEMENTS TALK.SKETCH.MOVE.ELEMENTS - TALK.SKETCH.POSITION.ELEMENTS) - (VARS TALK.SKETCH.ACTIONS) - (* TALK Sketch Data) - (VARS TALK.SKETCH.DELETE.ITEMS) - (INITVARS TALK.SKETCH.TRACK) - (GLOBALVARS TALK.SKETCH.ACTIONS TALK.TO.SKETCH.PROPS - TALK.SKETCH.REDISPLAY.PROPS TALK.SKETCH.DELETE.ITEMS - TALK.SKETCH.TRACK) - (* etc) - (FILES TALK SKETCH) - (APPENDVARS (GAP.SERVICETYPES (7 Sketch TALK.NS.SERVER)) - (TALK.SERVICETYPES (Sketch TALK.SKETCH.DISPLAY TALK.SKETCH.LISTEN)) - ) - (* Sketch Bug Fixes) - (FNS TALK.SKETCH.NOP) - (P (CHANGENAME '\SK.PUT.FONT 'SK.INSURE.TEXT 'TALK.SKETCH.NOP)) - (ADVISE BITMAPELT.CHANGEFN SK.IMAGEOBJ.CHANGEFN (TEXTUREP :IN SKFILLINGP)) - )) - - - -(* TALK Sketch Service) - -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) -(DEFINEQ - -(TALK.SKETCH.DISPLAY - [LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOL USER) - (* ; "Edited 9-Jun-88 16:36 by cdl") - (LET (MENUWINDOW) - (SKETCH NIL MAINWINDOW) - (SKETCH NIL WINDOW) - (DETACHWINDOW (SETQ MENUWINDOW (WINDOWPROP WINDOW 'SKETCHFIXEDMENU NIL))) - (CLOSEW MENUWINDOW) - (DETACHWINDOW (SETQ MENUWINDOW (WINDOWPROP MAINWINDOW 'SKETCHFIXEDMENU NIL))) - (CLOSEW MENUWINDOW) - (WINDOWPROP MAINWINDOW 'SKETCHFIXEDMENU (ATTACHMENU - (LET ((ITEMS (SKETCH.COMMANDMENU.ITEMS NIL T))) - (for KEY in TALK.SKETCH.DELETE.ITEMS - do (SETQ ITEMS (DREMOVE (SASSOC KEY - ITEMS) - ITEMS))) - (SKETCH.COMMANDMENU ITEMS)) - MAINWINDOW - 'RIGHT - 'TOP)) - (WINDOWPROP MAINWINDOW 'SKETCHPOPUPMENU NIL) - (WINDOWPROP WINDOW 'SKETCHPOPUPMENU NIL) - (for PAIR on TALK.TO.SKETCH.PROPS do (PUTSKETCHPROP MAINWINDOW (CAR PAIR) - (CADR PAIR))) - (PUTSKETCHPROP MAINWINDOW 'TALK OUTPUTSTREAM) (* Still need to combine the two - prompt windows into one) - (WINDOWPROP MAINWINDOW 'SCROLLFN NIL) - (WINDOWPROP WINDOW 'SCROLLFN NIL) - (PUTWINDOWPROP MAINWINDOW 'DONTQUERYCHANGES T) - (PUTWINDOWPROP WINDOW 'DONTQUERYCHANGES T) - (RPLACA (CDAR (INSURE.SKETCH MAINWINDOW)) - (CONCAT "Talk with " USER)) - (WINDOWDELPROP WINDOW 'SHRINKFN 'SK.SHRINK.ICONCREATE) - (WINDOWDELPROP WINDOW 'SHRINKFN 'SK.RETURN.TTY) - (with REGION (DSPCLIPPINGREGION NIL MAINWINDOW) - (SKED.SET.SELECTION (CREATEPOSITION (QUOTIENT WIDTH 2) - (QUOTIENT HEIGHT 2)) - MAINWINDOW)) - (TTY.PROCESS (WINDOWPROP MAINWINDOW 'PROCESS]) - -(TALK.SKETCH.LISTEN - [LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOLTYPE) - (* ; "Edited 7-Jun-88 08:46 by cdl") - (* DECLARATIONS%: (RECORD EXPR - (KEY . ARGUMENTS)) - (RECORD OPERATION (KEY FUNCTION))) - (PROG [OPERATION (EVENTFN (with TALK.PROTOCOLTYPE PROTOCOLTYPE TALK.EVENTFN)) - (SKETCH (INSURE.SKETCH (MAINWINDOW WINDOW] - (DECLARE (GLOBALVARS TALK.CLOSED.STRING)) - (while (OPENWP WINDOW) - do (APPLY* EVENTFN INPUTSTREAM OUTPUTSTREAM) - (if (NOT (AND (OPENP INPUTSTREAM) - (OPENP OUTPUTSTREAM))) - then (RETURN)) - [SELCHARQ (PEEKCCODE INPUTSTREAM) - (^G (TALK.RINGBELLS WINDOW)) - (with EXPR (HREAD INPUTSTREAM) - (if (SETQ OPERATION (ASSOC KEY TALK.SKETCH.ACTIONS)) - then (with OPERATION OPERATION (APPLY FUNCTION - (CONS WINDOW - ARGUMENTS))) - else (PRINTOUT (GETPROMPTWINDOW MAINWINDOW) - "Unknown Sketch Talk operation:" %, KEY] - (BIN INPUTSTREAM)) - (RPLACA (CDAR SKETCH) - (CONCAT (CADAR SKETCH) - TALK.CLOSED.STRING)) - (PUTSKETCHPROP MAINWINDOW 'TALK NIL]) -) -(DEFINEQ - -(TALK.SKETCH.FIND.ELEMENT - [LAMBDA (SKETCH SYMBOLS) (* ; "Edited 18-Jun-87 09:21 by cdl") - (DECLARE (SPECVARS SYMBOLS)) - (SKETCH.LIST.OF.ELEMENTS SKETCH (FUNCTION (LAMBDA (ELEMENT) - (EQMEMB (GETSKETCHELEMENTPROP ELEMENT 'TALK) - SYMBOLS]) - -(TALK.SKETCH.FIND.SYMBOLS - [LAMBDA (SKETCH ELEMENTS) (* ; "Edited 18-Jun-87 11:11 by cdl") - (for ELEMENT in ELEMENTS collect (GETSKETCHELEMENTPROP ELEMENT 'TALK]) -) - - - -(* Sketch Viewer Control Properties) - -(DEFINEQ - -(TALK.SKETCH.WHENADDEDFN - [LAMBDA (VIEWER ELEMENT) (* ; "Edited 23-Jun-87 07:48 by cdl") - (LET [(STREAM (GETSKETCHPROP VIEWER 'TALK] - (if (AND STREAM (OPENP STREAM)) - then (PROG [(SCRATCHSTREAM (OPENSTREAM '{NODIRCORE} 'BOTH] - (PUTSKETCHELEMENTPROP ELEMENT 'TALK (GENSYM 'TALK)) - (HPRINT `(ADD ,ELEMENT) - SCRATCHSTREAM) - (SETFILEPTR SCRATCHSTREAM 0) - (COPYBYTES SCRATCHSTREAM STREAM) - (FORCEOUTPUT STREAM) - (CLOSEF? SCRATCHSTREAM]) - -(TALK.SKETCH.WHENCHANGEDFN - [LAMBDA (VIEWER ELEMENT PROPERTY NEWVALUE OLDVALUE) (* ; "Edited 10-Jun-88 09:17 by cdl") - (PROG [(STREAM (GETSKETCHPROP VIEWER 'TALK] - (if (AND STREAM (OPENP STREAM)) - then (SELECTQ PROPERTY - (HASBOX (TALK.SKETCH.WHENDELETEDFN VIEWER (LIST OLDVALUE)) - (TALK.SKETCH.WHENADDEDFN VIEWER NEWVALUE) - (RETURN)) - (DATA (SELECTQ NEWVALUE - ((NIL CHANGED) - (SETQ NEWVALUE OLDVALUE)) - NIL)) - NIL) - (LET [(SCRATCHSTREAM (OPENSTREAM '{NODIRCORE} 'BOTH] - (HPRINT `(CHANGE ,(TALK.SKETCH.FIND.SYMBOLS VIEWER (CONS ELEMENT)) - ,PROPERTY - ,NEWVALUE) - SCRATCHSTREAM) - (SETFILEPTR SCRATCHSTREAM 0) - (COPYBYTES SCRATCHSTREAM STREAM) - (FORCEOUTPUT STREAM) - (CLOSEF? SCRATCHSTREAM]) - -(TALK.SKETCH.WHENDELETEDFN - [LAMBDA (VIEWER ELEMENTS) (* ; "Edited 23-Jun-87 07:48 by cdl") - (PROG [(STREAM (GETSKETCHPROP VIEWER 'TALK] - (if (AND STREAM (OPENP STREAM)) - then (HPRINT `(DELETE ,(TALK.SKETCH.FIND.SYMBOLS VIEWER ELEMENTS)) - STREAM) - (FORCEOUTPUT STREAM]) - -(TALK.SKETCH.WHENMOVEDFN - [LAMBDA (VIEWER ELEMENTS DELTA) (* ; "Edited 23-Jun-87 10:14 by cdl") - (PROG [(STREAM (GETSKETCHPROP VIEWER 'TALK] - (if (AND STREAM (OPENP STREAM)) - then - [SETQ ELEMENTS - (if (EQ (CAR ELEMENTS) - T) - then [if (NULL TALK.SKETCH.TRACK) - then (if (LISTP (CAADR ELEMENTS)) - then [for ELEMENT in (CDR ELEMENTS) - collect (CONS T ( - TALK.SKETCH.FIND.SYMBOLS - VIEWER - (LIST ELEMENT] - else (* Fix for Sketch UNDO/MOVE bug) - (with POSITION DELTA (SETQ XCOORD (MINUS XCOORD) - ) - (SETQ YCOORD (MINUS YCOORD))) - (LIST (CONS T (TALK.SKETCH.FIND.SYMBOLS - VIEWER - (CONS (CDR ELEMENTS] - elseif (in (CAR ELEMENTS) always NUMBERP) - then [LIST (CONS (CAR ELEMENTS) - (TALK.SKETCH.FIND.SYMBOLS VIEWER (LIST (CDR ELEMENTS] - else (for ELEMENT in ELEMENTS when (OR (NEQ (CAR ELEMENT) - T) - (NOT TALK.SKETCH.TRACK)) - collect (CONS (CAR ELEMENT) - (TALK.SKETCH.FIND.SYMBOLS VIEWER - (CONS (CDR ELEMENT] - (HPRINT `(MOVE ,ELEMENTS ,DELTA) - STREAM) - (FORCEOUTPUT STREAM]) - -(TALK.SKETCH.PREMOVEFN - [LAMBDA (VIEWER ELEMENTS ALIGNHOW) (* ; "Edited 23-Jun-87 07:53 by cdl") - (LET [(STREAM (GETSKETCHPROP VIEWER 'TALK] - (if (AND TALK.SKETCH.TRACK (NULL ALIGNHOW) - (EQ (CAR ELEMENTS) - T) - STREAM - (OPENP STREAM)) - then (LET [(SYMBOLS (TALK.SKETCH.FIND.SYMBOLS VIEWER (CDR ELEMENTS] - (SKETCH.TRACK.ELEMENTS (CDR ELEMENTS) - VIEWER - [FUNCTION (LAMBDA (POSITION VIEWER STREAM) - (HPRINT `(POSITION ,SYMBOLS ,POSITION) - STREAM) - (FORCEOUTPUT STREAM] - NIL NIL STREAM]) -) -(DEFINEQ - -(TALK.SKETCH.WHENGROUPEDFN - [LAMBDA (VIEWER ELEMENTS) (* ; "Edited 18-Jun-87 11:02 by cdl") - 'DON'T]) - -(TALK.SKETCH.WHENUNGROUPEDFN - [LAMBDA (VIEWER ELEMENTS) (* ; "Edited 18-Jun-87 11:02 by cdl") - 'DON'T]) -) - -(RPAQQ TALK.TO.SKETCH.PROPS - (WHENADDEDFN TALK.SKETCH.WHENADDEDFN WHENDELETEDFN TALK.SKETCH.WHENDELETEDFN WHENMOVEDFN - TALK.SKETCH.WHENMOVEDFN WHENCHANGEDFN TALK.SKETCH.WHENCHANGEDFN WHENGROUPEDFN - TALK.SKETCH.WHENGROUPEDFN WHENUNGROUPEDFN TALK.SKETCH.WHENUNGROUPEDFN PREMOVEFN - TALK.SKETCH.PREMOVEFN)) - -(RPAQQ TALK.SKETCH.REDISPLAY.PROPS ((TEXT FONT) - (TEXTBOX FONT BRUSH) - (CLOSEDWIRE DASHING))) - - - -(* TALK Sketch Actions) - -(DEFINEQ - -(TALK.SKETCH.ADD.ELEMENT - [LAMBDA (SKETCH ELEMENT) (* ; "Edited 21-Jun-87 11:24 by cdl") - (SKETCH.ADD.ELEMENT ELEMENT SKETCH]) - -(TALK.SKETCH.CHANGE.ELEMENT - [LAMBDA (SKETCH ELEMENT PROPERTY VALUE) (* ; "Edited 10-Jun-88 09:35 by cdl") - (* DECLARATIONS%: (RECORD ENTRY - (TYPE . PROPERTIES))) - (bind ENTRY for ELEMENT in (TALK.SKETCH.FIND.ELEMENT SKETCH ELEMENT) - do (PUTSKETCHELEMENTPROP ELEMENT PROPERTY VALUE SKETCH) - (if (SETQ ENTRY (ASSOC (SKETCH.ELEMENT.TYPE ELEMENT) - TALK.SKETCH.REDISPLAY.PROPS)) - then (with ENTRY ENTRY (if (OR (NULL PROPERTIES) - (MEMB PROPERTY PROPERTIES)) - then (REDISPLAYW SKETCH]) - -(TALK.SKETCH.DELETE.ELEMENTS - [LAMBDA (SKETCH ELEMENTS) (* ; "Edited 18-Jun-87 09:47 by cdl") - (for ELEMENT inside (TALK.SKETCH.FIND.ELEMENT SKETCH ELEMENTS) - do (SKETCH.DELETE.ELEMENT ELEMENT SKETCH]) - -(TALK.SKETCH.MOVE.ELEMENTS - [LAMBDA (SKETCH ELEMENTS DELTA) (* ; "Edited 18-Jun-87 17:48 by cdl") - (for PAIR in ELEMENTS - do (SELECTQ (CAR PAIR) - (T (SKETCH.MOVE.ELEMENTS (TALK.SKETCH.FIND.ELEMENT SKETCH (CDR PAIR)) - DELTA SKETCH)) - (bind POSITIONS POSITION CONTROLPT [ELEMENT _ (CAR (TALK.SKETCH.FIND.ELEMENT - SKETCH - (CDR PAIR] for NUMBER - in (CAR PAIR) - do (SELECTQ NUMBER - ((1 2 3) - (SETQ CONTROLPT (SELECTQ NUMBER - (1 '1STCONTROLPT) - (2 '2NDCONTROLPT) - (3 '3RDCONTROLPT) - (SHOULDNT))) - (with POSITION (SETQ POSITION (COPY (GETSKETCHELEMENTPROP - ELEMENT CONTROLPT))) - (add XCOORD (fetch (POSITION XCOORD) of - DELTA)) - (add YCOORD (fetch (POSITION YCOORD) of - DELTA))) - (PUTSKETCHELEMENTPROP ELEMENT CONTROLPT POSITION SKETCH)) - (if [SETQ POSITIONS (COPY (GETSKETCHELEMENTPROP ELEMENT - 'DATA] - then (with POSITION (CAR (NTH POSITIONS NUMBER)) - (add XCOORD (fetch (POSITION XCOORD) - of DELTA)) - (add YCOORD (fetch (POSITION YCOORD) - of DELTA))) - (PUTSKETCHELEMENTPROP ELEMENT 'DATA POSITIONS SKETCH]) - -(TALK.SKETCH.POSITION.ELEMENTS - [LAMBDA (SKETCH SYMBOLS POSITION) (* ; "Edited 19-Jun-87 09:17 by cdl") - (LET ((ELEMENTS (TALK.SKETCH.FIND.ELEMENT SKETCH SYMBOLS))) - (SKETCH.MOVE.ELEMENTS ELEMENTS (with POSITION (GETSKETCHELEMENTPROP (CAR ELEMENTS) - '1STCONTROLPT) - (create POSITION - XCOORD _ (DIFFERENCE (fetch (POSITION - XCOORD) - of POSITION) - XCOORD) - YCOORD _ (DIFFERENCE (fetch (POSITION - YCOORD) - of POSITION) - YCOORD))) - SKETCH]) -) - -(RPAQQ TALK.SKETCH.ACTIONS ((ADD TALK.SKETCH.ADD.ELEMENT) - (DELETE TALK.SKETCH.DELETE.ELEMENTS) - (MOVE TALK.SKETCH.MOVE.ELEMENTS) - (CHANGE TALK.SKETCH.CHANGE.ELEMENT) - (POSITION TALK.SKETCH.POSITION.ELEMENTS))) - - - -(* TALK Sketch Data) - - -(RPAQQ TALK.SKETCH.DELETE.ITEMS (Group UnGroup Put "Move view")) - -(RPAQ? TALK.SKETCH.TRACK NIL) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TALK.SKETCH.ACTIONS TALK.TO.SKETCH.PROPS TALK.SKETCH.REDISPLAY.PROPS - TALK.SKETCH.DELETE.ITEMS TALK.SKETCH.TRACK) -) - - - -(* etc) - - -(FILESLOAD TALK SKETCH) - -(APPENDTOVAR GAP.SERVICETYPES (7 Sketch TALK.NS.SERVER)) - -(APPENDTOVAR TALK.SERVICETYPES (Sketch TALK.SKETCH.DISPLAY TALK.SKETCH.LISTEN)) - - - -(* Sketch Bug Fixes) - -(DEFINEQ - -(TALK.SKETCH.NOP - [LAMBDA (X) (* ; "Edited 19-Jun-87 07:50 by cdl") - X]) -) - -(CHANGENAME '\SK.PUT.FONT 'SK.INSURE.TEXT 'TALK.SKETCH.NOP) - -[XCL:REINSTALL-ADVICE 'BITMAPELT.CHANGEFN :AFTER '((:LAST (RPLACA (CDDAR (CADAR !VALUE)) - (CADDAR (CAAR !VALUE] - -[XCL:REINSTALL-ADVICE 'SK.IMAGEOBJ.CHANGEFN :AFTER '((:LAST (RPLACA (CDDAR (CADAR !VALUE)) - (CADDAR (CAAR !VALUE] - -[XCL:REINSTALL-ADVICE '(TEXTUREP :IN SKFILLINGP) - :BEFORE - '((:LAST (IF (NULL OBJECT) - THEN (RETURN T] - -(READVISE BITMAPELT.CHANGEFN SK.IMAGEOBJ.CHANGEFN (TEXTUREP :IN SKFILLINGP)) -(PUTPROPS SKETCHTALK COPYRIGHT ("Stanford University" 1987 1988)) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (2500 6848 (TALK.SKETCH.DISPLAY 2510 . 4998) (TALK.SKETCH.LISTEN 5000 . 6846)) (6849 -7473 (TALK.SKETCH.FIND.ELEMENT 6859 . 7250) (TALK.SKETCH.FIND.SYMBOLS 7252 . 7471)) (7519 13184 ( -TALK.SKETCH.WHENADDEDFN 7529 . 8234) (TALK.SKETCH.WHENCHANGEDFN 8236 . 9498) ( -TALK.SKETCH.WHENDELETEDFN 9500 . 9896) (TALK.SKETCH.WHENMOVEDFN 9898 . 12275) (TALK.SKETCH.PREMOVEFN -12277 . 13182)) (13185 13493 (TALK.SKETCH.WHENGROUPEDFN 13195 . 13341) (TALK.SKETCH.WHENUNGROUPEDFN -13343 . 13491)) (14060 19099 (TALK.SKETCH.ADD.ELEMENT 14070 . 14242) (TALK.SKETCH.CHANGE.ELEMENT 14244 - . 15104) (TALK.SKETCH.DELETE.ELEMENTS 15106 . 15374) (TALK.SKETCH.MOVE.ELEMENTS 15376 . 17890) ( -TALK.SKETCH.POSITION.ELEMENTS 17892 . 19097)) (19962 20105 (TALK.SKETCH.NOP 19972 . 20103))))) -STOP diff --git a/lispusers/TALK.TEDIT b/lispusers/TALK.TEDIT deleted file mode 100644 index 0927c626f5e1f817c8fcb4960a89579c333e6e62..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 49882 zcmeHw3v^W1dG0wgVcoy6(l%MEiBndfsbhNxw!yvl(Z}s_F0mOuR-N1x3=V7A%Eh4j z{r}$kJmw*dXxg-Eb%W0Av-kh)|FQr5ID5|Q9T+&W{-tmvr?am4j=V*Ac{kr{N(cl7jDCO5+TcJSV)%Q8!Vyrf4Hyl$ z41q| zT#J!QOc}a)tu#}*@(lQTe2-jT-Zcdw zX5~#mrD^{W{!%A;ucMk)GbjXzijR$&wnj=sd~2DGd?veq zE}9YL4{esFt)(ae=-iEYn)kkftnHsI&Mqu)H_p*EKJ(78=$vA0)<^ICBFbb$=Q(<{ z=G{@?(r3Fs=Q%N^8Lt$T)n=D!v-dB4N02dHU7?^WoI`Z2pxg1$_88F}__*6iS5D;> zmSz`x%j1K5J2bCGbdN9YveAKW`Hm_@cVdTDwgY@~nC@MR&Rv(M6%4)sx;fbeweH3l z+N?3?F@y9tZ=)jw*@Hu^Rx4x94_R+rGF6YdqfP>OC+Sk=*%SXO(7AW+v5Vx0+vRh$ zXGVARzAi@@_8WV7rR|x~{WLSadWL$q?D8bWZSr{%^X&IFx@>!TV%$bom6&J0x6#$w z(-Y%1x@cma{obO}HT@g!mBj6twzx&-(pY11gVmVz{JQ-sC6my(3Lbf?HwWdp_ig>$AEqyl>3opSRkZcGN$A{fk3Uyd z1$|w)zb>9c55Xx@`(;`mnbvQn{-R~*e_Aa@+w{To1I@_Nzp?$gcp6fR4(+Xd>&D<6pp02stGNIF=`kqfR&_k;dtQ94hpR;)!K9E}WSCBw^VYyv}%8MT;N6P>5PqH}@Hn?TnHx@X><_h|M~P21sr zX}ebQOg!t+e8)o*%DciB&DKs7l{H6E-j03O`=Xv#3S7B+OYIJ>=*B*3JOMhreg28L z+R`oOT-i^S0%iu#c}}3b9fjU(rYpm9%q{rg}EIE4I(U`cRza8#n2NFV^N4*XZvai+;A)tNV|C zb=QI#1H>qAhHp&sjzvM|Y1XkoQ;30WTUqVwQm?+J{>m+jypqmCbmL6tCA!>Y4`^HG z#|oEq>IL;z?k=rDaXcP@t~@H}Fdo&qj9P7LnO0~pog5Cq*W=rvm5=R-5?|28i0?jP zUk<)2_gZ|hB2+Ng71ic=Zqn+Gksez2yl7!@x!zUx$Zk^)VsAF1TDo%tgYRU0bjd6| zDkGY9yV-eAlB6?p(?zC9cl$)Tf@HcZj|QemgP?OyOpJGBKsR$@;!-Abb76yc2IY~h zGNIcHx>yF~fovi=H64HF^IN2Y`7+|0DP0zoH)Co&i0)FRbXm7g*e6N}rL!NPdM7S{ zZW8CR(P3dAy$v07dMtsPb<1>fl^$^`BO&Ib8%)TxZcVz6DXqrJNQf~VG@bZ>GKv#& zty`1s*nTADTNw#4lWxm6a16}U(m(oX3#%_?%dpo zc)FrEU6wa7K4WV8S0M^cU;%m(^$mwF$~W z4;|CL0#2sfhhHi*ynHXxBt6kxm0xN+6L&wVExmhC(*5I0+w+&!{LmsLIy?txuM}uI zqXoTV+E*G1mR9LiD|~wkyhv1m`94{yZ8@inMGL&++E;vEH?s8t@60^~SZ+{c)IM}t zqS&G_T~zx@>t4ePy6l1iZ}eMEy1k$)09}z6e0@Y$<;~t(1iGjq=Taw@Mic9jisc~^X9@SS7Z8&M9GXY4EUH8;aQ1>M4Vw-=U;NjiL^ z?K=^bbbDXS_W4@(Ncl=ij3;Gzo`d7>96iyh==PL>4o}OXJkTM5%kvzJ7F_T1X`;Lm zl#QVHmdrEuO1>Vio$s>3W824kjrp@=dDq^aulRbQ$6qNuP^=8l7eU%d**UuwX{4_e z1l=5wpy;xqxbOO{zgH#RKwHt&+|ZHN=?|@&A2G~V#^}{G^~xIFI2#HW1K|xuZ~zp8 z{vrQxz~~F&EjDAr+F;LGyqdNNuc;ZKu)jCZ3##70U;vka;n1cf%q6E2FRS(YfhR`t z9k|N84*7;!9$rwR_t$bdg8hS`fH54{IP7=}F8L+6p^<@s;J_NAIT#sSVBGC(;CI&U z33G~qsesZP8o zC*R?N$bN??kot~>&gDLHurjYrz8V1~v&dkluz$7$En-%Zt6nhT!m86e}r|LiBzkEI2q6=nD)D zfede6LU2?V`5YNI7+I26&c58-TIUsSLz*sNNdGdds*@%(ghmy4y+h%_K`JObGK|^^ zM*?PJxKT+FF*b!qjNULC3DQEU)kbdEtq{d3C6c(4=PG_iIW@SE$cUescqC9^;Qd!J%7!2seP3|R2&#Z; zTGSCti|RDGK?&CyK&pS31oW@>2SfgD^hijg5<}r0lt`?H0{vn1g6gGQ>7c|vJVYv~ zYG-20fvDNGalw?e1_jhUb?Oz(noUp5@*M|b88MkFX_ zc?cbnAQS4CHOJlqruZMYZzQyv9NFuGA;p@4tAEDs!!%oR?) zMXiOqxeb0%P6U+XlsCekJk2Ic^$b@%{UleC5GFe>xf!L>dR3Po}#CWMBg zgHU*`Y&rB+d}Ns4aW~3Q!Gn0GJ&2|zUQ6!_`6FxX8Y?mF?J$h@@}a3}8{{K2g!NK- zBy6(`d=hR=ZbTjUTGl8+E`XMS7wt(f`RYCStkOIb;5zR&*3sO@M2hwh=&j6KB^)`Y zjr*|(cVq1I185)Im6FSXjq-R*Ou|-$!1DwCeu%l+6pt!va4pGCjRMUB;t*pcl0UMJ z@#qfW;|a2hq0_+N6YL)mJ{s%~+!*LX!=PUXNO2=-y!H3eY)wi;jc);ZE#a)>FqPc% zuWIP%sB3KK;9nJRS7`6FY>s90kDw8@^(X)FIA`e%&gG_9s_163=h(z4yD$u0zNqS;)6 z7E``3{3WshXztlKPYy#RId%39XaibFKj!M9GZ+Z7aiQ;E7_)Xv`QWGMMbu;yT-o0? z1Tm1pkLrwG|Ij)bA4JCzL@!1CPbkobPQlU0G0@Rm5;YMDi>}Dl4f==S1%v3gM+WdH zfhjsUU1MD%l{F9^_#6ftOgUE%Q1hb)5B@a^PYR&UfH5L7XqJEm5;4}G!$mJIdK`0_ zFti50*`Wslm`9dj8`woHB@%OSR7K`|f}6ED1Yu@O^MrsUof_dClBvXG>1@*`n|O*o zNxmfV%mwU7HLc)gLoTq%>OA4`m`T#}g?zLd2#DUne6T~;-mtu(=}vQ=c^5S|bWa%4 z#cz|S=1{>jJOhiFoF7J{o@#wiOe+^~?`5@Lb{(FRp$!E5a5PzqERLlqYB1oNNkNXgv5j{6d1y@Z;&2XgTr`Y zl`A4`T8sThPe&g=GFH#OwfSV-51#$vDq6nzND9?jC8ZgiC&yjPFv+S5(0 z`DI?jW*0TN%10@t|N0dfb6wS_AD;&VxaMFY2zKz0gO|a)cVfs6QGW=9!bV6cichrYTT)q(aSUm?5Q+7G%qW zhZ6bpOF6dA7PL*?<_7!2?FK*WGrR#m{N!Q=!bAP&(y4#sM>Tp#qC$8ggK=4o`dHd= z)UDqd<1svoX$4tNhzZjzpm`SCZFp!C4e&!`aGn6sgcS+IMRcxs((A*j2;86_zmDZc zAuN3KOO>Q^*s7x^j0rQ@f#)$1+|lH3!&=PIF}nLhm^Sxr63&LlI!ioDx}xBREor>vQjP{iiJbS&0``IGJnMjYYp^-MrfsK z2}VdPVd3!*!&pCN-Trk@7AsyDoA^PW%kK^M@U&%t(Sv7pw3Iaz8KQwz{H~Z*VR&6h;m|A=qZ-gCm&pi#mw}LSiX^WWiGb zS01L`!tv?Jd3}(d&s5dQnJxJdwHMGgHgqz!sbzWdYAnd28v9We*CdrE%p+69Q#Csf z&0po5gCCG+v4;gnT5S;}h(|%F2BG?4J%BN%B&O5E84)Sk4(j z+oe{}hlvW=jr|@g2e#)?ax=hKFh3ItSEL6Cnx2bkOp3WZKLhbPgLuefDU`*CAxkkJ z+h(c)FePKWntibhtQ*h^_+gNyZGnw=_zMQ8Br@p80Id#T_J+l!kbhG|)`+l|@?^O< z6~WS{&6#>IXA*VZPY*uw5o_VXsv54$g$rvI!`sCoAwAX6FV{Qoakdd^F2c4-S10Gd z#-0Es`opxWM!N6{iM3YN7w}`D3JnxLcE?goWY7<_%F$(W&o6)O9-=i>UeD>ghbXOb z)Pn()PU}3w^c4fUI?>P<4wcxKLr0`u7&iFyrkNAv|WDW=xRQ&2Gy&@#8QH;aMEDoF?ni?0g!iCBJX zpem7UG!hJ%4_c|eRKOe-6DADw-`BhBb69IEpECC8loWP?sGLH0?1@vxB}(^<&wTLW z*^l$_a`NWQQ=_ut{O#lD#O4Pto<8$2pZ$rnV_mq zp8p`K9VFD|x97Zd>e<^)XTWQ5|ACz`y>sHhw?2L0^oKvW=7sw+LEUoZH@jot^}w|k zPoMty%NH_3EzaArlk~d(%*C^BeSGHBvl;PX3ANFQ`+t@9$%pwLFFk&L2G+=W@8r1; zqPnPMeioX@0Ojxv@rM59iK)WB%cC?;Oft>n!+aCyvQYYTQSY&8qtld-QMz}Us862g zS*mFVr;9q&)2Hd3(?q>>Xz@eS=LHnHsOjqU)}i7)O`EO_UwNWRnyxj##Z>gszH{UN;9 zm9y8Y2~_V`fk16bk2?9L;FVJ_T3cUKwZf86-*ztdbV^=5eJ9&kFIV<2wngjSd1J}F zOO~t=*3i@P0t#y~upx(9T5(KI$Y&PJ>FTmrx`%N=s`)p+Xu|lBS#hYlx5n zwUi`J8QjsCFgrpDR3A_=&P=?xqqEShA*4WcO@=yM{J;a}Qlju?e2j}synxs2hx_0h zDR~V}f_kFw)$vrQzLRgHNB!(@->cD7sHG>XfJ!~4%pz1u3909aX{pDQnFpTiOKlBJ zBMDQZ$UeErme*r2;Gq7|dnZ$mDL|oO5^b0jC$nb(m3q_z3hgivH3w-i4cGJ%0%$|^ z0ibQf3y3kgrnVvfIw$5pL0~>& zd`*oS)M}h4Y9UZO^v#)^z%L^Y7-klj~|bcS@7!Y z$(R!gz2=u*=R^s!!Eb(q-L>I*7SjcIen`3h8SGHQN%jZ-hE6xR^4 z;<%7gy*x8UF)O69JQRr$1vxOTK;<5%m=#jhGIC=~A+F=l>s7utFR4*of?izTh7FII z0FI>WMfJEH#rB^X)u%`8sH4A%X;?q82k^p=S)!WV@_n-$dc{y%S#}Jpl?nyFWh!}1 ztSy0x(p9VN%AJN?bXrE~zY! zJV9x{Dgb|8HcFIYt1l$PIMIIP1a$!~5vGkQo(t%-QOj<>9Mp!$<)GgC0IDTQ=*Gk_ zhIDo1sJf8lkG_Vx>7v}xVh4(*PcdyuUa=YnN=%>Jn61Z9TI%cpy70g_wO-m>TOXyzG)$jxMWA2eA#j}Ttw4Isw4t)%8m3RU zB4ka9A_}D!k3j`;42p41iVN{7pmb>snr3Kk$nh>l8L0xH;5!N>rWyCq2piMml%6sW zs*7?2FWWRDM)hF}a|)t4`)0o5@fh5TYDeieivqyI1j?Y|&NZUU%N>0)mWTpzYSb$Q5~XiBkQvHT zG7l0OD3NS<^qaUitl^F^uX7+U!;FodIoEoIUz5DFk9H%=i9$l6gdhQHnI67<$VcczVkB{_}flxE4rGr;i6r>o!7{Jh!5F`?+xJIDn=-Z=ED^8uN9!FZ* zK&V->kPTk5vbOMOP6$G#4}_{wGgxdVO^V5DdJs!kB}P~>h6$NeEk@CD6eM&nj6*OX z-sEZtl#tN95F>>&#pG%Ul&}U52GZEHLz~O5>l@tt9Wv?1TP|oUi6U_$3@GE z<1$HLUX<^Nu?6%P-H0p2QU@C979g z)N|kb=Cd~fwSGOnF7HGFCHmeAhc8{Y@X?PhzWwos7cQRp@V4ikdv4oipkDrXrV~MT zK#9Kh!rxEaf8o`?m8i3)fO>&Yi$6{V5lZyE7k+a3{tIs%c@VrVo;h;{5oVx3>Xg`lwl2*Yr`l_g@Zb z=g}y!nx5rQLa+_cp)04ls7c37M}>@hX_?9p&Kad z^UDe9LvtB~qBP2=rHDdd(g2ie?3`XYZ_D62FU7{5_*~JwOR^q~{^EoGckhxpf49s1 z(y?v-G;e!d&V3dNlLkUHW$Ui8x*bK=8)Hx1T-v=NySZ+55q-Y6*K>VYU7^=^G-ro} zLQJCc#-lms-#1p5l+@SPXZz}MeqD;s(OsUh`9}-3pQy{>2Yaa(e{b%pz|TLtdXCFO zsHX+W#i%WwvNFA3G}}TgBcAjfy=!*1u8l&%GNZJlq^N!cctJvZj_w7DC7eA*#Nbs; zpY)!CEBm7@+BR6@MWb|1$(8j>vc_tE@y=h=FPSmA%l+cKEk*OT*Zxvjqq^?`rg{fs z1dh^0g?bc5YT(lhI#&#ME$cfqOTOnI>q^or#pgNv(WeT6f+Xxa`i$bGGN<@tRP0;w z{f#Mz&1`{+JKl3JGt)*$uVt~?bniK&!2zXduGn<@4MLeu*@$Npm={rcVj0m3qJJMM z&08O7_=DHN=nQ0z#?nxvN>(WGmQE^)RB42Iei4wk?Q?B8I^UG8Xf}QWzR$rZV`uGA_$N2Jl$DQ_T4MmnNHuSZ{tj%*X(Ds zsx+uSd!u6hQ`gRssF_D%1QWc9tLHp$KF;w(UXK)1l$Bi9CQ!Q%9AaKVubGRh7d~E< z3guq-M#a@n6=RPx1bydhiK4sgte@PzaGMjA;Jr?i&`UpDWumaHWt_gRaC)y3#dq1W z4_Oj!*@>21o!CbS)b7`R7-QkMzUD4`qWHX&aLdl~AIv`T`lKEucoAOO)4k=Z2euqI zG<#C-P4>erU;WMY1BZ&I%?sQPWjVYTQ%1*Zbe#0sEs{k00tTq7Q`t}`5)~g(Bk6}* z#y{Hr`VZeuRbPVqX=+>)%Cib|Ey|Wj@F;DRNTZ@efr^R`@XFp-z5khHl$!wd_SFRh z*A-u8e5R@FjbxPPhu?UAC%3Pwh{3WhLPhb%AzLrrWb8?SDsTT<8@De;^>pFMM|+x; zBE7Qr)s@*$a6`7n6;J)s*Rr{NU3LHQnNRdQux9tNjZtQVOLkV_t@}+>R;&tzlJ|O^ zZvUE>+t*cn{sVX=JoK~uCoH`ft|ZLu(z=BAx}W;_WBa*%UDdbdzzaQn;WuZ+qfCs; zRqx|cV4`LoimSf2K$2Y5*MHy{@R~KN#?A6LAxLe+8A_fkO=z-y+6S-g-Ya+sIM z6@9OWJKC42muO&W{7Quq<*G95pPZA}QX~QQ6v_b|pXEf629+VN#I|f|GZsbJ+1BkC z^V*L$@kqlY%Tq3etaoy$5>ya+0hPBCb?S|&bo#XERkCg8H7-jvq1XP`mOZ%h{J&Kl zbf9c{>DzYBu@xwIJ$Y>Lt6Lslyij8aXw%aixaqoY<3aIL?^t>KEnaped zsj64M`uM`S^m=VSnL;mtijBsUbo6Q0YiB5h4PSref${V4EgmPzs-P`9!*8CjZiQY^ zD%yQTGyz4aDTAJRfZ9H<361`djFBAy?P9lv8% z**^ev%~V}v3JVZ)sI z@0NK=SLduWuDc;ceeHNWbS^jVC*?cJp4NcUfA&s{`re!+e|hz2$=C-=if0ioV&vo% z>dJlaCwFhZ`YGZig3~v$#mg!-cPyiUrZ=?scF`yF@YA>Y^}ci(KnpDM2_HP(#FgfBH7x?_D2fr-J;VEP1*$1!d*L@ zyc|BC8YSyXiEsNHCji_+hM0=br@f-ItEy%ALwwdyb|$F&J{kT5pKB9P9<8m!MQI2Q zUb!bv#^AXpPo6*y{n>ft#A-|QEG?Q_n}EtGEX3?ZFD#_8W+k8sukX0EYVo~T!0Mca3L+spQ4uiW!JM$HKQEJ`To<=+{4xv%d} zUVi!HT1v55qww{P?`#}B_=LxIUZAq%%i_@J=+4kd=mpe?L{xd_cWOru?kVz(3Y7b# z;03)3cjg|2UO*-3HNWG>HQS3@a?2wErJptRTDWs2>-BPyUZjhzc}N0j`4AT@^_szY z#S--*dKZ76C{Z&cO6Y|v^ok|wMLbj>zFL-0LLF9-qCBr0o zS-(gmEpl0_sKy`3dKDARwx|cImK0Ng>Z`Dj8W=)yedX+Y@4f>+z5BK9MU2uPe}I9a z-?-*I?md$A%Bg>BW#`t_WnWt zUX@0#oT9xe+qM=eURsYp3B9gam`<6W*&o-o^)F#nOmha#t^y1q3 zk7!@^DTDR2L9ud@#^F&)eKZbly5LKRiW=xkYlX4lLKuQ52&{4+#oWxn#XOPp!P+=?dTKih4`0t{y79%TzO2FVFU- z8}#`=m$$D+SaNN3QW$Jtrt~Q2>RBAB?(?hr6!m4HEWIAO zt@>p3(wa&1vQU;@GHsfANz^3uW$`lgGWAiBWIwb}mp6V{_>?h+_ok#smH0m>yHzY} z*yik0N6jLpCbd!gPEawED@AA>&=xH9IWf!3iXkSZuaqQEwG^c=8EWRJpvjh~PiwWA zu^bcC6%*N*rK*UAr0iO8r%+pwWK4}J8+_;8ci%bogygmLj_tmAJ7{*r5`Li(=Ku~5 z;?~KlY)8@6SL5Ieg=+S_{$f+9iSq3&_3j)?M&0KsD!Tf8CE=$&pKtyvCa;yPyNZiP z$CFVxKoxluYAaA>IWEO(rB8SDjz)3oln`fkAXpOmd?(5*3B9Q$oH+_>6crwOSn1_! zY&~XK!wYLHNwx-fs~~+t)rD2dT%`^P6$GCWl@%3f7HT6USSVXNm^v!T!gXp=8-_PbDo&xG&A7xC#P)3n{n+{pTYk}gePZ)u-ZU9IUSa=d?1IHxfypB- zDqGtcTEt$05@l|dhb_oxw=%UGv)r?bi^9fPe#c&0L)cIfd&kr15ZL0&Z!E_q=d_FV zTH13E8=}>j8{CFAEwDCnHn+p3{Q%WwjwVB~;WTY>haF<=J9|NC8$)a*jeYrOyD>@1 zB0>yGN))6MY1S6F=H6~&5xPX0z4 zlYcMVIu0{M7u}L=R zjGeHtyCfZD!M62BBH$A@*o& z8R_qa{_2i=jN*Zz6|#kLL*}DbltIaMyqBiE8r6RIRGsJ$8t!gbE)B?=j-#W;5M$p} zUkQc65=9qI;&LPd&J>p1lZ-R&SXMsQ&d<=sEw^wjRe;Q`V%80_Rx zPQ(ZnRtAE;=zWIyWC780@o!eqh^8*NAND?+#=0P97fzuxIWN;*dm+ z9|3AnWJ4Z)oMU}Awptag0+;WnelxNO=MHS@7soz`-DmAXE*%14j$A&Rs?<^0d3Pso zU5iao(QJA~u(L0YO<^NL2s%e$sE>9tg{SbQr*z^$c*s9QTjSGVS7^03u4Z5uy*aj} zMOQx*7z_cxyXT8tkLiFlz_HEiAX*^pXv-(vP*av}Re^%!mbvzQL}jByRYtH$GEGqG zJG{o~f#60Q)}?l1<$d$1$#VxKx2X;c@n8*C#&*|mah42Q&O&C^Svch8SSLtn7QMbCev$DORktRr=H_EGwD&yuV z{=@X>PFebwxt5z7R)~#`>svcJTUUuKTv0$i1*hId!#a&LsMM+A$kh;t&<=yk2Eg8dcUPVPmP3 zM@gt^>r^i^D%vTRPDvqZ=b18g!`6v`1+#iSZi#k6=RKIQMYS<9D0a;yHPvY`e1wb| zpI8uqBTZ;0Yu?4ZiA#}#7!O=>1ea&Zh_k1d51Jma;ti-xbDAggU>bo$R3`L8_eaBt zxpgnK5~IAay`iC#PR1yehy9ddYj?6D5X2dMmfSC$IN`a3#$)G(^1L&!pY{s2oysK+ z;*!>*!%;p@b!4|3WRs_*V6$*P*SV#D7!If%B_kPNucfgZ6{fb@H@Wgg>zHd}ev6)G5ZxMV1m~3}Qt_xwhli=z zilwn+PJJs)COd?-4&KsHP&FexylXVj!{9`Pi4K}IqN#{1S9Do^YX@`^R6Sq7UdlHe z6B?(wvJ%mM$hJ+h0_vD$4=m@7e5N0%hhdZVgyyjmog-}=&HcaHHW~wZun%*7J`73h zypQ8`u zX#a9k{!Wx*n=7d2Hfy8x?!YFTl)=u$=Xdn`hv+eqPGt&WbA2HypUX<;DDgu8?ZYn4 zN^tV(z)=l!(uA1HPQHD=nEb54up>_p#N-RJIPQ$ae(DfhO(^(`1M;!kU=uM{5=}>( zqy;ktvC30vD&0os3t}UDDw_7kM^({Ch{-F>o%wuIQzLW_G-oG!%MJPM#|-d*j0Q#i zZBAl@P0WJ%nOM%tX})NP!%Qr3Y$r0PbHjR2cLTw}k&rMb)v}EW?Ma?;ftn!6lPP8^|g5~UY94605kaCQN_ zFwAPuyh1XBmBc)T&g?*)MZ}T=&Dh9(f)|d8;{#4f6cjLEJ_@mEQ3U==!R3+#*@Yil z$a->_lxmqz=EE}!{G4ZN^cYVhQW|1_x|36Ko^M*sM95F)Ptzi(U$|Fycq5tyuWiu! zGIinbe$rAEVja!`GWOb3Cc|SG`7HsJ+tO1GwJ{P&bi(YA^5`UCF4123Tx(SmiLO+K zlT|lh)S-0**-6mxXf*qh{_AY3vIY{1X+wWWE^9w1S(2j9p=V#}9>{h$0uOU^%rh{R zz&R}Hxi$#9n5zkVR46Gci!dkk>R33H?wkPeiKBqw2uoVWr&*0vKbY-O`8ehP8g%13%&Xh98gaD2S506lfh8~#4 zT`{CKQX+fG>H!fKHWe#md~A0xLeIfwlkE^qjiv&_p zTgHz)-qnBPZJB;5)_>?45kGz^c6+sqzkI68j2}N$RkZMwph>CYi#FYV-eTF|c%^(% z7T6a*+!VztA~S?+uSW5jI>+D0Kl;JXPT%^$t_Sk9we(!R_Aiyyn*Za|8pZ#)vbxHD_)VsHyK-68gCD=n z@qhll#Wyx!i`)3d@~w0sKYd%Duf37azZ;Tq{=r5UrT;vCR`L1c#TRakgYWleEk4zM zxTpUa&<`LUeum?3R?dda7IQq7KePDMns3~8D`@PzE+>v30m%Bo=?%8{wwe#-2)k+e zw*Idkw&G{a_~W6_VwtX;zxDVNDlWAD_sf>59GFOkd~MJc-)M_3v&HA`vgqaBnP}aY ztj>jcm)li?N1TGYyt%2P(cvO|4BWD_V{6 zy7s#IrsYOyDgIX&_)52(R-Fht&scQxtrcSFa`D1N#x1ul!d*FIRk`hT&8@9>bQtAd zSY78emN&F?HncZ*E9lFxcA3+$nwT$d$J#yCK$}|bZ0cyjW3kb?VujJs(A==Rvkjtj z@;$8?Afdr4a!KNaRmO_CRZY$J7^_;n_)5@d#W!rtO)av3&i1A|8d_Hi`05r=n0XC% zw_(wV)?cvn*rwCU1CvmRfD%_^(qpqp;aq7!dZ$@V4PtxjD2zF}wg&}G&W&(OlW;hnX$suU#MzF+`(M*iO(&D2 z2ia6hW|h_;B$NntE9$htZ$?&hqDa8BtZV`<0!trkL6+v4)-}9`H(5{!dXp@3gu~ub z8e5r-Ud+?j0vXiM0wRVg406G2lLW4!N3=)u8k!7cOiQdiQ^>$o4-;}AC%4tqRWwDABbs)VZ8#IuNmmcLjNj9;mN(aR zbTloOM>$dDOqGa9IR#LDR?EipVpUU1U9)zjncA=Yak>1ybww-Y5exC%Ssmsdm^omW z5z!jN6x5)brd4h94pKF~ku^!uC08hBV3|S$r2f8^<7;TX6W`Y@ud@+5eN^&EJC`ti8^Pdj98XQ@6A(Km^gvn&LEGlJJz^PHOYF!<~G7mTVagoTU|V3iBS%LlS(7iOuG}7+ZvJ1qa5O6nvo;a zaWjau17}M3ef)9xvnfI#vvsjWDW!z62t=k~np-JCDLm$+MCs&NOhZb7PXD}0aHv93 zoApkl#Q*-3q+}P9^luaiVJL^SBAMSw%wZuZ$8;Jt6~xxLe^&OOPhKZr%~32R^s3Sv zQd56qk~Sz35`}U;O9@oSeH2l}Qx3h;&pAJ)2<0RdOC1`Mlv0F9Od~sL&%wy7G?TVk zp_Ne7jJVwERSv63m6ud5dj(~i<(jmPa*5j=syIhSKysS~A`vL}O+`uxI8+F0W|z}d zkWhP7QQTNa3A34-a_mzyWGYtu%PNHgpkjtqf(eSM6i3C7I=r^Qb^w?X*f^BHq?AI% zl1=`RqLg43Yr2ssi)mV}G8Cgfn1nKWsw82|Vv=~9b}%taOVY52WUB*;lWGXsAE^`* zMZyz6iHE32Sdx+y)w#0yvZ|A0Fm3BlhjL6si9Kwl|CM4-2}HpSh9ot+C$kWakOB@5 zC(AFzAFG$_KTJzjnxkmUlw_1Sn6jBj97CbZlBq0Vd!d51NhRD!5d!&D3QMeVFm;mRV1dIX2Ap^T0Zy7F3d*?qlzt2 z30#3FR(EhF)f~M5B{V7w6+#K~R07LJ(k51y&I2Tgq%h{_k{)9awH?DUnl?zqNBcq| zhP(2~F<(l=m=2j%Hf?nxW@>%3cp~O%m5`bbDfq4;QB~@w4bqEUM%6JDgalFhf18M9 zD!MQ~WmyO2-b9Q!UT1(&-m8_WQW%s{xE)iIJTx`Q(3B*)vocf4^3#;1kbT&XC$|_k zV$%GGqZGCUD#Br1M~ygg>J^wO&ymCBlPnw|S-zf@mMe>B&6+R=illNoRVhqM<#L43 t1@~40Q{{dV3F7E&U diff --git a/lispusers/TALKGAP b/lispusers/TALKGAP deleted file mode 100644 index 38dbe92ba..000000000 --- a/lispusers/TALKGAP +++ /dev/null @@ -1,244 +0,0 @@ -(FILECREATED "26-Mar-87 09:58:58" {MCS:MCS:STANFORD}TALKGAP.LSP;3 - - previous date: " 3-Mar-87 10:52:35" {MCS:MCS:STANFORD}TALKGAP.LSP;2) - - -(PRETTYCOMPRINT TALKGAPCOMS) - -(RPAQQ TALKGAPCOMS ((COURIERPROGRAMS TALKGAP) - (P (DEFINE.GAP.SERVER)))) - -(COURIERPROGRAM TALKGAP (3 3) - TYPES - [(WaitTime CARDINAL) - (CharLength (ENUMERATION (five 0) - (six 1) - (seven 2) - (eight 3))) - (Parity (ENUMERATION (none 0) - (odd 1) - (even 2) - (one 3) - (zero 4))) - (StopBits (ENUMERATION (one 0) - (two 1))) - (FlowControl (RECORD (type (ENUMERATION (none 0) - (xOnXOff 1))) - (xOn UNSPECIFIED) - (xOff UNSPECIFIED))) - (SessionHandle (ARRAY 2 UNSPECIFIED)) - [SessionParameterObject (CHOICE (xerox800 0 NIL) - (xerox850 1 UNSPECIFIED) - (xerox860 2 UNSPECIFIED) - (system6 3 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (cmcll 4 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm2770 5 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm2770Host 6 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm6670 7 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm6670Host 8 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm3270 9 NIL) - (ibm3270Host 10 NIL) - (OldTtyHost 11 (RECORD (charLength CharLength) - (parity Parity) - (stopBits StopBits) - (frameTimeout CARDINAL))) - (OldTty 12 (RECORD (charLength CharLength) - (parity Parity) - (stopBits StopBits) - (frameTimeout CARDINAL))) - (other 13 NIL) - (unknown 14 NIL) - (ibm2780 15 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm2780Host 16 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm3780 17 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (ibm3780Host 18 (RECORD (sendBlockSize CARDINAL) - (receiveBlockSize CARDINAL))) - (siemens9750 19 NIL) - (siemens9750Host 20 NIL) - (ttyHost 21 (RECORD (charLength CharLength) - (parity Parity) - (stopBits StopBits) - (frameTimeout CARDINAL) - (flowControl FlowControl))) - (tty 22 (RECORD (charLength CharLength) - (parity Parity) - (stopBits StopBits) - (frameTimeout CARDINAL) - (flowControl FlowControl] - [TransportObject (CHOICE [rs232c 0 (RECORD (CommParams CommParamObject) - (preemptOthers ReserveType) - (preemptMe ReserveType) - (phoneNumber STRING) - (line (CHOICE (alreadyReserved 0 - (RECORD - (resource Resource) - )) - (reserveNeeded 1 (RECORD - (lineNumber CARDINAL] - (bsc 1 (RECORD (localTerminalID STRING) - (localSecurityID STRING) - (lineControl LineControl) - (authenticateProc UNSPECIFIED))) - (teletype 2 NIL) - (polledBSCController 3 (RECORD (hostControllerName STRING) - (controllerAddress ControllerAddress) - (portsOnController CARDINAL))) - (sdlcController 4 (RECORD (hostControllerName STRING) - (controllerAddress ControllerAddress) - (portsOnController CARDINAL))) - (polledBSCTerminal 5 (RECORD (hostControllerName STRING) - (terminalAddress TerminalAddress))) - (sdlcTerminal 6 (RECORD (hostControllerName STRING) - (terminalAddress TerminalAddress))) - (service 7 (RECORD (id LONGCARDINAL))) - (unused 8 NIL) - (polledBSCPrinter 9 (RECORD (hostControllerName STRING) - (printerAddress TerminalAddress))) - (sdlcPrinter 10 (RECORD (hostControllerName STRING) - (printerAddress TerminalAddress] - (Sequence.TransportObject (SEQUENCE TransportObject)) - (BidReply (ENUMERATION (wack 0) - (nack 1) - (default 2))) - (ExtendedBoolean (ENUMERATION (true 0) - (false 1) - (default 2))) - (DeviceType (ENUMERATION (undefined 0) - (terminal 1) - (printer 2))) - [AccessDetail (CHOICE (directConn 0 (RECORD (duplex (ENUMERATION (full 0) - (half 1))) - (lineType LineType) - (lineSpeed LineSpeed))) - (dialConn 1 (RECORD (duplex (ENUMERATION (full 0) - (half 1))) - (lineType LineType) - (lineSpeed LineSpeed) - (dialMode (ENUMERATION (manual 0) - (auto 1))) - (dialerNumber CARDINAL) - (retryCount CARDINAL] - (CommParamObject (RECORD (accessDetail AccessDetail))) - (LineType (ENUMERATION (bitSynchronous 0) - (byteSynchronous 1) - (asynchronous 2) - (autoRecognition 3))) - (LineSpeed (ENUMERATION (bps50 0) - (bps75 1) - (bps110 2) - (bps135p5 3) - (bps150 4) - (bps300 5) - (bps600 6) - (bps1200 7) - (bps2400 8) - (bps3600 9) - (bps4800 10) - (bps7200 11) - (bps9600 12) - (bps19200 13) - (bps28800 14) - (bps38400 15) - (bps48000 16) - (bps56000 17) - (bps57600 18))) - (LineControl (ENUMERATION (primary 0) - (secondary 1))) - (ControllerAddress CARDINAL) - (TerminalAddress CARDINAL) - (credentials (AUTHENTICATION . CREDENTIALS)) - (verifier (AUTHENTICATION . VERIFIER)) - (Duplexity (ENUMERATION (full 0) - (half 1))) - (PortClientType (ENUMERATION (unassigned 0) - (outOfService 1) - (its 2) - (irs 3) - (gws 4) - (ibm3270Host 5) - (ttyEmulation 6) - (rbs 7) - (fax 8) - (mailGateway 9) - (phototypesetter 10))) - (PortDialerType (ENUMERATION (none 0) - (vadic 1) - (hayes 2) - (ventel 3) - (rs366 4))) - (PortEchoingLocation (ENUMERATION (application 0) - (ciu 1) - (terminal 2))) - (ReserveType (ENUMERATION (preemptNever 0) - (preemptAlways 1) - (preemptInactive 2))) - (RS232CData (RECORD (cIUPort BOOLEAN) - (owningClientType PortClientType) - (preemptionAllowed BOOLEAN) - (lineNumber CARDINAL) - (dialerNumber CARDINAL) - (duplexity Duplexity) - (dialingHardware PortDialerType) - (charLength CharLength) - (echoing PortEchoingLocation) - (flowControl FlowControl) - (lineSpeed LineSpeed) - (parity Parity) - (stopBits StopBits) - (portActsAsDCE BOOLEAN) - (accessControl NSNAME) - (validLineSpeeds (SEQUENCE LineSpeed] - PROCEDURES - ((Reset 0) - (Create 2 (SessionParameterObject Sequence.TransportObject WaitTime credentials verifier) - RETURNS - (SessionHandle) - REPORTS - (badAddressFormat controllerAlreadyExists controllerDoesNotExist - dialingHardwareProblem illegalTransport inconsistentParams - mediumConnectFailed noCommunicationHardware noDialingHardware - terminalAddressInUse terminalAddressInvalid tooManyGateStreams - transmissionMediumUnavailable serviceTooBusy userNotAuthenticated - userNotAuthorized serviceNotFound) - IMPLEMENTEDBY GAP.SERVER)) - ERRORS - ((unimplemented 0) - (noCommunicationHardware 1) - (illegalTransport 2) - (mediumConnectFailed 3) - (badAddressFormat 4) - (noDialingHardware 5) - (dialingHardwareProblem 6) - (transmissionMediumUnavailable 23) - (inconsistentParams 8) - (tooManyGateStreams 9) - (bugInGAPCode 10) - (gapNotExported 11) - (gapCommunicationError 12) - (controllerAlreadyExists 13) - (controllerDoesNotExist 14) - (terminalAddressInUse 15) - (terminalAddressInvalid 16) - (serviceTooBusy 17) - (userNotAuthenticated 18) - (userNotAuthorized 19) - (serviceNotFound 20) - (registeredTwice 21) - (transmissionMediumHardwareProblem 22) - (transmissionMediumNotReady 24) - (noAnswerOrBusy 25) - (noRouteToGAPService 26) - (gapServiceNotResponding 27) - (courierProtocolMismatch 28) - (gapVersionMismatch 29))) -(DEFINE.GAP.SERVER) -STOP diff --git a/lispusers/TEDITTALK b/lispusers/TEDITTALK deleted file mode 100644 index 42bdcefcb..000000000 --- a/lispusers/TEDITTALK +++ /dev/null @@ -1,509 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - -(FILECREATED "28-Mar-2024 00:03:10" {WMEDLEY}TEDITTALK.;2 24401 - - :EDIT-BY rmk - - :CHANGES-TO (VARS TEDITTALKCOMS) - (FNS TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN) - - :PREVIOUS-DATE "22-Jul-88 15:38:03" {WMEDLEY}TEDITTALK.;1) - - -(PRETTYCOMPRINT TEDITTALKCOMS) - -(RPAQQ TEDITTALKCOMS - [ (* ; "TALK TEdit Service") - (LOCALVARS . T) - (FNS TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN TALK.TEDIT.CHARFN) - (* ; "TALK TEdit hooks") - (FNS TALK.TEDIT.USERFN TALK.TEDIT.INSERT TALK.SELFN TALK.SETSELFN TALK.IMAGEOBJFN - TALK.LOOKSFN TALK.PARAFN TALK.INSERTFN TALK.INCLUDEFN TALK.DELETEFN TALK.GETFN) - (FNS TALK.TEDIT.BACKSPACE TALK.TEDIT.INCLUDE TALK.TEDIT.DELETE.TEXT TALK.TEDIT.GET - TALK.TEDIT.INSERT.TEXT TALK.TEDIT.SETSEL TALK.TEDIT.INSERT.OBJECT TALK.TEDIT.LOOKS - TALK.TEDIT.PARALOOKS TALK.TEDIT.DELETE) - (FNS TALK.ENCODE.SEL TALK.DECODE.SEL) - (* ; "TALK data") - (VARS TALK.TEDIT.ACTIONS TALK.FROM.TEDIT.PROPS TALK.TO.TEDIT.PROPS) - (GLOBALVARS TALK.TEDIT.ACTIONS TALK.TO.TEDIT.PROPS TALK.FROM.TEDIT.PROPS) - (* ; "etc") - (FILES TALK TEDIT) - (APPENDVARS (GAP.SERVICETYPES (6 TEdit TALK.NS.SERVER)) - (TALK.SERVICETYPES (TEdit TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN))) - (ADDVARS (TALK.TEDIT.ADVISEDFNS TEDIT.SETSEL TEDIT.INSERT TEDIT.DELETE TEDIT.INSERT.OBJECT - TEDIT.LOOKS TEDIT.PARALOOKS OPENFILE-IN-TEDIT.INCLUDE)) - (ADVISE * (PROGN TALK.TEDIT.ADVISEDFNS)) - (GLOBALVARS TALK.TEDIT.ADVISEDFNS) - (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES TEDIT-EXPORTS.ALL) - (ALISTS (CHARACTERNAMES UNDO REDO NEXT MARGINS FONT SHIFT.UNDO SHIFT.REDO SHIFT.NEXT - SHIFT.MARGINS SHIFT.FONT SHIFT.DEL) - (PRINTOUTMACROS .OP .FORCE))) - (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) - (NLAML) - (LAMA TALK.TEDIT.USERFN]) - - - -(* ; "TALK TEdit Service") - -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) -(DEFINEQ - -(TALK.TEDIT.DISPLAY - [LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOL USER) - (* ; "Edited 27-Mar-2024 23:55 by rmk") - (* ; "Edited 2-Jun-88 16:25 by cdl") - (LET (TEXTOBJ) - (TEDIT NIL MAINWINDOW NIL TALK.TO.TEDIT.PROPS) - (SETQ TEXTOBJ (TEXTOBJ MAINWINDOW)) - (TEXTPROP TEXTOBJ 'TALK OUTPUTSTREAM) - (SETTOBJ TEXTOBJ TXTFILE (CONCAT "Talk with " USER)) - (TEDIT.SETSEL (OPENTEXTSTREAM NIL WINDOW NIL NIL TALK.FROM.TEDIT.PROPS) - 1 0 'LEFT) - (WINDOWPROP WINDOW 'PROMPTWINDOW (WINDOWPROP MAINWINDOW 'PROMPTWINDOW]) - -(TALK.TEDIT.LISTEN - [LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOLTYPE) - (* ; "Edited 28-Mar-2024 00:01 by rmk") - (* ; "Edited 7-Jun-88 08:45 by cdl") - (* DECLARATIONS%: (RECORD ACTION - (CCODES ACTIONFN TEXTOBJP))) - (DECLARE (SPECVARS INPUTSTREAM)) - (PROG ((POSITION (create POSITION)) - (TEXTSTREAM (TEXTSTREAM WINDOW)) - (SCRATCHPTR (ALLOCSTRING 0)) - (STRING (ALLOCSTRING 128)) - (EVENTFN (with TALK.PROTOCOLTYPE PROTOCOLTYPE TALK.EVENTFN)) - TEXTOBJ STRINGSTREAM EOFPTR BYTE ACTION CCODE) - (SETQ TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of TEXTSTREAM)) - [SETQ EOFPTR (GETEOFPTR (SETQ STRINGSTREAM (OPENSTRINGSTREAM STRING 'BOTH] - (while (OPENP TEXTSTREAM) - do (APPLY* EVENTFN INPUTSTREAM OUTPUTSTREAM) - (CL:UNLESS (AND (OPENP INPUTSTREAM) - (OPENP OUTPUTSTREAM)) - (RETURN)) - (TALK.FLASH.CARET WINDOW POSITION 'OFF) - (while (AND (OPENP INPUTSTREAM) - (READP INPUTSTREAM)) - do (SELCHARQ (SETQ BYTE (LOGAND (SETQ CCODE (READCCODE INPUTSTREAM)) - (MASK.1'S 0 8))) - (BS (* ; "Flush text buffer") - (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR) - (* ; "the escape code") - (SETQ CCODE (LOGAND (SETQ CCODE (READCCODE INPUTSTREAM)) - (MASK.1'S 0 10))) - (if [SETQ ACTION (for ACTION in TALK.TEDIT.ACTIONS - thereis (with ACTION ACTION (EQMEMB CCODE CCODES] - then (with ACTION ACTION (APPLY* ACTIONFN - (if TEXTOBJP - then TEXTOBJ - else TEXTSTREAM) - INPUTSTREAM)))) - (^G (* ; "Flush text buffer") - (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR) - (TALK.RINGBELLS WINDOW)) - (if (LESSP CCODE (MASK.1'S 0 8)) - then (PRINTCCODE CCODE STRINGSTREAM) - (if (LEQ EOFPTR (GETFILEPTR STRINGSTREAM)) - then (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM - SCRATCHPTR)) - else (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR) - (* ; - "String streams don't handle NS charaters so don't buffer") - (TALK.TEDIT.INSERT TEXTSTREAM CCODE))) - finally (TALK.TEDIT.INSERT TEXTSTREAM STRING STRINGSTREAM SCRATCHPTR)) - (TALK.FLASH.CARET WINDOW POSITION 'ON)) - (CL:WHEN (SETQ TEXTOBJ (TEXTOBJ MAINWINDOW T)) - (SETTOBJ TEXTOBJ TXTFILE (CONCAT TXTFILE TALK.CLOSED.STRING)))]) - -(TALK.TEDIT.CHARFN - [LAMBDA (TEXTOBJ CCODE) (* ; "Edited 9-Jun-88 15:06 by cdl") - (DECLARE (SPECVARS CCODE)) - (PROG [(STREAM (TEXTPROP TEXTOBJ 'TALK] - (if (OPENP STREAM) - then (SELCHARQ CCODE - ((BS ^W DEL UNDO REDO NEXT) - (PRINTOUT STREAM .OP CCODE)) - ((SHIFT.UNDO SHIFT.REDO SHIFT.NEXT) - (PRINTOUT STREAM .OP (BITCLEAR CCODE (MASK.1'S 5 1)))) - (^O (RETURN T)) - (^A (RETURN)) - ((SHIFT.DEL FONT SHIFT.FONT MARGINS SHIFT.MARGINS) - (* Unimplemented function keys, pass - through) - (PRINTCCODE CCODE STREAM)) - (if (OR (LESSP CCODE (CHARCODE 2,0)) - (GEQ CCODE (CHARCODE 3,0))) - then (* Filter out function keys in the - 2,0 range) - (PRINTCCODE CCODE STREAM))) - (if (NOT (READP)) - then (FORCEOUTPUT STREAM))) - (RETURN T]) -) - - - -(* ; "TALK TEdit hooks") - -(DEFINEQ - -(TALK.TEDIT.USERFN - [LAMBDA VAR (* cdl " 2-Mar-87 09:53") - (LET [(USERFN (TEXTPROP (ARG VAR 2) - (ARG VAR 1] - (if USERFN - then (APPLY USERFN (for M from 2 to VAR collect (ARG VAR M]) - -(TALK.TEDIT.INSERT - [LAMBDA (TEXTSTREAM STRING.OR.CCODE STRINGSTREAM SCRATCHPTR) - (* cdl "24-Mar-87 08:45") - (if STRINGSTREAM - then (LET ((FILEPTR (GETFILEPTR STRINGSTREAM))) - (if (NOT (ZEROP FILEPTR)) - then (TEDIT.INSERT TEXTSTREAM (SUBSTRING STRING.OR.CCODE 1 FILEPTR - SCRATCHPTR)) - (SETFILEPTR STRINGSTREAM 0))) - else (TEDIT.INSERT TEXTSTREAM (MKSTRING (CHARACTER STRING.OR.CCODE]) - -(TALK.SELFN - [LAMBDA (TEXTOBJ SELECTION SELECTMODE FINAL?) (* ; "Edited 9-Jun-88 15:06 by cdl") - (DECLARE (SPECVARS SELECTION SELECTMODE)) - (SELECTQ FINAL? - (FINAL (SELECTQ SELECTMODE - ((NORMAL PENDINGDEL DELETE) - (PROG [(STREAM (TEXTPROP TEXTOBJ 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^S) - |.P2| - (LIST (TALK.ENCODE.SEL SELECTION) - SELECTMODE) - .FORCE)))) - NIL)) - NIL]) - -(TALK.SETSELFN - [LAMBDA (TEXTSTREAM CH#ORSEL LEN POINT PENDINGDELFLG LEAVECARETLOOKS OPERATION) - (* ; "Edited 9-Jun-88 15:09 by cdl") - (DECLARE (SPECVARS CH#ORSEL LEN POINT OPERATION)) - (PROG [(STREAM (TEXTPROP TEXTSTREAM 'TALK] - (if (OPENP STREAM) - then [if (NULL OPERATION) - then (SETQ OPERATION (if PENDINGDELFLG - then 'PENDINGDEL - else 'NORMAL] - (PRINTOUT STREAM .OP (CHARCODE ^S) - |.P2| - (LIST (TALK.ENCODE.SEL CH#ORSEL LEN POINT) - OPERATION) - .FORCE]) - -(TALK.IMAGEOBJFN - [LAMBDA (TEXTSTREAM OBJECT CH#ORSEL) (* ; "Edited 9-Jun-88 15:10 by cdl") - (DECLARE (SPECVARS TEXTSTREAM CH#ORSEL)) - (PROG [(STREAM (TEXTPROP TEXTSTREAM 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^T)) - (WRITEIMAGEOBJ OBJECT STREAM) - (PRINTOUT STREAM |.P2| (with SELECTION (TEDIT.GETSEL TEXTSTREAM) - (TALK.ENCODE.SEL CH#ORSEL DCH POINT)) - .FORCE]) - -(TALK.LOOKSFN - [LAMBDA (TEXTSTREAM NEWLOOKS CH#ORSEL LEN) (* ; "Edited 9-Jun-88 15:10 by cdl") - (DECLARE (SPECVARS NEWLOOKS CH#ORSEL LEN)) - (PROG [(STREAM (TEXTPROP TEXTSTREAM 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^U) - |.P2| - (LIST NEWLOOKS (TALK.ENCODE.SEL CH#ORSEL LEN)) - .FORCE]) - -(TALK.PARAFN - [LAMBDA (TEXTOBJ NEWLOOKS CH#ORSEL LEN) (* ; "Edited 9-Jun-88 15:10 by cdl") - (DECLARE (SPECVARS NEWLOOKS CH#ORSEL LEN)) - (PROG [(STREAM (TEXTPROP TEXTOBJ 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^V) - |.P2| - (LIST NEWLOOKS (TALK.ENCODE.SEL CH#ORSEL LEN)) - .FORCE]) - -(TALK.INSERTFN - [LAMBDA (TEXTSTREAM TEXT CH#ORSEL LOOKS DONTSCROLL) (* ; "Edited 9-Jun-88 15:11 by cdl") - (DECLARE (SPECVARS TEXT CH#ORSEL LOOKS DONTSCROLL)) - (PROG [(STREAM (TEXTPROP TEXTSTREAM 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^R) - |.P2| - (LIST TEXT (TALK.ENCODE.SEL CH#ORSEL) - LOOKS DONTSCROLL) - .FORCE]) - -(TALK.INCLUDEFN - [LAMBDA (TEXTSTREAM FILE START END) (* ; "Edited 9-Jun-88 15:11 by cdl") - (DECLARE (SPECVARS FILE START END)) - (PROG [(STREAM (TEXTPROP TEXTSTREAM 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^O) - |.P2| - (LIST FILE START END) - .FORCE]) - -(TALK.DELETEFN - [LAMBDA (TEXTSTREAM CH#ORSEL LEN) (* ; "Edited 9-Jun-88 15:12 by cdl") - (DECLARE (SPECVARS TEXTSTREAM CH#ORSEL LEN)) - (PROG [(STREAM (TEXTPROP TEXTSTREAM 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^P) - |.P2| - (LIST (TALK.ENCODE.SEL (OR CH#ORSEL (TEDIT.GETSEL TEXTSTREAM)) - LEN) - LEN) - .FORCE]) - -(TALK.GETFN - [LAMBDA (TEXTSTREAM FULLFILENAME WHEN) (* ; "Edited 9-Jun-88 15:12 by cdl") - (DECLARE (SPECVARS FULLFILENAME)) - (SELECTQ WHEN - (BEFORE (PROG [(STREAM (TEXTPROP TEXTSTREAM 'TALK] - (if (OPENP STREAM) - then (PRINTOUT STREAM .OP (CHARCODE ^Q) - |.P2| - (LIST FULLFILENAME) - .FORCE)))) - NIL]) -) -(DEFINEQ - -(TALK.TEDIT.BACKSPACE - [LAMBDA (TEXTSTREAM) (* cdl " 5-May-87 18:07") - (with SELECTION (TEDIT.GETSEL TEXTSTREAM) - (TEDIT.DELETE TEXTSTREAM (SUB1 (SELECTQ POINT - (LEFT CH#) - CHLIM)) - 1]) - -(TALK.TEDIT.INCLUDE - [LAMBDA (TEXTSTREAM STREAM) (* cdl "10-Mar-87 17:04") - (* DECLARATIONS%: (RECORD DATA - (FILE START END))) - (with DATA (READ STREAM) - (TEDIT.INCLUDE TEXTSTREAM FILE START END]) - -(TALK.TEDIT.DELETE.TEXT - [LAMBDA (TEXTSTREAM STREAM) (* cdl " 2-Mar-87 12:06") - (* DECLARATIONS%: (RECORD DATA - (PLST LEN))) - (with DATA (READ STREAM) - (TEDIT.DELETE TEXTSTREAM (TALK.DECODE.SEL TEXTSTREAM PLST) - LEN]) - -(TALK.TEDIT.GET - [LAMBDA (TEXTOBJ STREAM) (* ; "Edited 3-Jun-88 09:54 by cdl") - (* DECLARATIONS%: (RECORD DATA - (FULLFILENAME))) - (with TEXTOBJ TEXTOBJ (SETQ \XDIRTY NIL)) - (with DATA (READ STREAM) - (TEDIT.GET TEXTOBJ FULLFILENAME]) - -(TALK.TEDIT.INSERT.TEXT - [LAMBDA (TEXTSTREAM STREAM) (* cdl " 2-Mar-87 11:42") - (* DECLARATIONS%: (RECORD DATA - (TEXT PLST LOOKS DONTSCROLL))) - (with DATA (READ STREAM) - (TEDIT.INSERT TEXTSTREAM TEXT (TALK.DECODE.SEL TEXTSTREAM PLST) - LOOKS DONTSCROLL]) - -(TALK.TEDIT.SETSEL - [LAMBDA (TEXTSTREAM STREAM) (* cdl " 1-Mar-87 10:33") - (* DECLARATIONS%: (RECORD DATA - (PLST SELECTMODE))) - (with DATA (READ STREAM) - (TALK.DECODE.SEL TEXTSTREAM PLST SELECTMODE]) - -(TALK.TEDIT.INSERT.OBJECT - [LAMBDA (TEXTSTREAM STREAM) (* cdl " 5-May-87 18:04") - (LET (OBJECT) - (if [SETQ OBJECT (RESETFORM (INPUT STREAM) - (ERRORSET (READ] - then (TEDIT.INSERT.OBJECT (CAR OBJECT) - TEXTSTREAM - (TALK.DECODE.SEL TEXTSTREAM (READ STREAM]) - -(TALK.TEDIT.LOOKS - [LAMBDA (TEXTSTREAM STREAM) (* cdl " 1-Mar-87 12:19") - (* DECLARATIONS%: (RECORD DATA - (NEWLOOKS PLST))) - (with DATA (READ STREAM) - (TEDIT.LOOKS TEXTSTREAM NEWLOOKS (TALK.DECODE.SEL TEXTSTREAM PLST]) - -(TALK.TEDIT.PARALOOKS - [LAMBDA (TEXTSTREAM STREAM) (* cdl " 1-Mar-87 12:22") - (* DECLARATIONS%: (RECORD DATA - (NEWLOOKS PLST))) - (with DATA (READ STREAM) - (TEDIT.PARALOOKS (TEXTOBJ TEXTSTREAM) - NEWLOOKS - (TALK.DECODE.SEL TEXTSTREAM PLST]) - -(TALK.TEDIT.DELETE - [LAMBDA (TEXTSTREAM) (* cdl " 1-Mar-87 10:34") - (TEDIT.DELETE TEXTSTREAM (TEDIT.GETSEL TEXTSTREAM]) -) -(DEFINEQ - -(TALK.ENCODE.SEL - [LAMBDA (CH#ORSEL LEN POINT) (* cdl "16-Mar-87 08:18") - (* DECLARATIONS%: (PROPRECORD PLST - (CH# DCH POINT))) - (if (type? SELECTION CH#ORSEL) - then [for FIELD - in [CONSTANT (LDIFFERENCE (RECORDFIELDNAMES 'SELECTION) - '(X0 Y0 XLIM YLIM L1 LN DX \TEXTOBJ SELOBJINFO] - join (LIST FIELD (RECORDACCESS FIELD CH#ORSEL (CONSTANT (RECLOOK 'SELECTION)) - 'FETCH] - else (create PLST - CH# _ CH#ORSEL - DCH _ (OR LEN 0) - POINT _ (OR POINT 'LEFT]) - -(TALK.DECODE.SEL - [LAMBDA (TEXTSTREAM PLST SELECTMODE) (* cdl "16-Mar-87 08:12") - (* DECLARATIONS%: (PROPRECORD PLST - (CH# DCH POINT))) - (with PLST PLST (TEDIT.SETSEL TEXTSTREAM (OR CH# (fetch (SELECTION CH#) - of (TEDIT.GETSEL TEXTSTREAM))) - DCH POINT (EQ 'PENDINGDEL SELECTMODE) - NIL SELECTMODE]) -) - - - -(* ; "TALK data") - - -(RPAQQ TALK.TEDIT.ACTIONS - ((8 TALK.TEDIT.BACKSPACE) - (15 TALK.TEDIT.INCLUDE) - (16 TALK.TEDIT.DELETE.TEXT) - (17 TALK.TEDIT.GET TEXTOBJ) - (18 TALK.TEDIT.INSERT.TEXT) - (19 TALK.TEDIT.SETSEL) - (20 TALK.TEDIT.INSERT.OBJECT) - (21 TALK.TEDIT.LOOKS) - (22 TALK.TEDIT.PARALOOKS) - (23 \TEDIT.WORDDELETE TEXTOBJ) - (127 TALK.TEDIT.DELETE) - (516 TEDIT.UNDO TEXTOBJ) - (520 TEDIT.REDO TEXTOBJ) - (530 TEDIT.NEXT))) - -(RPAQQ TALK.FROM.TEDIT.PROPS (PROMPTWINDOW DON'T NOTITLE T COPYBYBKSYSBUF T MENU - ((Put 'Put NIL (SUBITEMS Plain-Text Old-Format)) - Find Quit))) - -(RPAQQ TALK.TO.TEDIT.PROPS (CHARFN TALK.TEDIT.CHARFN SELFN TALK.SELFN GETFN TALK.GETFN IMAGEOBJFN - TALK.IMAGEOBJFN LOOKSFN TALK.LOOKSFN PARAFN TALK.PARAFN INSERTFN - TALK.INSERTFN SETSELFN TALK.SETSELFN DELETEFN TALK.DELETEFN - INCLUDEFN TALK.INCLUDEFN NOTITLE T QUITFN TRUE COPYBYBKSYSBUF T)) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TALK.TEDIT.ACTIONS TALK.TO.TEDIT.PROPS TALK.FROM.TEDIT.PROPS) -) - - - -(* ; "etc") - - -(FILESLOAD TALK TEDIT) - -(APPENDTOVAR GAP.SERVICETYPES (6 TEdit TALK.NS.SERVER)) - -(APPENDTOVAR TALK.SERVICETYPES (TEdit TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN)) - -(ADDTOVAR TALK.TEDIT.ADVISEDFNS TEDIT.SETSEL TEDIT.INSERT TEDIT.DELETE TEDIT.INSERT.OBJECT - TEDIT.LOOKS TEDIT.PARALOOKS OPENFILE-IN-TEDIT.INCLUDE) - -[XCL:REINSTALL-ADVICE 'TEDIT.SETSEL :BEFORE '((:LAST (TALK.TEDIT.USERFN 'SETSELFN STREAM CH# LEN - POINT PENDINGDELFLG LEAVECARETLOOKS - OPERATION] - -[XCL:REINSTALL-ADVICE 'TEDIT.INSERT :BEFORE '((:LAST (TALK.TEDIT.USERFN 'INSERTFN STREAM TEXT - CH#ORSEL LOOKS DONTSCROLL] - -[XCL:REINSTALL-ADVICE 'TEDIT.DELETE :BEFORE '((:LAST (TALK.TEDIT.USERFN 'DELETEFN STREAM SEL LEN - LEAVECARETLOOKS] - -[XCL:REINSTALL-ADVICE 'TEDIT.INSERT.OBJECT :BEFORE '((:LAST (TALK.TEDIT.USERFN 'IMAGEOBJFN STREAM - OBJECT CH#] - -[XCL:REINSTALL-ADVICE 'TEDIT.LOOKS :BEFORE '((:LAST (TALK.TEDIT.USERFN 'LOOKSFN STREAM NEWLOOKS - SELORCH# LEN] - -[XCL:REINSTALL-ADVICE 'TEDIT.PARALOOKS :BEFORE '((:LAST (TALK.TEDIT.USERFN 'PARAFN TEXTOBJ NEWLOOKS - SEL LEN] - -[XCL:REINSTALL-ADVICE '(OPENFILE :IN TEDIT.INCLUDE) - :BEFORE - '((:LAST (TALK.TEDIT.USERFN 'INCLUDEFN STREAM FILE START END] - -(READVISE TEDIT.SETSEL TEDIT.INSERT TEDIT.DELETE TEDIT.INSERT.OBJECT TEDIT.LOOKS TEDIT.PARALOOKS - (OPENFILE :IN TEDIT.INCLUDE)) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TALK.TEDIT.ADVISEDFNS) -) -(DECLARE%: DONTCOPY DOEVAL@COMPILE - -(FILESLOAD TEDIT-EXPORTS.ALL) - - -(ADDTOVAR CHARACTERNAMES - (UNDO 2,4) - (REDO 2,10) - (NEXT 2,22) - (MARGINS 2,111) - (FONT 2,112) - (SHIFT.UNDO 2,44) - (SHIFT.REDO 2,50) - (SHIFT.NEXT 2,62) - (SHIFT.MARGINS 2,151) - (SHIFT.FONT 2,152) - (SHIFT.DEL 2,27)) - -(ADDTOVAR PRINTOUTMACROS - [.OP (LAMBDA (COMS) - (CONS `(PROGN (PRINTCCODE (CHARCODE BS) - NIL) - (PRINTCCODE ,(CADR COMS) - NIL)) - (CDDR COMS] - [.FORCE (LAMBDA (COMS) - (CONS '(FORCEOUTPUT NIL) - (CDR COMS]) -) -(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS - -(ADDTOVAR NLAMA ) - -(ADDTOVAR NLAML ) - -(ADDTOVAR LAMA TALK.TEDIT.USERFN) -) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (2574 8668 (TALK.TEDIT.DISPLAY 2584 . 3310) (TALK.TEDIT.LISTEN 3312 . 7217) ( -TALK.TEDIT.CHARFN 7219 . 8666)) (8702 14871 (TALK.TEDIT.USERFN 8712 . 9020) (TALK.TEDIT.INSERT 9022 . -9658) (TALK.SELFN 9660 . 10438) (TALK.SETSELFN 10440 . 11298) (TALK.IMAGEOBJFN 11300 . 11878) ( -TALK.LOOKSFN 11880 . 12345) (TALK.PARAFN 12347 . 12808) (TALK.INSERTFN 12810 . 13330) (TALK.INCLUDEFN -13332 . 13763) (TALK.DELETEFN 13765 . 14338) (TALK.GETFN 14340 . 14869)) (14872 18780 ( -TALK.TEDIT.BACKSPACE 14882 . 15238) (TALK.TEDIT.INCLUDE 15240 . 15619) (TALK.TEDIT.DELETE.TEXT 15621 - . 16042) (TALK.TEDIT.GET 16044 . 16470) (TALK.TEDIT.INSERT.TEXT 16472 . 16929) (TALK.TEDIT.SETSEL -16931 . 17317) (TALK.TEDIT.INSERT.OBJECT 17319 . 17739) (TALK.TEDIT.LOOKS 17741 . 18146) ( -TALK.TEDIT.PARALOOKS 18148 . 18607) (TALK.TEDIT.DELETE 18609 . 18778)) (18781 20236 (TALK.ENCODE.SEL -18791 . 19644) (TALK.DECODE.SEL 19646 . 20234))))) -STOP diff --git a/lispusers/TTYTALK b/lispusers/TTYTALK deleted file mode 100644 index 68dcec963..000000000 --- a/lispusers/TTYTALK +++ /dev/null @@ -1,133 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Jul-88 15:35:50" |{MCS:MCS:STANFORD}TTYTALK.;2| 6354 - - previous date%: "13-Jun-88 16:35:13" |{MCS:MCS:STANFORD}TTYTALK.;1|) - - -(PRETTYCOMPRINT TTYTALKCOMS) - -(RPAQQ TTYTALKCOMS ((* TALK TTY Service) - (LOCALVARS . T) - (FNS TALK.TTY.DISPLAY TALK.TTY.LISTEN TALK.TTY.CHARFN) - [INITVARS (TALK.TTY.FONT DEFAULTFONT) - (TALK.TTY.TERMTABLE (COPYTERMTABLE 'ORIG] - (GLOBALVARS TALK.TTY.FONT TALK.TTY.TERMTABLE) - (FILES TALK) - (APPENDVARS (GAP.SERVICETYPES (5 TTY TALK.NS.SERVER)) - (TALK.SERVICETYPES (TTY TALK.TTY.DISPLAY TALK.TTY.LISTEN))) - (P (ECHOCHAR (CHARCODE BS) - 'IGNORE TALK.TTY.TERMTABLE)))) - - - -(* TALK TTY Service) - -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) -(DEFINEQ - -(TALK.TTY.DISPLAY - [LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOLTYPE USER) - (* ; "Edited 8-Jun-88 12:21 by cdl") - (LET (PROCESS) - (DSPFONT TALK.TTY.FONT MAINWINDOW) - (DSPFONT TALK.TTY.FONT WINDOW) - (DSPSCROLL 'ON MAINWINDOW) - (DSPSCROLL 'ON WINDOW) - (if USER - then (WINDOWPROP MAINWINDOW 'ICON (CONCAT "Talk with " USER))) - [WINDOWPROP MAINWINDOW 'TALK.TTY.PROCESS (SETQ PROCESS - (ADD.PROCESS `(TALK.TTY.CHARFN - ,MAINWINDOW - ,OUTPUTSTREAM - ,(with TALK.PROTOCOLTYPE - PROTOCOLTYPE TALK.CASEARRAY - ] - (TTY.PROCESS PROCESS]) - -(TALK.TTY.LISTEN - [LAMBDA (MAINWINDOW WINDOW INPUTSTREAM OUTPUTSTREAM PROTOCOLTYPE) - (* ; "Edited 8-Jun-88 12:21 by cdl") - (DECLARE (SPECVARS INPUTSTREAM)) - (PROG ((POSITION (create POSITION)) - (CHARWIDTH (CHARWIDTH (CHARCODE A) - TALK.TTY.FONT)) - BYTE PROCESS EVENTFN CASEARRAY EOM?) - [with TALK.PROTOCOLTYPE PROTOCOLTYPE (SETQ EVENTFN TALK.EVENTFN) - (SETQ CASEARRAY TALK.CASEARRAY) - (SETQ EOM? (EQ TALK.PROTOCOLNAME 'NS] - (while (OPENWP WINDOW) - do (APPLY* EVENTFN INPUTSTREAM OUTPUTSTREAM) - (if (NOT (AND (OPENP INPUTSTREAM) - (OPENP OUTPUTSTREAM))) - then (RETURN)) - (TALK.FLASH.CARET WINDOW POSITION 'OFF) - (bind CCODE while (AND (OPENP INPUTSTREAM) - (PROGN (if EOM? - then (SPP.CLEAREOM INPUTSTREAM T)) - (READP INPUTSTREAM))) - do (SETQ BYTE (LOGAND (SETQ CCODE (READCCODE INPUTSTREAM)) - (MASK.1'S 0 8))) - [if CASEARRAY - then (SETQ BYTE (SETQ CCODE (ELT CASEARRAY BYTE] - (SELCHARQ BYTE - (LF NIL) - (^G (TALK.RINGBELLS WINDOW)) - (BS (if (GEQ (DSPXPOSITION NIL WINDOW) - CHARWIDTH) - then (DSPBACKUP CHARWIDTH WINDOW))) - (PRINTCCODE CCODE WINDOW))) - (TALK.FLASH.CARET WINDOW POSITION 'ON)) - (WINDOWPROP MAINWINDOW 'ICON (CONCAT (WINDOWPROP MAINWINDOW 'ICON) - TALK.CLOSED.STRING)) - (if (PROCESSP (SETQ PROCESS (WINDOWPROP MAINWINDOW 'TALK.TTY.PROCESS NIL))) - then (DEL.PROCESS PROCESS]) - -(TALK.TTY.CHARFN - [LAMBDA (DISPLAYSTREAM OUTPUTSTREAM CHARARRAY) (* ; "Edited 9-Jun-88 15:02 by cdl") - (DECLARE (SPECVARS DISPLAYSTREAM OUTPUTSTREAM CHARARRAY)) - [RESETFORM (TTYDISPLAYSTREAM DISPLAYSTREAM) - (bind CCODE (STREAM _ (GETSTREAM NIL 'INPUT)) - (CHARWIDTH _ (CHARWIDTH (CHARCODE A) - TALK.TTY.FONT)) declare%: (SPECVARS STREAM) - while (AND (OPENP OUTPUTSTREAM) - (OPENWP DISPLAYSTREAM)) - do (if (SETQ CCODE (RESETLST - (RESETSAVE (SETTERMTABLE TALK.TTY.TERMTABLE)) - (RESETSAVE (CONTROL T)) - (READCCODE STREAM))) - then (SELCHARQ CCODE - (BS (if (GEQ (DSPXPOSITION NIL DISPLAYSTREAM) - CHARWIDTH) - then (DSPBACKUP CHARWIDTH DISPLAYSTREAM))) - NIL) - (if CHARARRAY - then (SETQ CCODE (ELT CHARARRAY CCODE))) - (PRINTCCODE CCODE OUTPUTSTREAM) - (if (NOT (READP STREAM T)) - then (FORCEOUTPUT OUTPUTSTREAM] - (TTY.PROCESS T]) -) - -(RPAQ? TALK.TTY.FONT DEFAULTFONT) - -(RPAQ? TALK.TTY.TERMTABLE (COPYTERMTABLE 'ORIG)) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TALK.TTY.FONT TALK.TTY.TERMTABLE) -) - -(FILESLOAD TALK) - -(APPENDTOVAR GAP.SERVICETYPES (5 TTY TALK.NS.SERVER)) - -(APPENDTOVAR TALK.SERVICETYPES (TTY TALK.TTY.DISPLAY TALK.TTY.LISTEN)) - -(ECHOCHAR (CHARCODE BS) - 'IGNORE TALK.TTY.TERMTABLE) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (1045 5941 (TALK.TTY.DISPLAY 1055 . 2143) (TALK.TTY.LISTEN 2145 . 4428) (TALK.TTY.CHARFN - 4430 . 5939))))) -STOP