XTKERMIT ;SF-ISC/RWF - Kermit protocol controler ;9/14/94 08:38
;;7.3;TOOLKIT;;Apr 25, 1995
;To call from outside on KERMIT
;set XTKDIC = fileman type global root, DWLC = last current data node
;Return DWLC = last data node, XTKDIC is killed.
;For Send: XTKFILE = The file name for target.
;Optional
;set XTKMODE = 0 to send/receive in Image mode (no conversion)
; 1 to send/receive in DATA mode (just convert control char.).
; 2 to send/receive as TEXT (Mac) (FM word-processing).
; 3 to send/receive as TEXT (PC).
;Text mode sends a CR after each global node
; make a new global node for each CR received.
S ;MENU ENTRY POINT ONLY.
D SFILE^XTKERM4,SEND K DWLC,XTKDIC,XTKMODE Q
SEND ;Send data from host.
D INIT^XTKERM4 G ABORT:XTKERR D READY^XTKERM4,^XTKERM1,DONE
Q
R ;MENU ENTRY POINT ONLY.
D RFILE^XTKERM4,RECEIVE K DWLC,XTKDIC,XTKMODE Q
RECEIVE ;Load a file into the host.
D INIT^XTKERM4 G ABORT:XTKERR D READY^XTKERM4,^XTKERM2,DONE
Q
;Close up shop
ABORT W !!,$C(7),$S($L(XTKERR)>1:XTKERR,1:"Aborting File Transfer!")
DONE D RESTORE^XTKERM4 S Y=$S(XTKERR:-1,1:1) Q
;Modes 0 = Image or binary, 1 = Data, 2 = Text
MODE U IO(0) S DIR(0)="8980,3",DIR("B")=$S('$D(XTKMODE):"TEXT",1:$P("IMAGE^DATA^TEXT (Mac)^TEXT (PC)",U,XTKMODE+1)) D ^DIR K DIR Q:$D(DIRUT) S XTKMODE=+Y
U IO
Q
SR S DIR(0)="S^S:SEND;R:RECEIVE",DIR("A")="Send from the Host, Receive to the Host"
D ^DIR K DIR
Q
CLEAN K XTKERR,XTMODE,XTKDIC Q
TEST K ^TMP("XTKERM",$J),XTKDIC S XTKDEBUG=0 D SR Q:$D(DIRUT) D @Y
Q
KERM ;Entry from Mailman Talkman
U IO(0) K ^TMP("XTKERM",$J),XTKDIC D SR Q:$D(DIRUT) U IO D @Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTKERMIT 1690 printed Dec 13, 2024@02:41:17 Page 2
XTKERMIT ;SF-ISC/RWF - Kermit protocol controler ;9/14/94 08:38
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
+2 ;To call from outside on KERMIT
+3 ;set XTKDIC = fileman type global root, DWLC = last current data node
+4 ;Return DWLC = last data node, XTKDIC is killed.
+5 ;For Send: XTKFILE = The file name for target.
+6 ;Optional
+7 ;set XTKMODE = 0 to send/receive in Image mode (no conversion)
+8 ; 1 to send/receive in DATA mode (just convert control char.).
+9 ; 2 to send/receive as TEXT (Mac) (FM word-processing).
+10 ; 3 to send/receive as TEXT (PC).
+11 ;Text mode sends a CR after each global node
+12 ; make a new global node for each CR received.
S ;MENU ENTRY POINT ONLY.
+1 DO SFILE^XTKERM4
DO SEND
KILL DWLC,XTKDIC,XTKMODE
QUIT
SEND ;Send data from host.
+1 DO INIT^XTKERM4
if XTKERR
GOTO ABORT
DO READY^XTKERM4
DO ^XTKERM1
DO DONE
+2 QUIT
R ;MENU ENTRY POINT ONLY.
+1 DO RFILE^XTKERM4
DO RECEIVE
KILL DWLC,XTKDIC,XTKMODE
QUIT
RECEIVE ;Load a file into the host.
+1 DO INIT^XTKERM4
if XTKERR
GOTO ABORT
DO READY^XTKERM4
DO ^XTKERM2
DO DONE
+2 QUIT
+3 ;Close up shop
ABORT WRITE !!,$CHAR(7),$SELECT($LENGTH(XTKERR)>1:XTKERR,1:"Aborting File Transfer!")
DONE DO RESTORE^XTKERM4
SET Y=$SELECT(XTKERR:-1,1:1)
QUIT
+1 ;Modes 0 = Image or binary, 1 = Data, 2 = Text
MODE USE IO(0)
SET DIR(0)="8980,3"
SET DIR("B")=$SELECT('$DATA(XTKMODE):"TEXT",1:$PIECE("IMAGE^DATA^TEXT (Mac)^TEXT (PC)",U,XTKMODE+1))
DO ^DIR
KILL DIR
if $DATA(DIRUT)
QUIT
SET XTKMODE=+Y
+1 USE IO
+2 QUIT
SR SET DIR(0)="S^S:SEND;R:RECEIVE"
SET DIR("A")="Send from the Host, Receive to the Host"
+1 DO ^DIR
KILL DIR
+2 QUIT
CLEAN KILL XTKERR,XTMODE,XTKDIC
QUIT
TEST KILL ^TMP("XTKERM",$JOB),XTKDIC
SET XTKDEBUG=0
DO SR
if $DATA(DIRUT)
QUIT
DO @Y
+1 QUIT
KERM ;Entry from Mailman Talkman
+1 USE IO(0)
KILL ^TMP("XTKERM",$JOB),XTKDIC
DO SR
if $DATA(DIRUT)
QUIT
USE IO
DO @Y
