home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ckc190.tar.gz
/
ckc190.tar
/
ckurzsz.ini
< prev
next >
Wrap
Text File
|
1994-09-18
|
4KB
|
106 lines
; CKURZSZ.INI -- UNIX C-Kermit X/Y/ZMODEM extern protocol macros.
;
; F. da Cruz and C. Gianone, Columbia University, July 1994.
; Modeled after earlier non-REDIRECT macros by Rick Calder at AT&T.
;
; Most recent update: Mon Sep 5 13:00:32 1994
;
; UNIX C-Kermit Macros to run UNIX Xmodem, Ymodem, and Zmodem as external
; protocols when C-Kermit is in local mode, i.e. over SET LINE, SET HOST, or
; TELNET connections.
;
; To use, "take ckurzsz.ini" to define the following macros:
;
; SX - Send with Xmodem RX - Receive with Xmodem
; SB - Send with Ymodem RB - Receive with Ymodem
; SZ - Send with Zmodem RZ - Receive with Zmodem
;
; Each macro each takes the same arguments as the corresponding UNIX program.
; No validation is performed on the arguments except to ensure that the
; minimum number of them is supplied in each case. If so, the program is run
; with the given arguments with its input and output redirected to Kermit's
; communication channel. If not, the macro prints an error message and fails.
;
; It is assumed that sx, rx, sb, rb, sz, and rz are in your UNIX PATH, and
; that they are the pre-1989 versions that allow their standard input and
; output to be redirected.
;
; If this version of C-Kermit has the REDIRECT command, it is used and these
; macros will work no matter what your shell is. Otherwise your current shell
; must be ksh or bash for i/o redirection of \v(ttyfd). Note: both ksh and
; bash report themselves as /bin/ksh (or /usr/bin/ksh) via the SHELL
; environment variable.
;
; DISCLAIMER:
; These macro definitions are included with C-Kermit as a convenience to
; users of sz/rz. Columbia University is not a source for the sz/rz
; software, nor does it support sz/rz in any way. For further information
; about sz/rz and related products, contact:
;
; Omen Technology Inc
; 17505-V Northwest Sauvie Island Road
; Portland, OR 97231, USA
; Voice: +1 503 621-3406, Fax: -3735, Email: caf@omen.com
;
set take error on ; And of course, we need the script programming language.
check if
set take error off
if not eq "\v(system)" "UNIX" -
stop 1 \v(cmdfile): Sorry - UNIX C-Kermit required.
define _zcmd run ; Assume we don't have REDIRECT.
xif not < \v(version) 501190 { - ; See if we do.
check redirect, -
if ok def _zcmd redirect - ; We do.
}
; If no REDIRECT command, check shell, and if OK use RUN blah <&n ... >&n ...
;
xif eq \m(_zcmd) run { -
if not eq "\$(SHELL)" "/bin/bash" -
if not eq "\$(SHELL)" "/bin/ksh" -
if not eq "\$(SHELL)" "/usr/bin/ksh" -
stop 1 -
\v(cmdfile): Sorry - ksh or bash required - read comments in \v(cmdfile), -
}
; Check that we are in local mode, get redirector if needed.
; This must be evaluated each time one of these macros is called in case
; the communication channel changed since last time.
;
define _zchk if < \v(ttyfd) 0 -
stop 1 Sorry - prior SET LINE or SET HOST required, -
if eq \m(_zcmd) run asg _zio <&\v(ttyfd) >&\v(ttyfd)
; Send specified file(s) with Zmodem.
;
define sz _zchk, if = \v(argc) 1 end 1 {sz what file(s)?}, -
\m(_zcmd) sz \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8 \%9 \m(_zio)
; Receive file(s) with Zmodem.
;
define rz _zchk, \m(_zcmd) rz \m(_zio)
; Send specified file(s) with Ymodem.
;
define sb _zchk, if = \v(argc) 1 end 1 {sb what file(s)?}, -
\m(_zcmd) sb \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8 \%9 \m(_zio)
; Receive with Ymodem.
;
define rb _zchk, \m(_zcmd) rb \m(_zio)
; Send a single file with Xmodem.
;
define sx _zchk, if = \v(argc) 1 end 1 {sx what file?}, -
\m(_zcmd) sx \%1 \%2 \%3 \%4 \%5 \%6 \%7 \m(_zio)
; Receive a file with Xmodem (receiver must be told the filename too).
;
define rx _zchk, if = \v(argc) 1 end 1 {rx what file?}, -
\m(_zcmd) rx \%1 \m(_zio)
; End of CKURZSZ.INI