Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XTKERMIT

XTKERMIT.m

Go to the documentation of this file.
  1. XTKERMIT ;SF-ISC/RWF - Kermit protocol controler ;9/14/94 08:38
  1. ;;7.3;TOOLKIT;;Apr 25, 1995
  1. ;To call from outside on KERMIT
  1. ;set XTKDIC = fileman type global root, DWLC = last current data node
  1. ;Return DWLC = last data node, XTKDIC is killed.
  1. ;For Send: XTKFILE = The file name for target.
  1. ;Optional
  1. ;set XTKMODE = 0 to send/receive in Image mode (no conversion)
  1. ; 1 to send/receive in DATA mode (just convert control char.).
  1. ; 2 to send/receive as TEXT (Mac) (FM word-processing).
  1. ; 3 to send/receive as TEXT (PC).
  1. ;Text mode sends a CR after each global node
  1. ; make a new global node for each CR received.
  1. S ;MENU ENTRY POINT ONLY.
  1. D SFILE^XTKERM4,SEND K DWLC,XTKDIC,XTKMODE Q
  1. SEND ;Send data from host.
  1. D INIT^XTKERM4 G ABORT:XTKERR D READY^XTKERM4,^XTKERM1,DONE
  1. Q
  1. R ;MENU ENTRY POINT ONLY.
  1. D RFILE^XTKERM4,RECEIVE K DWLC,XTKDIC,XTKMODE Q
  1. RECEIVE ;Load a file into the host.
  1. D INIT^XTKERM4 G ABORT:XTKERR D READY^XTKERM4,^XTKERM2,DONE
  1. Q
  1. ;Close up shop
  1. ABORT W !!,$C(7),$S($L(XTKERR)>1:XTKERR,1:"Aborting File Transfer!")
  1. DONE D RESTORE^XTKERM4 S Y=$S(XTKERR:-1,1:1) Q
  1. ;Modes 0 = Image or binary, 1 = Data, 2 = Text
  1. 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
  1. U IO
  1. Q
  1. SR S DIR(0)="S^S:SEND;R:RECEIVE",DIR("A")="Send from the Host, Receive to the Host"
  1. D ^DIR K DIR
  1. Q
  1. CLEAN K XTKERR,XTMODE,XTKDIC Q
  1. TEST K ^TMP("XTKERM",$J),XTKDIC S XTKDEBUG=0 D SR Q:$D(DIRUT) D @Y
  1. Q
  1. KERM ;Entry from Mailman Talkman
  1. U IO(0) K ^TMP("XTKERM",$J),XTKDIC D SR Q:$D(DIRUT) U IO D @Y