home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.ssend < prev    next >
Text File  |  2020-01-01  |  3KB  |  105 lines
  1. ;  6 aug 85 esj add support for @filename
  2. ; 23 jly 85 esj fixing filename problems
  3. * 19-Jul-85 LEC; tpl conversion, first pass
  4. ;;;;;;       SSEND        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  5.       E:F A:S (NWLS,STKARG)
  6.       E'O SSEND.
  7.  
  8. ;     setting up remote line and directory file before calling SENDSW
  9.  
  10. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  11. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  12.  
  13.       G:L CHAR
  14.       G:L TPNAME(*)
  15.       G'L IFD(*)     ; file descriptor for file containing a list of
  16.                      ; files to be sent
  17.       G'L IFDFLG     ; yes = file names from ifd file/ no = only 1 file
  18.       I'R STATUS
  19.       I'R X,BELL
  20.  
  21.  
  22.       BELL=7
  23.  
  24. ;     test for empty line
  25.       E:E NXTCHAR.(1)
  26.  
  27.       W'R CHAR .E. 0
  28.          E:E TYPEMSG.($Proper format is "SEND [@]FILENAME"!$)
  29.          T'O BADOUT
  30.       E'L
  31.  
  32. ;     restore the last char if not at eol
  33.       E'E PREVCHAR.(1)
  34.  
  35.       W'R CHAR .E. $@$
  36. ;        get the file name to send from our source file
  37.          IFDFLG = YES
  38.  
  39. ;        trash the @ char before getting the filename
  40.          E:E NXTCHAR.(1)
  41.          E:E FMNAME.(TPNAME)
  42.  
  43.          STATUS = OPENTEXT.(TPNAME,$RD$, $CV$, IFD)
  44.  
  45.          W'R (STATUS.NE.0)                        ;file exist ??
  46.             E'E TYPOUT.(TPNAME-1,TPNAME(1))
  47.             E:E TYPEMSG.($ <--- Indirection source file does not exist!$)
  48.             E'E CLOSTEXT.(IFD)
  49.             T'O BADOUT
  50.  
  51.          O'E
  52. ;           get the first file to read
  53.             E'E NEXTFILE.(IFD, TPNAME)
  54.             W'R TPNAME .E. 0, T'O BADOUT
  55.          E'L
  56.  
  57.       O'E
  58. ;        get the only file to read
  59.          IFDFLG = NO
  60.          E:E FMNAME.(TPNAME)
  61.  
  62.       E'L
  63.  
  64.       STATUS = OPENTEXT.(TPNAME,$RD$, $CV$, FD)
  65.  
  66.       W'R (STATUS.NE.0)                        ;file exist ??
  67.          E'E TYPOUT.(TPNAME-1,TPNAME(1))
  68.          E:E TYPEMSG.($ <--- Source file does not exist!$)
  69.          E'E CLOSTEXT.(FD)
  70.       O'E
  71.  
  72. ;        convert filename to kermit type string, being careful to not
  73. ;        include the ! terminator
  74.          E'E CHTOIN.(TPNAME(1), FILNAME, TPNAME-1)
  75.  
  76.          W'R (HOSTON.EQ.YES)        ;we are running in Host mode
  77.  
  78.             E'E TYPE.(0,0)
  79.             E'E TYPMSG.($File OK, Waiting !$)
  80.             E'E TYPEINT.(DELAY)
  81.             E'E TYPEMSG.($ seconds!$)
  82.             E'E XDELAY.(DELAY)
  83.             STATUS=SENDSW.(X)       ;send the requested file
  84.  
  85.          O'E
  86.  
  87.              STATUS=SENDSW.(X)                          ;send the request fi
  88.  
  89.          E'L
  90.  
  91.          E'E TYPE.(0,0)
  92.  
  93.          W'R (STATUS.EQ.YES)
  94.             E:E TYPEMSG.($file transfer COMPLETED!$)
  95.          O'E
  96.             E:E TYPEMSG.($file transfer FAILED!$)
  97.          E'L
  98.  
  99.       E'L
  100.  
  101.       E'E CLOSTEXT.(FD)
  102. BADOUT C'E
  103.       F'N
  104.       E'N
  105.