From cf700b7f533a74562970844b52b929a08a18fb13 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 11 May 2025 16:14:05 -0700 Subject: [PATCH 1/3] Collect TALK files into lispusers/talk/ renamed with hyphen convention. Also pull over TALKGAP files that were previous obsolete, and remove them from obsolete/lispusers --- lispusers/TALK | 616 ----------------------------------- lispusers/talk/TALK | Bin 0 -> 36494 bytes lispusers/talk/TALK-GAP | Bin 0 -> 13280 bytes lispusers/talk/TALK-IP | Bin 0 -> 11661 bytes lispusers/talk/TALK-NS | Bin 0 -> 14457 bytes lispusers/talk/TALK-NSGAP | Bin 0 -> 16124 bytes lispusers/talk/TALK-SKETCH | Bin 0 -> 19972 bytes lispusers/talk/TALK-TEDIT | Bin 0 -> 24941 bytes lispusers/talk/TALK-TTY | Bin 0 -> 6009 bytes lispusers/talk/TALK.TEDIT | Bin 0 -> 50954 bytes obsolete/lispusers/IPTALK | 240 -------------- obsolete/lispusers/NSTALK | 319 ------------------ obsolete/lispusers/NSTALKGAP | 23 -- 13 files changed, 1198 deletions(-) delete mode 100644 lispusers/TALK create mode 100644 lispusers/talk/TALK create mode 100644 lispusers/talk/TALK-GAP create mode 100644 lispusers/talk/TALK-IP create mode 100644 lispusers/talk/TALK-NS create mode 100644 lispusers/talk/TALK-NSGAP create mode 100644 lispusers/talk/TALK-SKETCH create mode 100644 lispusers/talk/TALK-TEDIT create mode 100644 lispusers/talk/TALK-TTY create mode 100644 lispusers/talk/TALK.TEDIT delete mode 100644 obsolete/lispusers/IPTALK delete mode 100644 obsolete/lispusers/NSTALK delete mode 100644 obsolete/lispusers/NSTALKGAP diff --git a/lispusers/TALK b/lispusers/TALK deleted file mode 100644 index 20cdd528b..000000000 --- a/lispusers/TALK +++ /dev/null @@ -1,616 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Jul-88 15:43:07" |{MCS:MCS:STANFORD}TALK.;10| 38505 - - previous date%: "16-Jun-88 09:25:17" |{MCS:MCS:STANFORD}TALK.;9|) - - -(* " -Copyright (c) 1987, 1988 by Stanford University. All rights reserved. -") - -(PRETTYCOMPRINT TALKCOMS) - -(RPAQQ TALKCOMS ((* TALK client/server code) - (LOCALVARS . T) - (FNS TALK) - (FNS TALK.RECONNECT TALK.PROCESS TALK.DISPLAY TALK.LISTEN TALK.CLOSEFN - TALK.ANSWER TALK.ANSWER.WINDOW TALK.ANSWER.USERNAME TALK.GET.NAME - TALK.ADD.NAME TALK.FLASH.CARET TALK.WHENSELECTEDFN TALK.RINGBELLS - TALK.START.SERVER) - (FNS TALK.ICON.BUTTONEVENTFN TALK.ICON.CLOSEFN) - (* TALK data) - (DECLARE%: DONTCOPY (RECORDS TALK.SERVICETYPE TALK.PROTOCOLTYPE)) - (VARS TALK.MENU.ITEMS TALK.USER.MESSAGES) - (INITVARS TALK.SERVICETYPES TALK.PROTOCOLTYPES TALK.GAG TALK.HOSTNAMES - TALK.ICON.WINDOWS (TALK.ANSWER.WAIT 15) - (TALK.READTABLE (COPYREADTABLE 'ORIG)) - (TALK.DEFAULT.REGION (CREATEREGION 0 0 500 500)) - (TALK.CLOSED.STRING " -- Connection Closed") - (TALK.ICON.FONT LITTLEFONT)) - (GLOBALVARS TALK.MENU.ITEMS TALK.USER.MESSAGES TALK.SERVICETYPES - TALK.PROTOCOLTYPES TALK.GAG TALK.HOSTNAMES TALK.ICON.WINDOWS - TALK.ANSWER.WAIT TALK.READTABLE TALK.DEFAULT.REGION TALK.CLOSED.STRING - TALK.ICON.FONT) - (ALISTS (BackgroundMenuCommands Talk)) - (VARS (BackgroundMenu)) - (APPENDVARS (BACKGROUNDFNS TALK.START.SERVER) - (AFTERMAKESYSFORMS (TALK.START.SERVER NIL T))) - (BITMAPS TALK.ICON.BITMAP) - (GLOBALVARS TALK.ICON.BITMAP) - (P (SETSYNTAX (CHARCODE SPACE) - (CHARCODE A) - TALK.READTABLE)))) - - - -(* TALK client/server code) - -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) -(DEFINEQ - -(TALK - [LAMBDA (USER.OR.HOSTNAME SERVICE PROTOCOL) (* ; "Edited 9-Jun-88 12:32 by cdl") - (* DECLARATIONS%: (RECORD RESULT - (SERVICETYPE INPUTSTREAM -  . OUTPUTSTREAM))) - (PROG (USER PROTOCOLTYPE PROTOCOLTYPES SERVICETYPE SERVICETYPES RESULT ADDRESSABLE?) - (if (NULL USER.OR.HOSTNAME) - then (if (SETQ USER.OR.HOSTNAME (TALK.GET.NAME)) - then (if (LISTP USER.OR.HOSTNAME) - then (RETURN (TALK.RECONNECT USER.OR.HOSTNAME))) - else (RETURN))) - (if SERVICE - then (if [SETQ SERVICETYPE (for SERVICETYPE in TALK.SERVICETYPES - thereis (with TALK.SERVICETYPE - SERVICETYPE (STRING-EQUAL - SERVICE - TALK.SERVICENAME] - then (SETQ SERVICETYPES (LIST SERVICETYPE)) - else (RETURN (LIST "Unknown service type!" SERVICE))) - else (if (NULL (SETQ SERVICETYPES TALK.SERVICETYPES)) - then (RETURN "No services available!"))) - (if PROTOCOL - then (if (SETQ PROTOCOLTYPE (ASSOC PROTOCOL TALK.PROTOCOLTYPES)) - then (SETQ PROTOCOLTYPES (LIST PROTOCOLTYPE)) - else (RETURN (LIST "Unknown protocol!" PROTOCOL))) - else (if (NULL (SETQ PROTOCOLTYPES TALK.PROTOCOLTYPES)) - then (RETURN "No protocols available!"))) - (if [SETQ PROTOCOLTYPE (bind ADDRESS for PROTOCOLTYPE in PROTOCOLTYPES - when (with TALK.PROTOCOLTYPE PROTOCOLTYPE - (SETQ ADDRESS (APPLY* TALK.HOSTNAMEFN - USER.OR.HOSTNAME))) - thereis (PROGN (TALK.ADD.NAME USER.OR.HOSTNAME - ADDRESS (with TALK.PROTOCOLTYPE - PROTOCOLTYPE - TALK.PROTOCOLNAME)) - (SETQ ADDRESSABLE? T) - (SELECTQ (SETQ RESULT - (with TALK.PROTOCOLTYPE - PROTOCOLTYPE - (APPLY* TALK.CONNECTFN - ADDRESS - SERVICETYPES))) - (ANSWER (RETURN)) - (LISTP RESULT] - then (with RESULT RESULT (RETURN (TALK.PROCESS INPUTSTREAM OUTPUTSTREAM - SERVICETYPE PROTOCOLTYPE 'CLIENT - USER.OR.HOSTNAME T))) - else (RETURN (if ADDRESSABLE? - then (SELECTQ RESULT - (ANSWER "No answer from TALK service!") - (LIST "Can't connect to host!" USER.OR.HOSTNAME)) - else (LIST "Host not found!" USER.OR.HOSTNAME]) -) -(DEFINEQ - -(TALK.RECONNECT - [LAMBDA (DESTINATION) (* ; "Edited 10-Jun-88 14:59 by cdl") - (* DECLARATIONS%: (RECORD RESULT - (SERVICETYPE INPUTSTREAM -  . OUTPUTSTREAM)) - (RECORD DESTINATION - (NAME . ENTRIES)) (RECORD ENTRY - (PROTOCOL . ADDRESS))) - (DECLARE (SPECVARS DESTINATION)) - (if TALK.SERVICETYPES - then - [LET (PROTOCOLTYPE RESULT ENTRY ADDRESS) (* try all the protocols but prefer - those that have already succeeded) - (if [SETQ PROTOCOLTYPE - (for PROTOCOLTYPE in [SORT (APPEND TALK.PROTOCOLTYPES) - (FUNCTION (LAMBDA (PROTOCOLTYPE) - (* DECLARATIONS%: (RECORD - DESTINATION (NAME . ENTRIES))) - (with TALK.PROTOCOLTYPE - PROTOCOLTYPE - (with DESTINATION - DESTINATION - (ASSOC - TALK.PROTOCOLNAME - ENTRIES] - when [with TALK.PROTOCOLTYPE PROTOCOLTYPE - (AND [SETQ ADDRESS (with DESTINATION DESTINATION - (if (SETQ ENTRY - (ASSOC TALK.PROTOCOLNAME - ENTRIES)) - then (with ENTRY ENTRY - ADDRESS) - else (APPLY* TALK.HOSTNAMEFN - NAME] - (SETQ RESULT (APPLY* TALK.CONNECTFN ADDRESS - TALK.SERVICETYPES] - thereis (SELECTQ RESULT - (ANSWER (RETURN)) - (LISTP RESULT] - then (with RESULT RESULT (TALK.PROCESS INPUTSTREAM OUTPUTSTREAM - SERVICETYPE PROTOCOLTYPE 'CLIENT - (with DESTINATION DESTINATION NAME) - T)) - else (SELECTQ RESULT - (ANSWER "No answer from TALK service!") - (LIST "Can't connect to host!" (with DESTINATION DESTINATION NAME] - else "No services available!"]) - -(TALK.PROCESS - [LAMBDA (INPUTSTREAM OUTPUTSTREAM SERVICETYPE PROTOCOLTYPE MODE USER SPAWN?) - (* ; "Edited 9-Jun-88 12:35 by cdl") - (if (LITATOM SERVICETYPE) - then (SETQ SERVICETYPE (ASSOC SERVICETYPE TALK.SERVICETYPES))) - (if (LITATOM PROTOCOLTYPE) - then (SETQ PROTOCOLTYPE (ASSOC PROTOCOLTYPE TALK.PROTOCOLTYPES))) - (LET ((DISPLAYSTREAM (TALK.DISPLAY INPUTSTREAM OUTPUTSTREAM SERVICETYPE PROTOCOLTYPE MODE - USER))) - (if SPAWN? - then [ADD.PROCESS `(TALK.LISTEN ,INPUTSTREAM ,OUTPUTSTREAM ,(KWOTE SERVICETYPE) - ,(KWOTE PROTOCOLTYPE) - ,DISPLAYSTREAM] - else (TALK.LISTEN INPUTSTREAM OUTPUTSTREAM SERVICETYPE PROTOCOLTYPE DISPLAYSTREAM]) - -(TALK.DISPLAY - [LAMBDA (INPUTSTREAM OUTPUTSTREAM SERVICETYPE PROTOCOLTYPE MODE USER) - (* ; "Edited 9-Jun-88 14:46 by cdl") - (* DECLARATIONS%: (ASSOCRECORD - MESSAGES (GREETING))) - (LET (MAINWINDOW WINDOW REGION GREETING) - (DECLARE (SPECVARS GREETING)) - (SETQ USER (with TALK.PROTOCOLTYPE PROTOCOLTYPE (APPLY* TALK.USERNAMEFN INPUTSTREAM - OUTPUTSTREAM SERVICETYPE MODE - USER))) - (with REGION (SETQ REGION (if (REGIONP TALK.DEFAULT.REGION) - then (with REGION TALK.DEFAULT.REGION - (GETBOXREGION WIDTH HEIGHT)) - else (GETREGION))) - (SETQ HEIGHT (QUOTIENT HEIGHT 2))) - (SETQ MAINWINDOW (CREATEW (with REGION REGION (create REGION - BOTTOM _ (PLUS BOTTOM HEIGHT) - using REGION)) - (PACK* "TALK (" (with TALK.SERVICETYPE SERVICETYPE - TALK.SERVICENAME) - ")"))) - (SETQ WINDOW (CREATEW REGION (CONCAT "(" (with TALK.PROTOCOLTYPE PROTOCOLTYPE - TALK.PROTOCOLNAME) - ") Talk from " USER))) - (WINDOWPROP MAINWINDOW 'STREAMS (CONS INPUTSTREAM OUTPUTSTREAM)) - (WINDOWADDPROP MAINWINDOW 'CLOSEFN (FUNCTION TALK.CLOSEFN)) - (ATTACHWINDOW WINDOW MAINWINDOW 'BOTTOM) - (ATTACHMENU (create MENU - ITEMS _ TALK.MENU.ITEMS - CENTERFLG _ T - MENUBORDERSIZE _ 1 - WHENSELECTEDFN _ (FUNCTION TALK.WHENSELECTEDFN)) - WINDOW - 'BOTTOM) - (with TALK.SERVICETYPE SERVICETYPE (APPLY* TALK.DISPLAYFN MAINWINDOW WINDOW INPUTSTREAM - OUTPUTSTREAM PROTOCOLTYPE USER)) - (if (AND (SETQ GREETING (CAR (with MESSAGES TALK.USER.MESSAGES GREETING))) - (SETQ GREETING (ERRORSET GREETING))) - then (BKSYSBUF (CAR GREETING))) - WINDOW]) - -(TALK.LISTEN - [LAMBDA (INPUTSTREAM OUTPUTSTREAM SERVICETYPE PROTOCOLTYPE WINDOW) - (* ; "Edited 7-Jun-88 08:42 by cdl") - (PROG (ICON? (MAINWINDOW (MAINWINDOW WINDOW))) - (with TALK.SERVICETYPE SERVICETYPE (APPLY* TALK.LISTENFN MAINWINDOW WINDOW INPUTSTREAM - OUTPUTSTREAM PROTOCOLTYPE)) - (TTY.PROCESS T) - (CLOSEF? INPUTSTREAM) - (if [OR (OPENWP WINDOW) - (for PROP in '(ICON ICONWINDOW) thereis (SETQ ICON? - (OPENWP (WINDOWPROP - MAINWINDOW - PROP] - then (WINDOWPROP WINDOW 'TITLE (CONCAT (WINDOWPROP WINDOW 'TITLE) - TALK.CLOSED.STRING)) - (for WINDOW in (ATTACHEDWINDOWS WINDOW) when (WINDOWPROP WINDOW - 'MENU) - do (if (DETACHWINDOW WINDOW) - then (CLOSEW WINDOW))) - (if ICON? - then (SHRINKW MAINWINDOW) - else (FLASHWINDOW WINDOW]) - -(TALK.CLOSEFN - [LAMBDA (WINDOW) (* ; "Edited 9-Jun-88 14:45 by cdl") - (* DECLARATIONS%: (RECORD STREAMS - (INPUTSTREAM . OUTPUTSTREAM))) - (LET ((STREAMS (WINDOWPROP WINDOW 'STREAMS NIL))) - (if STREAMS - then (with STREAMS STREAMS (CLOSEF? INPUTSTREAM) - (CLOSEF? OUTPUTSTREAM]) - -(TALK.ANSWER - [LAMBDA (USER SERVICE PROTOCOL ADDRESS) (* ; "Edited 9-Jun-88 09:20 by cdl") - (LET [WINDOW REGION (EVENT (CREATE.EVENT)) - (TIME (DATE '(DATEFORMAT NO.SECONDS] - (DECLARE (GLOBALVARS \IDLING)) - (PROGN (* Only really necessary if you're - talking to yourself) - (SPAWN.MOUSE)) - (WINDOWPROP (SETQ WINDOW (TALK.ANSWER.WINDOW USER)) - 'EVENT EVENT) - (BITBLT TALK.ICON.BITMAP NIL NIL WINDOW) - [SETQ REGION (with REGION (DSPCLIPPINGREGION NIL WINDOW) - (CREATEREGION LEFT BOTTOM WIDTH (QUOTIENT HEIGHT 3] - (CENTERPRINTINREGION (CONCAT SERVICE "(" PROTOCOL ")") - (with REGION REGION (CREATEREGION LEFT BOTTOM WIDTH (DIFFERENCE HEIGHT 7))) - WINDOW) - (DSPFONT (PROG1 (DSPFONT TALK.ICON.FONT WINDOW) - (CENTERPRINTINREGION (CONCAT (SUBSTRING TIME 1 6) - (SUBSTRING TIME 10 -1)) - (with REGION REGION (add BOTTOM HEIGHT) - (CREATEREGION LEFT BOTTOM WIDTH (DIFFERENCE HEIGHT 7))) - WINDOW)) - WINDOW) - (if USER - then (TALK.ADD.NAME USER ADDRESS PROTOCOL) - (with REGION REGION (add BOTTOM HEIGHT) - (TALK.ANSWER.USERNAME USER (CREATEREGION LEFT BOTTOM WIDTH - (DIFFERENCE HEIGHT 7)) - WINDOW))) - (TALK.RINGBELLS WINDOW) - (if (AND [STRINGP (AWAIT.EVENT EVENT (TIMES TALK.ANSWER.WAIT 1000 (if \IDLING - then - (* Provide extra time to login) - 2 - else 1] - USER) - then (* We timed out, leave the icon up - but change its functionality) - (WINDOWPROP WINDOW 'TALK (LIST USER (CONS PROTOCOL ADDRESS))) - (WINDOWPROP WINDOW 'EVENT NIL) - (INVERTW WINDOW) - else (WINDOWPROP WINDOW 'EVENT NIL) - (CLOSEW WINDOW)) - (WINDOWPROP WINDOW 'RESULT]) - -(TALK.ANSWER.WINDOW - [LAMBDA (USER) (* ; "Edited 9-Jun-88 10:27 by cdl") - (PROG (WINDOW REGION) - [if TALK.ICON.WINDOWS - then - [if [AND USER (SETQ WINDOW (for WINDOW in TALK.ICON.WINDOWS - thereis (EQUAL USER (CAR (WINDOWPROP WINDOW - 'TALK] - then (RETURN WINDOW) - else (SETQ REGION - (with REGION (WINDOWPROP (CAR TALK.ICON.WINDOWS) - 'REGION) - (if (LESSP (PLUS PRIGHT WIDTH) - SCREENWIDTH) - then (CREATEREGION PRIGHT BOTTOM WIDTH HEIGHT) - else (CREATEREGION (OR (fetch (REGION LEFT) - of (REGIONP TALK.DEFAULT.REGION) - ) - 0) - (if (LESSP (PLUS PTOP HEIGHT) - SCREENHEIGHT) - then PTOP - else (OR (fetch (REGION BOTTOM) - of (REGIONP - TALK.DEFAULT.REGION - )) - 0)) - WIDTH HEIGHT] - else (SETQ REGION (with BITMAP TALK.ICON.BITMAP - (if (REGIONP TALK.DEFAULT.REGION) - then (with REGION TALK.DEFAULT.REGION - (CREATEREGION LEFT BOTTOM BITMAPWIDTH - BITMAPHEIGHT)) - else (CREATEREGION 0 0 BITMAPWIDTH BITMAPHEIGHT] - (push TALK.ICON.WINDOWS (SETQ WINDOW (CREATEW REGION NIL 0 T))) - (WINDOWPROP WINDOW 'BUTTONEVENTFN (FUNCTION TALK.ICON.BUTTONEVENTFN)) - (WINDOWPROP WINDOW 'CLOSEFN (FUNCTION TALK.ICON.CLOSEFN)) - (RETURN WINDOW]) - -(TALK.ANSWER.USERNAME - [LAMBDA (USER REGION WINDOW) (* cdl "10-Jun-87 08:38") - (LET (PTR FONTHEIGHT (FONT (DSPFONT NIL WINDOW))) - (if (AND (GREATERP (NCHARS USER) - (QUOTIENT (BITMAPWIDTH TALK.ICON.BITMAP) - (CHARWIDTH (CHARCODE A) - FONT))) - (SETQ PTR (STRPOS (CONSTANT (CHARACTER (CHARCODE SPACE))) - USER))) - then (DSPFONT TALK.ICON.FONT WINDOW) - (SETQ FONTHEIGHT (QUOTIENT (FONTPROP TALK.ICON.FONT 'HEIGHT) - 2)) - (CENTERPRINTINREGION (SUBSTRING USER 1 (SUB1 PTR)) - (with REGION REGION (CREATEREGION LEFT (PLUS BOTTOM FONTHEIGHT) - WIDTH HEIGHT)) - WINDOW) - (CENTERPRINTINREGION (SUBSTRING USER (ADD1 PTR) - -1) - (with REGION REGION (CREATEREGION LEFT (DIFFERENCE BOTTOM FONTHEIGHT) - WIDTH HEIGHT)) - WINDOW) - (DSPFONT FONT WINDOW) - else (CENTERPRINTINREGION USER REGION WINDOW]) - -(TALK.GET.NAME - [LAMBDA NIL (* ; "Edited 16-Jun-88 09:24 by cdl") - (* DECLARATIONS%: (RECORD ENTRY - (NAME . PAIRS)) (RECORD PAIR - (PROTOCOL . ADDRESS))) - (LET - [HOSTNAME HOSTNAMES MENU (ITEM '("" NIL ""] - (if - (SETQ HOSTNAMES - (for ENTRY in TALK.HOSTNAMES - collect - (if (LISTP ENTRY) - then - [with - ENTRY ENTRY - `(,NAME ,(KWOTE ENTRY) - NIL - (SUBITEMS ,@(for PAIR in PAIRS - collect (with PAIR PAIR - `(,(CONCAT PROTOCOL " " ADDRESS) - ,(KWOTE (LIST NAME PAIR] - else ENTRY))) - then (push HOSTNAMES ITEM)) - [SETQ MENU (create MENU - TITLE _ "TALK" - ITEMS _ `(("Prompt for User/Host" 'PROMPT "Prompt for a new user or hostname." - ) - (,(if TALK.GAG - then "Turn TALK On" - else "Turn TALK Off") - (PROGN (SETQ TALK.GAG (NOT TALK.GAG)) - NIL) - "Toggle TALK connection accept/refuse switch.") - ,@HOSTNAMES] - [if HOSTNAMES - then (SHADEITEM ITEM MENU BLACKSHADE) (* Kludge to make entire line of - menu inverted, not just up to - subitem arrows) - (with REGION (MENUITEMREGION ITEM MENU) - (with MENU MENU (BLTSHADE BLACKSHADE (with WINDOW IMAGE SAVE) - (PLUS LEFT MENUOUTLINESIZE) - (PLUS BOTTOM MENUOUTLINESIZE) - WIDTH HEIGHT] - (SELECTQ (SETQ HOSTNAME (MENU MENU)) - (PROMPT (SETQ HOSTNAME (MKATOM (PROMPTFORWORD "User or host?" NIL NIL PROMPTWINDOW))) - (TERPRI PROMPTWINDOW)) - NIL) - HOSTNAME]) - -(TALK.ADD.NAME - [LAMBDA (NAME ADDRESS PROTOCOL) (* ; "Edited 9-Jun-88 12:39 by cdl") - (* DECLARATIONS%: (RECORD ENTRY - (NAME . PAIRS))) - (LET (ENTRY) - (if (NOT (EQUAL NAME ADDRESS)) - then (if (SETQ ENTRY (bind HOSTNAME (NCHARS _ (NCHARS NAME)) for ENTRY - in TALK.HOSTNAMES - eachtime (SETQ HOSTNAME - (if (LISTP ENTRY) - then (with ENTRY ENTRY NAME) - else ENTRY)) - thereis (STRING-EQUAL HOSTNAME NAME))) - then (if (NLISTP ENTRY) - then (SETQ TALK.HOSTNAMES (DREMOVE ENTRY TALK.HOSTNAMES)) - (push TALK.HOSTNAMES (LIST NAME (CONS PROTOCOL - ADDRESS))) - else (PUTASSOC PROTOCOL ADDRESS (with ENTRY ENTRY PAIRS) - )) - else (push TALK.HOSTNAMES (LIST NAME (CONS PROTOCOL ADDRESS]) - -(TALK.FLASH.CARET - [LAMBDA (WINDOW POSITION FLG) (* ; "Edited 2-Jun-88 15:17 by cdl") - (DECLARE (GLOBALVARS DEFAULTCARET)) - (if (OPENWP WINDOW) - then (SELECTQ FLG - (OFF [with POSITION POSITION - (if XCOORD - then (with CURSOR DEFAULTCARET - (BITBLT CUIMAGE NIL NIL WINDOW XCOORD YCOORD NIL - NIL NIL 'INVERT]) - (ON [with POSITION POSITION (with CURSOR DEFAULTCARET - (BITBLT CUIMAGE NIL NIL WINDOW - (SETQ XCOORD - (DIFFERENCE (DSPXPOSITION NIL - WINDOW) - CUHOTSPOTX)) - (SETQ YCOORD - (DIFFERENCE (DSPYPOSITION NIL - WINDOW) - CUHOTSPOTY)) - NIL NIL NIL 'INVERT]) - NIL]) - -(TALK.WHENSELECTEDFN - [LAMBDA (ITEM FROMMENU BUTTON) (* ; "Edited 9-Jun-88 14:50 by cdl") - (* DECLARATIONS%: (RECORD STREAMS - (INPUTSTREAM . OUTPUTSTREAM))) - (LET [MAINWINDOW TEXTSTREAM STREAMS (WINDOW (MAINWINDOW (WFROMMENU FROMMENU] - (DECLARE (SPECVARS WINDOW MAINWINDOW TEXTSTREAM STREAMS)) - (SETQ TEXTSTREAM (WINDOWPROP (SETQ MAINWINDOW (MAINWINDOW WINDOW)) - 'TEXTSTREAM)) - (if (AND (SETQ STREAMS (WINDOWPROP MAINWINDOW 'STREAMS)) - (OPENP (with STREAMS STREAMS OUTPUTSTREAM))) - then (ERRORSET (CADR ITEM]) - -(TALK.RINGBELLS - [LAMBDA (WINDOW) (* cdl "16-Mar-87 08:01") - (DECLARE (GLOBALVARS RINGBELLS.L1 RINGBELLS.L2)) - (PLAYTUNE RINGBELLS.L1) (* Dorados and Dolphins can't do - PLAYTUNE but let BEEPON/BEEPOFF - handle that) - (FLASHWINDOW WINDOW) - (PLAYTUNE RINGBELLS.L2]) - -(TALK.START.SERVER - [LAMBDA (PROTOCOL RESTART) (* ; "Edited 8-Jun-88 15:06 by cdl") - (DECLARE (SPECVARS RESTART)) - (if PROTOCOL - then (LET ((PROTOCOLTYPE (ASSOC PROTOCOL TALK.PROTOCOLTYPES))) - (DECLARE (SPECVARS PROTOCOLTYPE)) - (if PROTOCOLTYPE - then [with TALK.PROTOCOLTYPE PROTOCOLTYPE - (if TALK.STARTSERVERFN - then (CAR (NLSETQ (APPLY* TALK.STARTSERVERFN - RESTART] - else (ERROR PROTOCOL "Unknown protocol!"))) - else (for PROTOCOLTYPE declare%: (SPECVARS PROTOCOLTYPE) in TALK.PROTOCOLTYPES - do (with TALK.PROTOCOLTYPE PROTOCOLTYPE - (if TALK.STARTSERVERFN - then (NLSETQ (APPLY* TALK.STARTSERVERFN RESTART]) -) -(DEFINEQ - -(TALK.ICON.BUTTONEVENTFN - [LAMBDA (WINDOW) (* ; "Edited 9-Jun-88 10:02 by cdl") - (* DECLARATIONS%: (RECORD - DESTINATION (NAME (PROTOCOL . ADDRESS)))) - (RESETFORM (INVERTW WINDOW) - (until (MOUSESTATE UP) do)) - (ALLOW.BUTTON.EVENTS) - (if (WINDOWPROP WINDOW 'EVENT) - then (WINDOWPROP WINDOW 'RESULT T) - (NOTIFY.EVENT (WINDOWPROP WINDOW 'EVENT NIL) - T) - else (LET ((DESTINATION (WINDOWPROP WINDOW 'TALK)) - RESULT) - (if (MOUSECONFIRM (CONCAT "(Re)Connect to " (with DESTINATION DESTINATION - NAME) - "?")) - then (if (PROCESSP (SETQ RESULT (TALK.RECONNECT DESTINATION))) - then (CLOSEW WINDOW) - else (FLASHWINDOW WINDOW) - (PROMPTPRINT RESULT]) - -(TALK.ICON.CLOSEFN - [LAMBDA (WINDOW) (* cdl "10-May-87 10:07") - (LET ((EVENT (WINDOWPROP WINDOW 'EVENT NIL))) - (if EVENT - then (NOTIFY.EVENT EVENT T))) - (SETQ TALK.ICON.WINDOWS (DREMOVE WINDOW TALK.ICON.WINDOWS]) -) - - - -(* TALK data) - -(DECLARE%: DONTCOPY -(DECLARE%: EVAL@COMPILE - -(RECORD TALK.SERVICETYPE (TALK.SERVICENAME TALK.DISPLAYFN TALK.LISTENFN)) - -(RECORD TALK.PROTOCOLTYPE (TALK.PROTOCOLNAME TALK.HOSTNAMEFN TALK.USERNAMEFN TALK.CONNECTFN - TALK.EVENTFN TALK.STARTSERVERFN TALK.CASEARRAY)) -) -) - -(RPAQQ TALK.MENU.ITEMS ((Disconnect (TALK.CLOSEFN MAINWINDOW) - "Close TALK connection and keep window open.") - (RingBells (PROGN (PRINTCCODE (CHARCODE ^G) - (CDR STREAMS)) - (FORCEOUTPUT (CDR STREAMS)) - (FLASHWINDOW MAINWINDOW)) - "Execute a (RINGBELLS) on the remote machine.") - (Message (LET [(MESSAGE (MENU (create MENU ITEMS _ TALK.USER.MESSAGES] - (if [AND MESSAGE (TTY.PROCESSP (WINDOWPROP MAINWINDOW - 'PROCESS] - then - (BKSYSBUF MESSAGE))) - "Insert a generic message."))) - -(RPAQQ TALK.USER.MESSAGES (("One moment please" "One moment please..." NIL (SUBITEMS ( - "the phone's ringing" - - "One moment please, the phone's ringing..." - ) - ( - "there's someone at the door" - - "One moment please, there's someone at the door..." - ) - ( - "someone is trying to TALK to me" - - "One moment please, someone is trying to TALK to me..." - ))) - (DATE (DATE) - "The current date and time.") - "Bye.")) - -(RPAQ? TALK.SERVICETYPES NIL) - -(RPAQ? TALK.PROTOCOLTYPES NIL) - -(RPAQ? TALK.GAG NIL) - -(RPAQ? TALK.HOSTNAMES NIL) - -(RPAQ? TALK.ICON.WINDOWS NIL) - -(RPAQ? TALK.ANSWER.WAIT 15) - -(RPAQ? TALK.READTABLE (COPYREADTABLE 'ORIG)) - -(RPAQ? TALK.DEFAULT.REGION (CREATEREGION 0 0 500 500)) - -(RPAQ? TALK.CLOSED.STRING " -- Connection Closed") - -(RPAQ? TALK.ICON.FONT LITTLEFONT) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TALK.MENU.ITEMS TALK.USER.MESSAGES TALK.SERVICETYPES TALK.PROTOCOLTYPES TALK.GAG - TALK.HOSTNAMES TALK.ICON.WINDOWS TALK.ANSWER.WAIT TALK.READTABLE TALK.DEFAULT.REGION - TALK.CLOSED.STRING TALK.ICON.FONT) -) - -(ADDTOVAR BackgroundMenuCommands (Talk '(PRINTOUT PROMPTWINDOW T (TALK) - T) - "Start a TALK session with another user/host.")) - -(RPAQQ BackgroundMenu NIL) - -(APPENDTOVAR BACKGROUNDFNS TALK.START.SERVER) - -(APPENDTOVAR AFTERMAKESYSFORMS (TALK.START.SERVER NIL T)) - -(RPAQQ TALK.ICON.BITMAP #*(80 78)OOOOOOOOOOOOOOOOOOOOLAIKKGHHDBNOOOOOOOOOOGFKJOKKEJDMOOOOOOOOOG@KHOHHEJJOOOOOOOOOOGFKJOKJMJNMOOOOOOOOOGFHKGKKDBNOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOLAKGDGOOOOOOOOOOOOOOOGKBENOOOOOOOOOOOOOOOGKEDGOOOOOOOOOOOOOOOGKGENOOOOOOOOOOOOOOOGKGDGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOMM@HLGOOOOOOOOOOOOOOLIFKENOOOOOOOOOOOOOOMEFKDGOOOOOOOOOOOOOOMMFKENOOOOOOOOOOOOOOMM@HLGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOO -) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TALK.ICON.BITMAP) -) - -(SETSYNTAX (CHARCODE SPACE) - (CHARCODE A) - TALK.READTABLE) -(PUTPROPS TALK COPYRIGHT ("Stanford University" 1987 1988)) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (2377 6659 (TALK 2387 . 6657)) (6660 31221 (TALK.RECONNECT 6670 . 10485) (TALK.PROCESS -10487 . 11403) (TALK.DISPLAY 11405 . 14118) (TALK.LISTEN 14120 . 15633) (TALK.CLOSEFN 15635 . 16150) ( -TALK.ANSWER 16152 . 18935) (TALK.ANSWER.WINDOW 18937 . 21688) (TALK.ANSWER.USERNAME 21690 . 23092) ( -TALK.GET.NAME 23094 . 25712) (TALK.ADD.NAME 25714 . 27266) (TALK.FLASH.CARET 27268 . 28866) ( -TALK.WHENSELECTEDFN 28868 . 29649) (TALK.RINGBELLS 29651 . 30143) (TALK.START.SERVER 30145 . 31219)) ( -31222 32752 (TALK.ICON.BUTTONEVENTFN 31232 . 32451) (TALK.ICON.CLOSEFN 32453 . 32750))))) -STOP diff --git a/lispusers/talk/TALK b/lispusers/talk/TALK new file mode 100644 index 0000000000000000000000000000000000000000..e75b0bc3bd5c7d77b20a106c40c38a3b7851932e GIT binary patch literal 36494 zcmeIuF#!Mo0K%a4Pi+e?h(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd a0RsjM7%*VKfB^#r3>YwAz<>b*|A7IHjsO7w literal 0 HcmV?d00001 diff --git a/lispusers/talk/TALK-GAP b/lispusers/talk/TALK-GAP new file mode 100644 index 0000000000000000000000000000000000000000..7b579f48dee8ec26ea29dbdea0df9fdcc9e9c818 GIT binary patch literal 13280 zcmeIuF#!Mo0K%a4Pi+hzh(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM c7%*VKfB^#r3>YwAz<>b*1`HT5V8Fm@U^CzV0RR91 literal 0 HcmV?d00001 diff --git a/lispusers/talk/TALK-IP b/lispusers/talk/TALK-IP new file mode 100644 index 0000000000000000000000000000000000000000..c07c527ae7d0afaf3f5e8dd58d8c1d3630a08658 GIT binary patch literal 11661 zcmeIuF#!Mo0K%a4Pi+Q&h(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM W7%*VKfB^#r3>YwAz<>b*_rL%xjQ{}v literal 0 HcmV?d00001 diff --git a/lispusers/talk/TALK-NS b/lispusers/talk/TALK-NS new file mode 100644 index 0000000000000000000000000000000000000000..44056bdeae2ff6b9cc38304fdaad53f41c1cca45 GIT binary patch literal 14457 zcmeIuF#!Mo0K%a4Pwit2h(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM i7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEj_`m=-c>nYwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM p7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RslU0|P$%00961 literal 0 HcmV?d00001 diff --git a/lispusers/talk/TALK-SKETCH b/lispusers/talk/TALK-SKETCH new file mode 100644 index 0000000000000000000000000000000000000000..1197064540d387a8664b7fc1598074cd9943c0ec GIT binary patch literal 19972 zcmeIuF#!Mo0K%a4Pi+e?h(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* GuYmzh1ONd5 literal 0 HcmV?d00001 diff --git a/lispusers/talk/TALK-TEDIT b/lispusers/talk/TALK-TEDIT new file mode 100644 index 0000000000000000000000000000000000000000..4fa5a5b757062baf14f116eb8fa9b6d4fa09aefb GIT binary patch literal 24941 zcmeIu0Sy2E0K%a6Pi+o2h(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* b1`HT5V8DO@0|pEjFkrxd0RsjM7&sajVQl~b literal 0 HcmV?d00001 diff --git a/lispusers/talk/TALK-TTY b/lispusers/talk/TALK-TTY new file mode 100644 index 0000000000000000000000000000000000000000..0132acd85e08864cff6186d3abd4801d984974b5 GIT binary patch literal 6009 xcmeIuF#!Mo0K%a4Pi+ZLh(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pG-1_l>-00961 literal 0 HcmV?d00001 diff --git a/lispusers/talk/TALK.TEDIT b/lispusers/talk/TALK.TEDIT new file mode 100644 index 0000000000000000000000000000000000000000..7e4870ccd8ceb62184b1dde5b87c8692062ddc8e GIT binary patch literal 50954 zcmeIuF#!Mo0K%a4Pi+hzh(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA lz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^&FfdR(~00961 literal 0 HcmV?d00001 diff --git a/obsolete/lispusers/IPTALK b/obsolete/lispusers/IPTALK deleted file mode 100644 index c95289e3a..000000000 --- a/obsolete/lispusers/IPTALK +++ /dev/null @@ -1,240 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "22-Jul-88 14:16:28" |{MCS:MCS:STANFORD}IPTALK.;1| 12755 ) - - -(PRETTYCOMPRINT IPTALKCOMS) - -(RPAQQ IPTALKCOMS ((* TALK (Interim) - IP Interface) - (LOCALVARS . T) - (FNS TALK.IP.SERVER) - (FNS TALK.IP.USERNAME TALK.IP.CONNECT TALK.IP.EVENT TALK.START.IP.SERVER) - (INITVARS (TALK.UDP.PORT 517)) - (GLOBALVARS TALK.UDP.PORT TALK.IP.CONSTANTS) - (DECLARE%: DONTCOPY (RECORDS TALK.IP.PACKET) - (CONSTANTS * TALK.IP.CONSTANTS)) - (* etc) - (FILES TALK TCP TCPUDP) - (APPENDVARS (TALK.PROTOCOLTYPES (IP DODIP.HOSTP TALK.IP.USERNAME - TALK.IP.CONNECT TALK.IP.EVENT - TALK.START.IP.SERVER))) - (DECLARE%: DONTCOPY DONTEVAL@LOAD EVAL@COMPILE (FILES ETHERRECORDS TCPEXPORTS) - ) - (P (TALK.START.IP.SERVER)))) - - - -(* TALK (Interim) IP Interface) - -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) -(DEFINEQ - -(TALK.IP.SERVER - [LAMBDA NIL (* ; "Edited 17-Jun-88 13:45 by cdl") - (DECLARE (GLOBALVARS \IP.READY)) - (LET (SOCKET) - (DECLARE (SPECVARS SOCKET)) - (RESETLST - [RESETSAVE NIL `(UDP.CLOSE.SOCKET ,(SETQ SOCKET (UDP.OPEN.SOCKET TALK.UDP.PORT] - [bind PACKET RESPONSE SERVICE GAP.SERVICETYPE TALK.SERVICETYPE INPUTSTREAM - OUTPUTSTREAM PORT USER while \IP.READY - do (SETQ PACKET (UDP.GET SOCKET T)) - (UDP.SETUP (SETQ RESPONSE (\ALLOCATE.ETHERPACKET)) - (with IP PACKET IPSOURCEADDRESS) - (with UDP PACKET UDPSOURCEPORT) - 0 SOCKET 'FREE) - (UDP.APPEND.BYTE RESPONSE (with TALK.IP.PACKET PACKET TALK.SERVICE.BYTE)) - (if [OR [NULL (if (SETQ GAP.SERVICETYPE (ASSOC (with TALK.IP.PACKET - PACKET - TALK.SERVICE.BYTE - ) - GAP.SERVICETYPES)) - then (SETQ SERVICE (with GAP.SERVICETYPE - GAP.SERVICETYPE - GAP.SERVICENAME] - (NULL (SETQ TALK.SERVICETYPE (ASSOC SERVICE TALK.SERVICETYPES] - then (UDP.APPEND.BYTE RESPONSE \IPTALK.NOSERVICE) - (UDP.SEND SOCKET RESPONSE) - elseif [OR TALK.GAG (NOT (TALK.ANSWER (SETQ USER (with TALK.IP.PACKET - PACKET - TALK.IP.USERNAME) - ) - SERVICE - 'IP - (with IP PACKET IPSOURCEADDRESS] - then (UDP.APPEND.BYTE RESPONSE \IPTALK.NOANSWER) - (UDP.SEND SOCKET RESPONSE) - else (UDP.APPEND.BYTE RESPONSE \IPTALK.SUCCESS) - (UDP.APPEND.WORD RESPONSE (SETQ PORT (\TCP.SELECT.PORT))) - (UDP.SEND SOCKET RESPONSE) - (if (SETQ INPUTSTREAM (TCP.OPEN (with IP PACKET IPSOURCEADDRESS - ) - NIL PORT 'PASSIVE 'INPUT)) - then (TALK.PROCESS INPUTSTREAM (TCP.OTHER.STREAM INPUTSTREAM) - TALK.SERVICETYPE - 'IP - 'SERVER USER T])]) -) -(DEFINEQ - -(TALK.IP.USERNAME - [LAMBDA (INPUTSTREAM OUTPUTSTREAM SERVICETYPE MODE USER) - (* ; "Edited 8-Jun-88 15:45 by cdl") - (SELECTQ (with TALK.SERVICETYPE SERVICETYPE TALK.SERVICENAME) - ((TTY Sketch) (* For (backward) compatibility) - USER) - (LET ((NAME (USERNAME))) - (PRINTOUT OUTPUTSTREAM (if (NOT (STREQUAL NAME (CONSTANT null))) - then NAME) - T) - (FORCEOUTPUT OUTPUTSTREAM) - (SETQ NAME (RATOM INPUTSTREAM TALK.READTABLE)) (* Eat EOL) - (BIN INPUTSTREAM) - (OR NAME USER]) - -(TALK.IP.CONNECT - [LAMBDA (HOST SERVICETYPES) (* ; "Edited 13-Jun-88 17:54 by cdl") - (DECLARE (SPECVARS HOST SERVICETYPES)) - (LET - (SOCKET) - (DECLARE (SPECVARS SOCKET)) - (RESETLST - [RESETSAVE NIL `(UDP.CLOSE.SOCKET ,(SETQ SOCKET (UDP.OPEN.SOCKET] - [PROG (NAME REQUEST RESPONSE INPUTSTREAM RESULT) - (while (STREQUAL (SETQ NAME (USERNAME)) - (CONSTANT null)) do (LOGIN)) - (if - [LITATOM - (SETQ RESULT - (for SERVICETYPE in SERVICETYPES - thereis (PROGN (UDP.SETUP (SETQ REQUEST (\ALLOCATE.ETHERPACKET)) - HOST TALK.UDP.PORT 0 SOCKET 'FREE) - (UDP.APPEND.BYTE - REQUEST - (with GAP.SERVICETYPE - [for GAP.SERVICETYPE in GAP.SERVICETYPES - thereis (with GAP.SERVICETYPE - GAP.SERVICETYPE - (with TALK.SERVICETYPE - SERVICETYPE - (EQ GAP.SERVICENAME - TALK.SERVICENAME] - GAP.UNSPECIFIED)) - (UDP.APPEND.BYTE REQUEST 0) - (UDP.APPEND.WORD REQUEST 0) - (UDP.APPEND.WORD REQUEST (NCHARS NAME)) - (UDP.APPEND.STRING REQUEST NAME) - (if [SETQ RESPONSE - (UDP.EXCHANGE SOCKET REQUEST - (TIMES TALK.ANSWER.WAIT - (CONSTANT (PROGN - (* Convert to milliseconds and - double in case they are idle) - (TIMES 2 1000] - then (SELECT (with TALK.IP.PACKET RESPONSE - TALK.STATUS) - (\IPTALK.SUCCESS T) - (\IPTALK.NOSERVICE NIL) - (\IPTALK.NOANSWER (RETURN 'ANSWER)) - (RETURN 'CONNECT)) - else (* Can't connect) - (RETURN 'CONNECT] - then (RETURN RESULT) - else (if (STREAMP (SETQ INPUTSTREAM (TCP.OPEN HOST (with TALK.IP.PACKET - RESPONSE - TALK.TEDIT.PORT) - NIL - 'ACTIVE - 'INPUT T))) - then [RETURN (CONS RESULT (CONS INPUTSTREAM (TCP.OTHER.STREAM - INPUTSTREAM] - else (RETURN 'CONNECT])]) - -(TALK.IP.EVENT - [LAMBDA (INPUTSTREAM OUTPUTSTREAM) (* cdl "18-May-87 16:29") - (while (AND (OPENP INPUTSTREAM) - (OPENP OUTPUTSTREAM) - (NOT (READP INPUTSTREAM))) do (if (EOFP INPUTSTREAM) - then (CLOSEF? INPUTSTREAM)) - (BLOCK]) - -(TALK.START.IP.SERVER - [LAMBDA (RESTART) (* ; "Edited 17-Jun-88 12:20 by cdl") - [LET [(DEVICE (\GETDEVICEFROMNAME 'TCP 'NOERROR 'DONTCREATE] - (if DEVICE - then (* (Temporary) patch to make TCP - streams handle NS character codes) - (with FDEV DEVICE (if (NULL READCHARCODE) - then (SETQ READCHARCODE (FUNCTION \GENERIC.READCCODE - ] - (bind PROCESS while (AND (SETQ PROCESS (FIND.PROCESS 'TALK.IP.SERVER)) - RESTART) do (DEL.PROCESS PROCESS) - (BLOCK) - yield (if PROCESS - then PROCESS - elseif \IP.READY - then (ADD.PROCESS '(TALK.IP.SERVER) - 'RESTARTABLE - 'SYSTEM]) -) - -(RPAQ? TALK.UDP.PORT 517) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS TALK.UDP.PORT TALK.IP.CONSTANTS) -) -(DECLARE%: DONTCOPY -(DECLARE%: EVAL@COMPILE - -(ACCESSFNS TALK.IP.PACKET [(TALK.PACKET.BASE (with UDP DATUM UDPCONTENTS)) - (TALK.IP.USERNAME (\GETBASESTRING (with UDP DATUM UDPCONTENTS) - 6 - (with TALK.IP.PACKET DATUM - TALK.USERNAME.LENGTH] - (BLOCKRECORD TALK.PACKET.BASE ((TALK.SERVICE.BYTE BYTE) - (TALK.STATUS BYTE) - (TALK.TEDIT.PORT WORD) - (TALK.USERNAME.LENGTH WORD)))) -) - - -(RPAQQ TALK.IP.CONSTANTS ((\IPTALK.SUCCESS 0) - (\IPTALK.NOSERVICE 1) - (\IPTALK.NOANSWER 2))) -(DECLARE%: EVAL@COMPILE - -(RPAQQ \IPTALK.SUCCESS 0) - -(RPAQQ \IPTALK.NOSERVICE 1) - -(RPAQQ \IPTALK.NOANSWER 2) - - -(CONSTANTS (\IPTALK.SUCCESS 0) - (\IPTALK.NOSERVICE 1) - (\IPTALK.NOANSWER 2)) -) -) - - - -(* etc) - - -(FILESLOAD TALK TCP TCPUDP) - -(APPENDTOVAR TALK.PROTOCOLTYPES (IP DODIP.HOSTP TALK.IP.USERNAME TALK.IP.CONNECT TALK.IP.EVENT - TALK.START.IP.SERVER)) -(DECLARE%: DONTCOPY DONTEVAL@LOAD EVAL@COMPILE - -(FILESLOAD ETHERRECORDS TCPEXPORTS) -) - -(TALK.START.IP.SERVER) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (1313 4720 (TALK.IP.SERVER 1323 . 4718)) (4721 11119 (TALK.IP.USERNAME 4731 . 5475) ( -TALK.IP.CONNECT 5477 . 9538) (TALK.IP.EVENT 9540 . 9963) (TALK.START.IP.SERVER 9965 . 11117))))) -STOP diff --git a/obsolete/lispusers/NSTALK b/obsolete/lispusers/NSTALK deleted file mode 100644 index fbda9c188..000000000 --- a/obsolete/lispusers/NSTALK +++ /dev/null @@ -1,319 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "27-Jul-88 09:09:52" |{MCS:MCS:STANFORD}NSTALK.;3| 16112 - - changes to%: (FNS DEFINE.GAP.SERVER) - - previous date%: "16-Jun-88 17:33:04" |{MCS:MCS:STANFORD}NSTALK.;1|) - - -(PRETTYCOMPRINT NSTALKCOMS) - -(RPAQQ NSTALKCOMS ((* TALK NS (GAP) - Interface) - (LOCALVARS . T) - (FNS CH.USER.WORKSTATION TALK.NS.SERVER) - (FNS TALK.NS.USERNAME TALK.NS.CONNECT TALK.NS.EVENT TALK.NS.CREDENTIALS) - (* GAP Server) - (FNS GAP.SERVER DEFINE.GAP.SERVER) - (INITVARS GAP.SERVICETYPES [TALK.GAP.HANDLE '((0 0] - (TALK.GAP.UNKNOWN "(Viewpoint or XDE User)")) - (VARS TALK.GAP.PARAMETERS TALK.GAP.TRANSPORT) - (GLOBALVARS GAP.SERVICETYPES TALK.GAP.HANDLE TALK.GAP.UNKNOWN - TALK.GAP.PARAMETERS TALK.GAP.TRANSPORT) - (DECLARE%: DONTCOPY (RECORDS GAP.SERVICETYPE)) - (* etc) - (FILES TALK COURIERSERVE) - (APPENDVARS (TALK.PROTOCOLTYPES (NS COERCE-TO-NSADDRESS TALK.NS.USERNAME - TALK.NS.CONNECT TALK.NS.EVENT - COURIER.START.SERVER))) - [DECLARE%: DOCOPY (COMS (DECLARE%: EVAL@LOADWHEN (NOT (HASDEF 'GAP - 'COURIERPROGRAM)) - (FILES NSTALKGAP] - (* DECLARE%: DONTCOPY DONTEVAL@LOAD EVAL@COMPILE (FILES ETHERRECORDS SPPDECLS) - (* Also need to load EXPORTS.ALL)) - (* COURIER.RESET.SOCKET used to be defined by TALK, now defined in - COURIERSERVE module) - (APPENDVARS (BEFORELOGOUTFORMS (COURIER.RESET.SOCKET))) - (P (DEFINE.GAP.SERVER) - (COURIER.START.SERVER)))) - - - -(* TALK NS (GAP) Interface) - -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(LOCALVARS . T) -) -(DEFINEQ - -(CH.USER.WORKSTATION - [LAMBDA (USER WORKSTATION) (* ; "Edited 3-Jun-88 09:18 by cdl") - (if WORKSTATION - then (LET (NSADDRESS) - (if (SETQ NSADDRESS (COERCE-TO-NSADDRESS WORKSTATION (ZERO))) - then (CH.DELETE.PROPERTY USER 'ADDRESS.LIST) - (CH.ADD.ITEM.PROPERTY USER 'ADDRESS.LIST (SETQ NSADDRESS (CONS - NSADDRESS - )) - '(SEQUENCE NSADDRESS)) - (CONS USER NSADDRESS) - else (ERROR WORKSTATION "Address for host not found!"))) - else (CH.DELETE.PROPERTY USER 'ADDRESS.LIST]) - -(TALK.NS.SERVER - [LAMBDA (INPUTSTREAM PROGRAM PROCEDURE PARAMETERS TRANSPORT WAITTIME CREDENTIALS VERIFIER) - (* ; "Edited 15-Jun-88 11:10 by cdl") - (* DECLARATIONS%: (ASSOCRECORD ALST - (service))) - (LET ((USER (TALK.NS.CREDENTIALS CREDENTIALS)) - (ADDRESS (create NSADDRESS - NSSOCKET _ (ZERO) using (SPP.DESTADDRESS INPUTSTREAM))) - SERVICETYPE) - (with GAP.SERVICETYPE [for SERVICETYPE in GAP.SERVICETYPES - thereis (for NUMBER - in (CAR (with ALST TRANSPORT service)) - thereis (with GAP.SERVICETYPE - SERVICETYPE (EQP NUMBER - GAP.UNSPECIFIED - ] - (if (OR TALK.GAG (NOT (TALK.ANSWER (OR USER TALK.GAP.UNKNOWN) - GAP.SERVICENAME - 'NS ADDRESS))) - then (if (AND (EQ GAP.SERVICENAME 'TTY) - (NULL VERIFIER)) - then - - (* Should be noAnswerOrBusy, but that 915's XDE/Viewpoint so use VERIFIER to - determine if called by Lisp, can't count on this for future) - - '(ABORT serviceNotFound) - else '(ABORT noAnswerOrBusy)) - else (COURIER.RETURN INPUTSTREAM PROGRAM PROCEDURE TALK.GAP.HANDLE) - (TALK.PROCESS INPUTSTREAM (SPPOUTPUTSTREAM INPUTSTREAM) - GAP.SERVICENAME - 'NS - 'SERVER USER]) -) -(DEFINEQ - -(TALK.NS.USERNAME - [LAMBDA (INPUTSTREAM OUTPUTSTREAM SERVICETYPE MODE USER) - (* ; "Edited 9-Jun-88 12:42 by cdl") - (LET (OBJECT NAME (SERVICE (with TALK.SERVICETYPE SERVICETYPE TALK.SERVICENAME))) - (DECLARE (GLOBALVARS LOCAL.CLEARINGHOUSE CH.NET.HINT)) - (if (OR (EQ SERVICE 'TEdit) - (EQ MODE 'CLIENT)) - then (if (STREQUAL (SETQ NAME (USERNAME)) - (CONSTANT null)) - then (SETQ NAME NIL) - elseif (OR LOCAL.CLEARINGHOUSE CH.NET.HINT) - then (if (SETQ OBJECT (CH.LOOKUP.OBJECT NAME)) - then (SETQ NAME OBJECT))) - (PRINTOUT OUTPUTSTREAM NAME T) - (FORCEOUTPUT OUTPUTSTREAM)) - (if (OR (EQ SERVICE 'TEdit) - (EQ MODE 'SERVER)) - then (if (SETQ OBJECT (RATOM INPUTSTREAM TALK.READTABLE)) - then (SETQ USER OBJECT)) (* Eat EOL) - (BIN INPUTSTREAM)) - (SELECTQ SERVICE - (TTY (with SPPCON (with SPPSTREAM OUTPUTSTREAM SPP.CONNECTION) - (SETQ SPPEOMONFORCEOUT T))) - NIL) - USER]) - -(TALK.NS.CONNECT - [LAMBDA (HOST SERVICETYPES) (* ; "Edited 15-Jun-88 10:40 by cdl") - (* DECLARATIONS%: (RECORD - AUTHENTICATOR (CREDENTIALS VERIFIER))) - (PROG (USER STREAM SERVICETYPE RESULT (CREDENTIALS (with AUTHENTICATOR (CH.GETAUTHENTICATOR - T) - CREDENTIALS)) - (VERIFIER (with AUTHENTICATOR (CH.GETAUTHENTICATOR) - VERIFIER))) - (DECLARE (GLOBALVARS SPP.USER.TIMEOUT)) - (if (SETQ STREAM (COURIER.OPEN HOST NIL T (PACK* 'TALK# HOST))) - then - (if - (SETQ SERVICETYPE - (for SERVICETYPE in SERVICETYPES - thereis - (SELECTQ [CAR - (SETQ RESULT - (COURIER.CALL - STREAM - 'GAP - 'Create TALK.GAP.PARAMETERS - `([service (,(with GAP.SERVICETYPE - [for TYPE in GAP.SERVICETYPES - thereis (with GAP.SERVICETYPE TYPE - (with TALK.SERVICETYPE - SERVICETYPE - (EQ GAP.SERVICENAME - TALK.SERVICENAME] - GAP.UNSPECIFIED] - ,@TALK.GAP.TRANSPORT) - SPP.USER.TIMEOUT CREDENTIALS VERIFIER 'RETURNERRORS] - (ERROR (SELECTQ (CADR RESULT) - (noAnswerOrBusy (* User hung up or didn't answer, - don't try another service) - (RETURN)) - (serviceNotFound - - (* Old Lisp TTY service returns this when it really means noAnswerOrBusy for - compatibility with Tajo/Viewpoint.) - - (if (with TALK.SERVICETYPE SERVICETYPE - (EQ TALK.SERVICENAME 'TTY)) - then - - (* Don't try services following TTY service for NS we don't know if remote - service wasn't there or remote user refused connection so we may annoy the - remote user, of course we may miss a possible connection) - - (RETURN))) - NIL)) - RESULT))) - then [RETURN (CONS SERVICETYPE (CONS STREAM (SPPOUTPUTSTREAM STREAM] - else (CLOSEF? STREAM) - (RETURN 'ANSWER)) - else (RETURN 'CONNECT]) - -(TALK.NS.EVENT - [LAMBDA (INPUTSTREAM OUTPUTSTREAM) (* cdl "10-Jun-87 07:55") - (if (AND (OPENP INPUTSTREAM) - (OPENP OUTPUTSTREAM) - (NOT (READP INPUTSTREAM))) - then (AWAIT.EVENT (with SPPCON (with SPPSTREAM INPUTSTREAM SPP.CONNECTION) - SPPINPUTEVENT))) - (if (OPENP INPUTSTREAM) - then (SELECTQ (EOFP INPUTSTREAM) - (ATTENTION (SPP.CLEARATTENTION INPUTSTREAM) - (BIN INPUTSTREAM)) - (EOM (SPP.CLEAREOM INPUTSTREAM)) - (T (CLOSEF INPUTSTREAM)) - NIL]) - -(TALK.NS.CREDENTIALS - [LAMBDA (CREDENTIALS) (* cdl " 6-May-87 15:58") - (if (AND CREDENTIALS (SETQ CREDENTIALS (CADR CREDENTIALS))) - then (SUBATOM (COURIER.READ.REP CREDENTIALS 'CLEARINGHOUSE 'NAME) - 1 -2]) -) - - - -(* GAP Server) - -(DEFINEQ - -(GAP.SERVER - [LAMBDA (STREAM PROGRAM PROCEDURE PARAMETERS TRANSPORT WAITTIME CREDENTIALS VERIFIER) - (* ; "Edited 9-Jun-88 12:06 by cdl") - (* DECLARATIONS%: (ASSOCRECORD ALST - (service))) - (LET (SERVICETYPE) - (if [OR [for NUMBER in (CAR (with ALST TRANSPORT service)) - thereis (SETQ SERVICETYPE (for SERVICETYPE in GAP.SERVICETYPES - thereis (with GAP.SERVICETYPE - SERVICETYPE - (AND (EQP NUMBER - GAP.UNSPECIFIED - ) - GAP.SERVERFN] - (AND (SETQ SERVICETYPE (ASSOC T GAP.SERVICETYPES)) - (with GAP.SERVICETYPE SERVICETYPE - (* There was a server in place - before TALK was loaded) - (FGETD GAP.SERVERFN] - then (APPLY* (with GAP.SERVICETYPE SERVICETYPE GAP.SERVERFN) - STREAM PROGRAM PROCEDURE PARAMETERS TRANSPORT WAITTIME CREDENTIALS - VERIFIER) - else '(ABORT serviceNotFound]) - -(DEFINE.GAP.SERVER - [LAMBDA NIL (* ; "Edited 27-Jul-88 09:08 by cdl") - (* DECLARATIONS%: (ASSOCRECORD - PROCEDURES (Create)) - (PROPRECORD PROCEDURE - (IMPLEMENTEDBY))) - (if (HASDEF 'GAP 'COURIERPROGRAM) - then (PROG [SERVERFN PROCEDURE (COURIERDEF (GETDEF 'GAP 'COURIERPROGRAM] - [with COURIERPGM COURIERDEF (SETQ PROCEDURE (with PROCEDURES - PROCEDURES Create)) - [if (SETQ SERVERFN (with PROCEDURE PROCEDURE IMPLEMENTEDBY)) - then (if (EQ SERVERFN 'GAP.SERVER) - then (RETURN)) - (* Make the existing GAP server the - default) - (if GAP.SERVICETYPES - then (PUTASSOC T `(DEFAULT ,SERVERFN) - GAP.SERVICETYPES) - else (push GAP.SERVICETYPES - `(T DEFAULT ,SERVERFN] - (with PROCEDURE PROCEDURE (SETQ IMPLEMENTEDBY 'GAP.SERVER] - (PUTDEF 'GAP 'COURIERPROGRAM COURIERDEF) - (UNMARKASCHANGED 'GAP 'COURIERPROGRAM)) - else (ERROR "Courier program GAP not defined!"]) -) - -(RPAQ? GAP.SERVICETYPES NIL) - -(RPAQ? TALK.GAP.HANDLE '((0 0))) - -(RPAQ? TALK.GAP.UNKNOWN "(Viewpoint or XDE User)") - -(RPAQQ TALK.GAP.PARAMETERS (ttyHost (seven even two 100 (none 0 0)))) - -(RPAQQ TALK.GAP.TRANSPORT ((teletype))) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS GAP.SERVICETYPES TALK.GAP.HANDLE TALK.GAP.UNKNOWN TALK.GAP.PARAMETERS TALK.GAP.TRANSPORT) -) -(DECLARE%: DONTCOPY -(DECLARE%: EVAL@COMPILE - -(RECORD GAP.SERVICETYPE (GAP.UNSPECIFIED GAP.SERVICENAME GAP.SERVERFN)) -) -) - - - -(* etc) - - -(FILESLOAD TALK COURIERSERVE) - -(APPENDTOVAR TALK.PROTOCOLTYPES (NS COERCE-TO-NSADDRESS TALK.NS.USERNAME TALK.NS.CONNECT - TALK.NS.EVENT COURIER.START.SERVER)) -(DECLARE%: DOCOPY -(DECLARE%: EVAL@LOADWHEN -(NOT (HASDEF 'GAP 'COURIERPROGRAM)) - -(FILESLOAD NSTALKGAP) -) -) - - - -(* DECLARE%: DONTCOPY DONTEVAL@LOAD EVAL@COMPILE (FILES ETHERRECORDS SPPDECLS) (* Also need to load -EXPORTS.ALL)) - - - - -(* COURIER.RESET.SOCKET used to be defined by TALK, now defined in COURIERSERVE module) - - -(APPENDTOVAR BEFORELOGOUTFORMS (COURIER.RESET.SOCKET)) - -(DEFINE.GAP.SERVER) - -(COURIER.START.SERVER) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (2304 5420 (CH.USER.WORKSTATION 2314 . 3215) (TALK.NS.SERVER 3217 . 5418)) (5421 11213 ( -TALK.NS.USERNAME 5431 . 6816) (TALK.NS.CONNECT 6818 . 10218) (TALK.NS.EVENT 10220 . 10917) ( -TALK.NS.CREDENTIALS 10919 . 11211)) (11237 14919 (GAP.SERVER 11247 . 13041) (DEFINE.GAP.SERVER 13043 - . 14917))))) -STOP diff --git a/obsolete/lispusers/NSTALKGAP b/obsolete/lispusers/NSTALKGAP deleted file mode 100644 index 3a6c3a058..000000000 --- a/obsolete/lispusers/NSTALKGAP +++ /dev/null @@ -1,23 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "22-Jul-88 15:50:38" |{MCS:MCS:STANFORD}NSTALKGAP.;2| 7994 - - changes to%: (COURIERPROGRAMS GAP) (VARS NSTALKGAPCOMS) - - previous date%: "16-Jun-88 17:40:28" |{MCS:MCS:STANFORD}MEDLEYTALK>NSTALKGAP.;3|) - - -(PRETTYCOMPRINT NSTALKGAPCOMS) - -(RPAQQ NSTALKGAPCOMS ((COURIERPROGRAMS GAP))) - -(COURIERPROGRAM GAP (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)))) (RS232CBack (RECORD (owningCIU STRING) (owningECS STRING) (owningClient STRING) (portNumber CARDINAL))) (IBMDeviceType (ENUMERATION (unused 0) (model1 1) (model2 2) (model3 3) (model4 4) (model5 5) (printer 6) (other 7))) (IBM3270Languages (ENUMERATION (USenglish 0) (Austrian 1) (AustrianAlt 2) (German 3) (GermanAlt 4) (Belgian 5) (Brazilian 6) (CanadianFrench 7) (Danish 8) (DanishAlt 9) (Norwegian 10) (NorwegianAlt 11) (Finnish 12) (FinnishAlt 13) (Swedish 14) (SwedishAlt 15) (French 16) (International 17) (Italian 18) (JapaneseEnglish 19) (JapaneseKana 20) (Portuguese 21) (Spanish 22) (SpanishAlt 23) (SpanishSpeaking 24) (UKenglish 25) (unused1 26) (unused2 27) (unused3 28) (unused4 29) (unused5 30) (unused6 31))) (ControllerLinkType (ENUMERATION (sdlc 0) (bsc 1))) (IBM3270Device (RECORD (model IBMDeviceType) (accessControl NSNAME))) (IBM3270Controller (RECORD (controllerAddress CARDINAL) (portsOnController CARDINAL) (linkType ControllerLinkType) (language IBM3270Languages) (devices (SEQUENCE IBM3270Device)))) (IBM3270HostData (SEQUENCE IBM3270Controller)) (IBM3270HostBack (RECORD (path NSNAME)))) - 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 registeredTwice transmissionMediumHardwareProblem transmissionMediumUnavailable transmissionMediumNotReady noAnswerOrBusy noRouteToGAPService gapServiceNotResponding courierProtocolMismatch gapVersionMismatch))) - ERRORS - ((unimplemented 0) (noCommunicationHardware 1) (illegalTransport 2) (mediumConnectFailed 3) (badAddressFormat 4) (noDialingHardware 5) (dialingHardwareProblem 6) (transmissionMediumUnavailable 7) (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) (transmissionMediumUnavailable 23) (transmissionMediumNotReady 24) (noAnswerOrBusy 25) (noRouteToGAPService 26) (gapServiceNotResponding 27) (courierProtocolMismatch 28) (gapVersionMismatch 29)) -) -(DECLARE%: DONTCOPY - (FILEMAP (NIL))) -STOP From 38bd4b51fe826e0eb05b006abca7147c7e0e19eb Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 11 May 2025 16:37:05 -0700 Subject: [PATCH 2/3] Replace TALK.TEDIT--file got smashed --- lispusers/talk/TALK.TEDIT | Bin 50954 -> 50973 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/lispusers/talk/TALK.TEDIT b/lispusers/talk/TALK.TEDIT index 7e4870ccd8ceb62184b1dde5b87c8692062ddc8e..6b7645888c0d30a45fae198731cad62648b975dc 100644 GIT binary patch literal 50973 zcmeHw3v^W1dG0xyF?v`QlAPv3EyIzJjpSfiARA*$up~xkgoUI?!jHu1)kqqlDI<+M zBk`#1Fo0r&O?cI5pib=AA#Ibjk~n1rnmV?JU>n?vAAQ^|=Te*TW7SDlFgUDbD;I?OgGbiC6pG|_)-~UmwMe0sqDu>jDE+9mBrCzEHTgs-btJGH*@9 z9|6`~zHlHk5;6R}f#Fct@D27FgZ|+Sq3}9mC>$CN^@M`PK&W>l=#Nz8eW|6jv%#on z4-Fc3`i6qO!OEouiP2&7hWrs@Ff?rRjD*Af!QtR0gJ}c?3ELkYG*uhRm=~xQU8&eHz#PMV63|a7`6COA?vY_jMc>en-xoH9Lq@mX7#W0iFng%i=-$Mr zJ)wc2K+qqq%3H)N{6=Skr>PT^hyCF`UytAL^{x-V`i9Sl_=ibH&KiV5_X*HGQ{Ul! z*lNJH$$-`9Mkem|_xsj^N`%;LGI|5O$PKIwfIx6lRbCCa)+qx=Y*sYOvk&3{IRurM zU@+wCt;%Z>jG)s{C=v;D2mP#Km`Y}t3^g)D36a5(zCK}*z_76)5DXf_zIA?sIZ>H| zeUmWafZsPb92oE~Fd&&KOS0^Gq#HsCR;AnTA2inbpiY>J0Bp!Jf`Q1;NCf7+Y1kKB zcM~*4fx}DTMH>Rc{l=hgfb<{}^@PZ^2S`A|?B9fHFi5HE;f(Mcb~`GW&>#{bB#h61 z)2u~h8S?e4^R4w)<$YOHDv~y|0s0baqSzk__6l0zi1e~<)DaSTz}M3s7^Jf73Bzj4 zyn*yUC8E+t<|W9IXxCk2dam;UeBBNyJjbaQBGxF3D; z_O*v6XAF9ugud~~+ZU&XI~RI3Be=8Qe(saE3l?vfLO#mAfWNaDz+D8)=?vf|1>wxN z7Sl2bUB5p#cdeE+rHGI(W4OkmKlDsR5cIN7?7cn{IJfufWtqZNWWd+$edPLzt|TE95XCet%2#cprmYn*rdP{w z}2R`n0 z!c`ExqOzRAZ@ayaZ-?g52=4L4T{bxIt=Lhm;7;t&%6EWoF2lWR!MWPH>*7}xU2VdSp*Vdc6w#)nZf-$GroF;dSoSt zM#6&)t~Mdd@o0mKIx-R-EI3`$zxiHiJRx5_T5wrfmiMuzRC?mwg3H$yp48FCCbzJT$GSq&p)xy)aX_%=qeaGJ{Ji95U?s{wIZV z*J>p^vZkKFEM$1u5}Ux#V@558)={Ln3oW=TzWvmxYfqPZF^b<(nC0F3nM8Vx zu*=xFZDY~=Lhb2!V+Go>Xj~uL#V;9(Cg`as?sf_=f-N}V3|o$~-aFy!V48Nx_Ba`w z4Qv|zH}%{BK}>tzX9}`TdgLn3N6wzwu=v!#!<*3AdH=G1RlcU9o)*=7-`m-ndyWda<^kWQqRnvFK+@Ji71r*LE#fVgMNQ zW_ZUm&sY?2?q(emG)3sxww2e;F7xPn>hrcN@<=#0!HqMVhv4#;Kd5b;A1hkksTbDg z?JlbZIqr`DR}mF(=#Of%j9P7LxmIK_oa_$4*X`Y*RgCS45?{c@i0?jPUje?W_F8-~ zBUCul71idrZ`SILksez2yl7ELh2B;7$Zk^)VsBQXT6%H>gP&x1bjd6|DkGY9huL^g zl7usJ(?zBUcgI9JLNZ;_qmF6PAmCgR6XRVOz|EYPxReRpT-YF<0X?!+CUBbp7t4Si zz$T(o!|`uEze6~fFC)I0!etY^8B^;)aF;TL%f4g6K2S=a&VGR6owx+JNu0|Dhlzpo zHgv%0u>@|`Bg4&Adc>`agqRa{>BI+=QIe2rJ(_UG_9L;t z%1DTra9hTalbw)jJu=*8@YT*CF}(p5+$FRic&muvk}@c`PbqhX7EcL;M21^CF~M*J zOf)4Z!@Y;*fO1Qwfcq#zxN!+L72i)c3%)a^;CtzgiE*91Ii6ApB(fe8b0@}8=ccsZ z#O{gl>=LS-(aGr@pBOJ#Laj$SFy^aIyf-mklHNxNndH+aKAISx6;Dgcf*YUsG`$Nj zKGAbce7gBkdY3ZcvNvCvJBbP=+>Ff=XknuKobEz=0T-K_LHi82b8{!+=}2+9q&G1> zV`}>qY@Ptz#wqDd3LrCyZzkct09^J7jo+Q48isrNi}eM|muQ8x3Ccka9mBsuPNv+4 zUn(*@{4CNWJi%RAP-Z+6cRi{tyJtwk{ryYZ3zjYUu?0$Scn{ECDb#jG3wy`3uQn7e ztJbSmdiNH3kf;LleX>m3a!wnI7JA0DuX?{>=vA5 ze_;EW?n7|qj9n7katUW>fOCC>A-h%%1i;NOe*_|WrIG=|(S)86O$lf0J+}SPN4FPj zBzjr7Ro5E3%7>WV6`vV;=h*f}&>?!pzH)DKGyGG)Eu42pQTdpJ!!O$26Hy7b_r)Bq zw{?${ue8*7QqprD9DnENiB<)-ryOv2TNd;HhXkhQJ{T>$-s{x_y;9IdP<%`08G9vP zx5v(RdC{@$W8TJsS(4thcN8eT9_aCxN)M2g0s10HJ1INo)FO@awSs_~BN7x`b`;ND zzw>of3#+OP`o{}9jg?K!4IO!%Soby`>l4+YF2?uChVmJh$ z28@2J^c3qpvEZ=R--q>vy+#FAo3?bU@YZ!=L10sxC1B@@HnutLYdmeH9K00LT)rr@ zZ)&rPRyVjwxPkOG6v7~{a3w)`y`@hJKP__l3Z08ZcIY~^wwUJU}0L4OUhz>C{~{K z_^~>*4^}|!f>8rlkW0Q>mA9s&sil$i&a0q8GQPA1zEjoOUgd4==xnK5-C&R}HLYkc z+S*$?TUWF;f4MUEODp9H;4kN4)pi&QR(-;Ds523G+wDdol?5gl@<~OCn+WBgv@o}i zJt;CWG!%rQ3zEptYG~MXU}%`kfJMg@eyp^GnsB!P|KJF%Lmu8VeW)VT-Ct1AtxfF+~wGUC3#+7T21m9!`$m=?upbOREuHHcKK z^o4-F^}ayRM+=mZNEF3taAF_F>_$YPN)agS{Xrn)a}NcqELq>^`zI zmI6mm!w0cAUbO+Js)JbPOske@ZTd(L!BDdZmqP>Y@4el?nqftyrKwpVLM*JU?}nz} z4l7CtP-}*7;yf-vGLsD-l^k`KmY0JImO-OYBhezL2~_REvqz??P53PeG z``~_Ds@+(Zy*3=e3VU`vX}#4AEo<^Rsox@ZghP-6z!8Umm27gOLbwtP85)EEAz=V( z=aC3|6Q+^)buzvu}nI{mDNVzM5XpjULyRk)#y$4M3-+%u|V7)I$ z4Fepy2PkA%;w@dDTth6V$2SM-B|Ur)fn+Xl>ffoha5J}omd=Atgg*fo?7a!r?e~Ry zdqP8-u#!EDQil&%%k5=@QI*#YuJ!(4Fp^6#Av7Ev>+;nX4_tF-1%G5%^zIcXVD&A4 zSeV`y^hNsZ8Y?mF^$<(!NkUaO$VaFP>!tKa$YvS%B;1&?R_D0L*SjNBz zDk0mJv{>ig)E$DmkWZQY7s>(RlefadtMVG!+gsZW#ewS@6I5TNh}K%z8{T7mrDJ}` z<7iMKsBIXyzzh1&Y{T*3yws;rBZHDcGq=>p^HNhm%}5{B_tM-ZYEVY-*#)P;mGBV; zAYhv?aJWcG9ZrP9bL&Q*gBXz^e@~zfeOp!D3g6&-ZkMPv6|NK+F6A+=Y@qDUZhpaJ z+6v$KVDu3V(6E~N4HT^$N~8R#-l@SZqE2i!mw?5PF9d&yYydX5Y@8>%q0-zsdjqrq zwPXNebrM-{cQujC87qk&gk`p*HQl<8kPWBBWizw z{ysDcj!KS>jy_&NNd!ZpDY9BFG^y}{AvD}0gZNAcLv(Vw#=1tLH5eMa5giVOoNETD z`q7IAf6u~$0;n^H528c{jS^5nBF0)YxM<}?i(?KG!fWwe8ody}Jd%d3V;7~A2+ZUh z;|Z?TW*3B!F^v=OC6AI$_3#eKRARDpwqcV^JO!U5UlMrc0(PVtR&cc;7uaMqp73~# zB&hbbLjl|G|Goh{`!wp>?da05i`w%vv46< z66K83=qGvoxNB68W@}G3W>p-#Pmk)_(@k0P%RPwAE^f-I7^Rs0n^$Bk>&iy`_&i{M zYc3|G*e*0>BP>MsX~Zl&-pV;HA6{9f^!?xKlnvf8(=0d(H_A*iFbHZi2XTwDm&@6Py`Tz#!gxpHhvenj;J zDUA)CELu~`ism(#l0`8NfEJe|VF>fcRPkQT4n!kZIqKk7B%1DF0g~oh1O@Rj2-P6e z0Dlus^Et#p%%X8s<=G4+FHwY$m|w<(P8fBUYC#`{Dr7hId(0i!-bl&KP}nS(j{$`% z(yIgw(8WL|#ps^jf_SDuyk@c#M2e*YLzZGt*3DD|FeqbuHU4556!rqHTQqRj+gBVOyoEle2$gj~_#Q{)C=%;W-j(wye+Z!&DV~KfxHSY zW>n{6)T4VQzVh6~7tUPzu=;poCRjBm&wmir4ieVpx97Zd>e<^*XTWRmz=54Hy>sHB zw?2L0^oKvY=7k3`!MgR#Z+FMQ>%nU;o<9BYmoH?7wfL$nJ4vqx&RjhE*2iZ~J)03P zmQWj=c;MGpeez+!$IFgCkbyO_-#dBkgQzY_ncs#cGQe{9hFGP)d19*Y@A4?k9g|Em zxtXhhE(=SaF4lXj+UPVTWGvk?O{`Cz=vk&|2d9g5sHacUJEw{D)}h5;nLaOIp^2KV zUT+;L>C?37+VGVpN|tHUE-#IPdz#kxyYa3;k{Y8dp(-K>K!W-SliNLoqSX9$}JqNtuL-# zX-TMWJC}btC9j^olWnY5R?aWCMeE*qW9fZMm#!7o(9`k)7G`B&Lk_jL(w_+F^;*7c z+%UbDU*KyMlBS(scs#WYHSK5@zPgK9p!S%n*8U{p>>II|iB+p*B|srBDF`eiGcR{- ztyau1F$o!ya}M%R-jp9IEIHk!8!|uUk`c#^uxKtv)a9A?HR}JcWcbjd3k?YsbH!xL zegl?!F(r(~aB+8gw=VMR{HNvw~WOU1kv8V)$$-DDL zSc@MzC)-1JeeKrb-qDA>Q)6AT_|^Tg?RD3)groSxW6}U#j3wH6S3Rt;ba>lenY=!V zr$PtTT;}D8nc1U=Ma2{R&`h>PfVJ>2Bs9Gjc^j>K_`LOC#Te@$=*7NarOQ})EDc|1 zn|_#pHyPH+^jK;25{jgjP)ln=AygWy1c~J%tRX@QtYsv5%HWF5gxL{NVD$kj#+iv1 zS9BJdHG~vcU6Wy*E_v|5b1AW~IzGlE6EEO3`{6z~M@n8plVCm3_v&~mtiF?Pq{sTj z;l5X+sj!xvtOi!OKWnD40YWX2;3w*}zKO>j4Y(FcE7G(qbB}=_LfB4XY0b+D0rwjL|i<4fzY5m;(y} z>+$R;)+5t3MQ}w^V`WG6ICjsXYl;9YN_Fu13V1=jjarPasj-IeRf_|QY6w)Dqs91| z8f*UD<&QbBUS+|uqetWTUL~3u>$t*U6X@6?)AtyUvLv%#Q2Z z1Pdu=1e3AK+pojG##UZXiAqeHGtO6F5g zJ!;1~`sRT36HXo+fe%lFN4=oLe0WoLi|zhx+SO)M?gII7{7tf+(6SGt^7iKUeq ztIuiqSZ2Kbe`3KB(hi8JI7ihbl{HMr7(LAA znOG%rqYmEynHZC@UpYZtpqIA%4qT=!;fBcNV7>PNI4AOQVPF_Ty1H^yUC8oBU&GUM zv0Tv-2Nn&VV%n6vVoMxYV)*33Xg!8>b>*nKkPYMLaBLEa;nP&Sv?1y@EWNsT_%tQf zGG`0Wg%`%D_0s0r+9*AyVfchA0)35#z;SxE0_io=hLs)HFnq!lA$w9Rf>3&KA5OeKX&2yA5tdwWIXiqQK$-h8Skh)gDTVw48mq?snITws)I_h5nd_89>2cBWA~{ z-KXUi>sh1jC}X)?F61&VJ&wfh&jTX!e+vn|2~|8%4^9iWV3`^MtY2(#g$@aaGNp0nnlhbu(*t3 z8reboM~)fHsWIlo$pQ=IrQl;6;k={^@glN<*U>m)7NZzFr3!>~KdQXM!c#gdmd}mF z8Gs?I3wHoiNQj6MEXHx`l7OYZPToBw)|`z+b4uNj*A@U6y!26DCRjP6MWvZSo)R&nPIt0=RraP6v>81 zzlDp#8m<`gItKtV%-HCjbFF*$HOWi+Xg9K)SV%~e5Fmm=RPfroH8U)7auGCwGb~MI0;>yva3n45!kBfod%`HCCQwGACNi`k3vZDY+7sd#Tni2(xgjKRcV9n9DN1;}n8dW`xw6uY+X3au2 zc+JY*!o4|R5N7&7SWDCh7F$Y_V)B|Ei6yKSJuDf+M441A#-iycNa$J^hhRdy$<-2A zLPFO<^c2z*ldC1Lgf+M`kY;D&r&o-ufq5I2kXjvC#FMKfco8`CqFZ(x7cD!E%Ort$ zQNBCI7SLn#Ag&Zk9c);s0aB(Cmh!`t04Wm*Yx5;!QBBD>5Y{+#D$~W%V}v?gELT*I zT?Uq>T|Sn0Dar5}g?q4s8Nv%N_<4-2F-_Fk@aeCAaO$~l zee2nqfVF--FPL{?0!y^L7Y<*#aN(n$TzvcE4=-Fi^Wp8!J@?$U&A@v3=#^*e3IH45(}RVIAnQ2JyBsK z1XIFGi6?!$kN|0aG_7GzoH7n9)$3^)2dX5O*Ro~D!DPCv4N#_!HB0N7KGyF2mxHzQ zXp~q@Q?H$;;-QW2oR3Y<8oLifgC}bicTEp#=P!VD{?_>Pv0gp2c)EIl7qF5g%wi*H z8sDSzP$*L{`r5re9z6M5wg%Rv=+*SO0tH=SWtHLcg=myg-q5sK+!4qR5voZ-7qGC` zFDIy*mSqqYrBOyLMHChW4ZzA8JExb;+cNadOR=#hZY;iUY4)ShUw-g^?^`>%P9cuE^s(n!Cfo zLQG=mjYo6Ozi+H5Ev>Jw&+*pf{-zA~(OvHH`9}-4pQy{_7kjA}|8AaDi4Qi?$8cc+n`EQ<_)5G<&S}m+$;}{n8nuyIe2M+fqDld+o23HEQ}UV5oO6 zM#xdRs8A1Lqz3M0(79m1YkA+PS#q6&EGr4K4EJ;Rqq_8cPF_Dp_HPRXV94Ql$~r^ULvqaWH1jPBFxg{pUD=5!NC6W{|K# zl54CsAd?bLkg>!8RU#naPpd4 z18d0gav#`V6{*?3ld-bTQpH2yr<|D};SzD^C4%rM_tTw~<=?xao#FJI`ZmrKdd+@D zt4@RUr*Blwf9l#f5^Ls>7@-MXB{g#%JRj$HBCkgZE6Yo-YZF+z4;*4%La&*NYZg9U zoeImf@Quo=pDMvVX9)Vv*%FJMaT z&g?^$gj;r^Cf6jkQ37lC>pzaMa9mz<7d}yPUP`!S=lKt2A9;OJj}p8HU)s~PI)=p~zsJt?p%+P~h$^^383y71r=@hPf@lONS?=yJ?vCcffdm-WLPb`Nu3eK5&J>vdN)BAhJhyd{-tOV}`Me24z z%_^@v_tqx&9xsv@>(|69sRfuF<#`XQygv7S*!%wDidS~9Ca&6EB18eaW{Q}_3uz*U zd5K)n_KLWpewliS3a0w6R9J$pqG7*tPGU`w0Nhe22Xx#k2qFzuhP)E%vZ>8j6tr`! z$1&!$A1m=l!z9a7E`{uO@~IG15PAXYs+}lPPfVrL-KJORww>2xS*i)W_P@6Lp`GXd zwfdj~%chsUZRZ>tLBZ?EV~bzi^7!I~!h2P=O_41RpDeLGjuD7!|LfJjs_9D4>*15h zy!M}}e)VgQFRV+i*Y=Ys^b%OH(U_8s?smO)22qrMUjXhO9GZnFUq$C8!x0fdCC5ZJ1(h{ zqyLHuI*HyZQtd3STEpQU%0W%h&rxJFMpqR8-m}Evj%7D|pTl1f2(VnUpqAym^sbZ# ztj7*IijAlKk)?RK^bcax9u{agR15g%NC<0`ux#ZtCh#iahTwHO-VxFE=GOdc#Qo#3 z<9E&~|2tqE`5Py%tM=z>cj(XDvt#(jQIhbQ^Wc0imb>bE<)hzUQ@QG(aRW*CZKqz9 z`>|eDf2QJ<^6%F&me8xhV|i=iheto*m`ii4hh_ z2pi_sf3MtKwkCI#aor6m%4^5t!E^an{j6d~`O_M(^k2LaqqaA9>0ewuS~~W@(vn%k zix@e11-tSe`q@3(uYQVniQx2&9I;r%=8k2R#B1Pi1%aobkB_V0HllotaEUTT>2X-r^?YmQdm{^%P{ULr^EGGSw843QjdRr@1__GZ!PhbC+S z*1}yooV*-9pBhV+mlEH0A14I3g$ywjp}W1Hv@2_5_#Ey_C_59Zf<77k82A1JEVtHH znnh^{4qo{uPsZT6Cr_S04*l7A<;H4D^=vJgUz>oHTU3P6i(XVjv}Pq>6xC;KVIW{slPJHESd^xzY2?|FfhEf|pz0%`dm z6P9|-V7+3AdJ%jU|DGtZW=Jfd7p~ANmZ%r;P=WYr*+L18^xA%s%Im>TV~Khx47xLx zNq$HM?0;0PE3+2^?rQFa9IsKGvD=&If!GQ&hL^y%l2?9xj^}DQJRL!QN z7b=zvljvoAkw{wPvsO`!Z^?R<5X`oy8?%-aQ-R8>sE8^ULUMWK?tJh513$m#weCfX zr9b{4BZ_w8n)kT%NY*R2{;^e^Ti29-eU-%OV=U2bT(gKZ>!&1#<#P-6t!mr0xBM}I zrJWa8La)cG)9963ymwXG)*{7A>k(K&uWJ^j)2ram?%z{i_;ab3){~K5khqq_R(^QC ziyx$3S!whFOfAC+@6{jg;wPzBy7Cejbd@&j;uNV@y7FQezA%=06y-$~Z2EqvO`?~i z@8Bi$;?nw$s9*LWgY~vSu?mvL;ZaI`R1QzN;7y4YHPDvU3S+~C&;?NtRwtKAt|=HH zQt;@ufrd!3&2mtJLqhk<_dkE&FNT80n=QS*A|OoVlJ#;wwd#haE4^zf>n**ydWd+J zsb;cX?(I!C>;=}ZS}eV~F1+{p^UHqAwIsD(?j7FmkA2VEklStzcpvOpJaDM5%NhVD z>$UyP8xCFX^?cA`>DAS9>#u9R(lv=*L`DR=UW@Z(g3oW-Qml>WYbMj8auZLsCwycv4tfkz`DbRX+62yYIep>z&)Z^LEha ziY5F)BhCUG9>SxOSNV?OtFOl4849b}`}&JbWhRz)Z<%N3STffAS;fUyzpo_x)a&)m zf5qgrs&!XM$>?}8RxYrL-3n_fu*!3@6t7iYJ*#&#ibtn}IKKnIlF;itQEo}-NiE^b zQCOq6=-9(bFK=V(G0PerSYv6jHNaa1=^LsntWxG8bx5dCaF>RRY`p^64M;jR<|%{0y6Z(T;s$17+Sg z8GBw~4`}Rz#hZc2V=k&%+ZtNLZh{ia+%6BBkkNi+YDZ?dYZsHkURyrLZd+k&DT)2# z>4XSu^5rvDV54)|NxPqR9mJMsb>=3w!A%RS&793Gv1vy@wVk8MQ0&h|+uUK7So_{y z*on)=5Zg&(XFl3+OoFnAayP$3K{^3uZG&s>u14F`V{1Yd1AE3P>d=H}@^)-?0eBxl zv1>E!1DA>yPQ_T^6s6EK49 z#+MpKO81z*2FzP%oAdit-&@tvQRnfrVO#U7~IGm_Q@h+U^; zi3k93h6^3#pOgk(lPoDrM5WA8@e^TsV`sA;QHL>J>omvz`Av>)+X z#YWkrGj_wq{*rW@1s9kv5()KSi+b8(l27U&k&jW_A6_YIC|6`YenlCSY{$E4+KW-`iBH9e2BG1eh85C)yzw|1 zdUP@No%NMaAeJb)a1tM-D;jE#S^q{_ZKcmP!kJ0F5$w!Jn~QQ` z4AP#sYX<{=0>h(5t>-;?v0ptlc&rQJl%bKe{mNH}q^Pxylb_Js4pC(Umr(Brwp6Bi z2dAfcCk_yhwn1knk8>hMu&^=^^hN74%%=;8mXo)dw07GSwTb9jM>x=SyNUqX6Y~TI z=;NnzO$4FDO_J$=D5IhYrw4=s1C?TcAP!g}Gby7nd*1golL3OK)zj3*XBf5F#|O6k zbdAWSf$k8t@8te*5WD7v5r-tQ|A4jmjEyjNKhD0s8=I{PSAok9P`eq~gtG@W4Tz&3 z#QwAPE|(61Fnca9PFCuu>b$3u_npPIsHiqQBiP#)N2jos5Q5H92=~!`rZ53-drGGs zgu=csZI4d}UZK|F$eO`nwC32D7EOKFKNJK4@1QUCJ*Gp}fR2q`hfo9QKq5ZvhN`l3 zt4a`(o95bg5|xz_MH#_1$uvNz@9-FF1_K*$V3*pD6+1(VPLdlaxly%0%$+sWT>#2+ zsj%rRWEQQNJWB|za=4bP0wde?cc{)vqKEAU@l9ekZ{D_6X=BQ+41oiqAmfcTg<%MJ zFwb3e?M-#{d}jWK6oPi1D`Pioo#4UV;=oTw{AfLnob%Q6>-kDZ}ROWJO>QXS7*z$8_R^_Y&%l zomc5@Yh!$imS+gf z8f*mTm8Vj1uT2MtsnLq1v1CqdD-9+)gtiXe(os+}BR#xtG_Z%kiHL~?nl+-Kh@>l; zET6RpIti-YFJLd_n~njEQ(akz$zw3t0?V-@pX*2Jq1)thBACjs&@vAZ-MwJeHIERE|$E7NNdf zk%rPVn5Od%@rEL0mo`_g_hLMkq57!n!=auK4qW1~^M5VtE6l61CXpht}%saU}fZwol+0z-dPSBnU?0mtcxI6;6$pS?KA z6LC5U0%eI|0qtOJ%HIh(wy}bGZ=(Yy#8&Iw{!KV5gPn^{@EGug={1s0W(ur>YeA5( z!DqA5SxWp8Ks&LE(-NG#I&fG6oi!oGvXgJ%F9ttr(e21n1Tpx+D2^Lrt~+D^HK5{C z4#>xDhfTy-NmLziXerDTz${OdsdO8iF^H}3i8SqykD{WU5QA45J9pE$RHjB~9%#%? z?BtgG_JanvLq>%n|279P!X_qRekYdWavCoh;y4pa9NU=;>g=!{l-*!pXe1~MN~LUr zLVc3wT%aUKGI<1^WI|TMjKW}KAb@kU%yZn7_;h@&#IVU=o)A%CYf_xYLC}`>5QI*~ z!z2TI3g-#H^{h8?e-Dn~kSADRFvlI7Www-j(O$!${C4fY1tms;JG)z{B#k#kF`-Nu4aeZc9khOV?2K7BZ2s z0ZV$?VMQe&V{p%&46KUWP9H~Ih`FC6($W$Yy^sv%5XHcQNb0n>u<423C&W1^aIzjc zD^Yr(!=UP%0%sGz6T_?qjVmNWSV@dy=+q9BSwu`Z(1?xfCwSqwI6mZ*L;-<8^HqpV z3ljJ*1(#D6WEXyIA?wL$QYvLWoeytQ@N*um(Q7<`NNI=x%1#c+dAw;=6CppHK~0mO zKH*;7p^c~-Jhwsf%hZI!`$@bwZcA@DRL4jp(Fn6c%EOa{ zxkP>Cv#nK0B)U=^PFLN4UWeupWFtXGq|xY0`meLD$`VK<(}wnvT-JVAvIIq&L+`%S zJdo{h3?9bl7-wK8fsS#EX?i>K|siQ!{F_tusPoo;E zd@$N2`Z(&)Ph%Jw{Gm=`{tcoDcoY`S$H5FOaTcbdK~n|yW{k&`4M}Lo&}9pS<;zd^VINtQb2$4%va=v_&;($Nd~S6gu+5I#tT- z6Z|+TJTyWr8d_lLcSV=lNQvwzYX(JJ*i_7rQDfN~h|qhmS!Fv!Rihz+^nXjdmF(dW zoDdbX4d>;=KaNqRS|HEK;W%mC9UkGsS;<@ZxGtK-fO@?+vlVugW`e+!DBBBJ%vNK7 zI)te$^v{qJ4#mg#P-)4zV0qS%C1?lE(4s;k7;%g@P8n)##sQ*y+!pzydI!Q;r9rfA zTsX4Lq!x#Mq_BEgK3%vfPrFaVme z;2ClG8{7Eii3$9Cc^ZrOw3#uNHZ!WdZX#UL)ERQb?Wiq1wj4w_6lkD;P;0 z*STx(jrA;!Yca%KGJfpwu7M+O%k)#RfkW4b`0-P*J8ES7;cHF~96sGey1aUL7UFMmeAD4;w%_)zuOt2@^QGTl3$%X*FY$Y9f%ejCmJBa) zIz1O?Kexq?zP6lwK*&>L#@{SJ{DWO=!#7$GUwo>1*|`GkpQ>s!-^ZslivMF(O||dv zn+)@I)$;0xK7O6!|M)|TZ*0&OxABb?Sm{E3`n|qDd!vBA9FlSVWTT7H|D|A7$@$|Y z7jBD#?+<4!J~eQ-XW$vY4=9jd}#($txXjOD86X!ydKhL#l#G_}KjJpYI}$V#K4q76qd zi^MkcL+u?+Uu-a%(IBGdTG`s%)Y{atvel@lYp<(sT49ux;eVxppL*MAHi~fP8H;YY z4TNY)bMeAO#;vz4BC?FD=(g82x3=EdVN`r!O`XSB(a_S_(B9ywq~E^UWlqN$V!oms zbNV3E)N)r-M-yI`jnAFom``_$$us-fYw?HWn>ef?K74ukbe1 zd1!Kv=%@#pC^6dCw6q|D@`1bLX5-eIZ#HgOWXJ7nz;6U*!2;yA#m3FIEH)Nbqj*Ui z{9;^D*9?od)OAkb0?hw+T9E8cmtQ!O6a}fZXvreuX1Ls<%eLjsu%}fH8QIdTF#m0> zDLoI)SILdg720RDg{l#wyGz%~?a!&=w^E{hLM%_hmwDw``p;hI*$>2D_llF+H9QOMJKCUDB_%Cv)7YFD zq1lZxg>nulsTlS+iveHT?16nVDZph(m^flIFxVjCIsCEIgb% zC>&ZmcR4uhU>We?YGe13$;Hw{Jp+PS&Ql?fCd%!FCR1BlNmT??H(7crCJVJkv`2I< zARwS_Wr~22U1l6s5k=_DfjHRe(v{R|%WhV?($=jC=oD8s8jTyY8Dco0C0-Bfo9kBG$t~O;XxS^8>pD7`R!C5S->&skF!+rtTU$CgA7h(}#yX69Fk(Rm zCZbCaL;t+Gsim&jpogZ_ZL}t;2EP!SAnB4Tr<5&2E#NL0LZX)3sO5San(xAIk}K+_ z6kvgtqtyG|!8*jH{YNz|P4PG&$(zzbBIk2fLC%^C6hv*H#Z!P%b{4uoxm=qz*#H4_ zQ~2Z7kWx58j&=q9#FIqI!qb)B_BHqg2InBJY%%j01wfxc%I^l~4?v0e^SW*jrG&Jk z70{&o70}h7B$^sTh-gv*nX#YpSOP#$!tum}^@$1GsMt_+wyiAzlo0F*Y&c~-;^HF+ zO28s;0eT%pD23%GWcD&jVRCLnD2f*Fy0-zCU%$Gwew8SoTPTYlH3e0OI5#4cz&U&Y zKIMD~esV z2Pg?|g8o2(5Dw*-W%f>D4hu>AOs8Q}K~bHXFlGWO1j2JSN;bOpDryck}y8aLaJbAM~`s`I`M3hA`tF*~;pMt@> zn^5!1DutL4nPHV+B1Kh-qY#J-&n+=KAk&=#v)M6;aD-qSo=eg%!ygMw>NtIcVW}iA zTkA7+!##ZXu#WwX1JDrlP&$W0U>B%exQi5U~xkq}ImQq7vRT*0zw2&P-5 zu>atawMeB9OG@QBMr4=)rHm>NQ%;jGAyF!yvSt_NBZZ^LmZ}6UK#JzfXkSRg;U;==oG&Hfm=2kq&zeM> zsrAv~i8xoQgw%Yfkl$4xsz@EBK}AbYT-XFb9)$!NrfS+>Qx20x0)eszQiKy#jsxeu zL>#jp&H#r+p-Y*f!br*i9gKEN4f2(#LBdml=+44SDa+4OQXx=oI3~9kX~lLw;-JFG zla`3X9Q6u0sT7$I*^wh8%Qw=(a$ymySrTTakVLmrQDIo3%MrrnCW}&TQ7}o^2h--< mt8%#Pl^L?&qg&y3&Ov|&6Y)y}|F-#VP5Z%!zVA=|_WuF9H*yRB literal 50954 zcmeIuF#!Mo0K%a4Pi+hzh(KY$fB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM z7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b* z1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd z0RsjM7%*VKfB^#r3>YwAz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^#r3>YwA lz<>b*1`HT5V8DO@0|pEjFkrxd0RsjM7%*VKfB^&FfdR(~00961 From a06f236cb8b2a2ae82277c2dd66c7930661940c1 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 26 May 2025 12:12:47 -0700 Subject: [PATCH 3/3] TALK.TEDIT now comments the current situation --- lispusers/talk/TALK.TEDIT | Bin 50973 -> 51655 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/lispusers/talk/TALK.TEDIT b/lispusers/talk/TALK.TEDIT index 6b7645888c0d30a45fae198731cad62648b975dc..06caea571ce01fada912df62335321db3f311243 100644 GIT binary patch delta 3802 zcma)8OK;p%6t?rAZOXHuEm13U+Yo50c2X58D3nT6R0RbjDpDjU58au$)3M^Qr?w{{ zVuer}i6})v5fHjyf!MJD3JVqpA>aof&UZZbWb6zIQS2Ol=R4my z_ndp}y!ZOxm2B|MZ_ZbwGfRoF?C7bxG0 z+nv}%@qVR)x{AY=QDH+Rq)-ZOQc%^HK()eIQ&&l-!fG7)CNUNDuxjdAqiUp_CgjvA z(f-Ua6?dw2FEX_xjOHOL**IC7O3=RFFB#>hQula4&F|E`;4G5j58*ANW3tpj37$Y zLlXygP^s;<(GeCt7e+IUFrs`q4ue?DQ1XD6)Cp34sHo$#xTNXDs@?JZI4|4_C|IkQ z()dQTeO)sOI*m@!q2)rhq8`=rRg;I#HL1VFCdSRM<6{tO$3T5hu}RxH(uq;$IwtNe z0#(p2&66BFIWLaMt;X->qQ?&%JaRane~Xjny8ttY(T}g6n2Ke7cf7zj$Eb+r_H8X~@CPfU_-o zZfU1Gl)bogo7~@Dnn|sHlvsCxYJn|ep8(+EMhXPDCt>yg&X;AtD+7DVz?EJgMVi@O z1i(Edz#S|Bc@4d#YA^t7wA2ZUY_iC;78!ssjN3+9*iDWz@nd#zd29j`+gmwFvNJXHoB>jj|B_4bIJ24TQ~+7wJH549)C zz=IaxO6-CV!qWvh!IbRp&-U^3*AO?uZzHcE8y9CChXFpvK$H#mImlLq;O%sA&=?Hx zSP~Q&QMwC0KxtQ9+}9`We-=0gt8^LStRb>(#u6g%vKTtsHZ?|G2%iU!aZRrSO7fR03hQz7znnW zoiO29g3(uYD?Fg=hB1Wv(&xei3z-nWdcwWaA~rXjpyaU^(dC^1&0#qlLM{k{ zGiCKw&nz_pi<1_i22ALCre?o=K9O?8-HE?t6}VRzyQCG(w=IWXG>Cr2B2dS=6AMVt zD;9yKOb=O7oYext1>weAu7q>}d~?csvK)z$_X=g8xpD|;B1&}D zB$rOe5}1o1d23#-oLH0* z1r%Qw*+r1~3jp)Gy1OjEGo;jRAvL;RIHLeg(v`0td4P=5wYvO%BXjSw6dNNS0Ca#= z%42pFJhob>a*+Vs?CSDR+AooFsvN{GTMmM!Z_Jr;jO@z)EY3MCd+`6S$hlfhG-`qV zi7>NYEX7XM4g|+CpEK_pz7c?JMRxAFR1W5CIGi0^8QX!LJYDwZA5i%D9}DrbI*QzF zBe>$eNncx^^78tWMzk)+EzYTLF<va8;ui&;4okidV2!}}Bwfx>_UqUCH~+KY O4afQ9clX`%m;VJvXKwuf delta 3167 zcmai$ON>-i5QgvRp-~4xfs8^>)58d>NlbhsKG221V8Q~8Jc6L6$$%IqOdMMc8oVsr zxG~5zF)mD4kQf(ioCTTj5rL4wn3%A0C%Sa!-i7u3x2w31?l{RgUH3nK{Z*&x+;eBO znE3j$iF3cs%=S(!EcW_?-u&_YyMx}~(raQMZ*?OEuEM+-AR*6e{=^+ zDJ%9bUoUQ~tS|muelVq_-79k`rQ+M~AGZ0o%Dm-=xAT)k5t=RrQ&DG9BH{FjzO7187n>OfD)*t9*w0ENPbkM=CMuE5AG%B;KWKa<}Jc9dzQ^lV&AZ+jWfyg^hl3~@Et z3g}H6LPK}Xkw`|~IH}+!lg>CNyy7k~p7oJfq|R^Xw1P(^v=UsN;;#G(ArL>w+3Svk zmq!}rr&qj;{dApM?7McmI|xRlq@~HSW+k#7b|8J@QUEY?dU1){B1B}sshu{`+eLM> zAC;(f9z+It$c8w9>~bW$;)AD6Gxb`W_|6RXkexP4F6Boch6dDUH1Qpb7D84j29?hlsHAm`~#pIhq}`asE0;Lwa`>Q zt}Rpn_Sh)*@5qd+NP1Mu(lbtRpSbYH`}CSVN)o{$#C>cyQ8yk zwCNKcO(mttsH1(zP$zV|tW>